themikepetit

Bonjour, Voici une petite suggestion que j'ai déjà commencé à réaliser sous CATIA : créer automatiquement un fichier dxf à partir d'un Part sans intervention de l'utilisateur. Mon problème se situe dans la récupération des axes pour la vue dépliée.

Bonjour, J'aimerais récupérer les angles de pli dans le drafting, pour cela, je récupère les valeurs d'angle dans les paramètres pour les plis "normaux", mais dans le cas d'un repliage, ces angles ne s'y trouvent pas. Il faut pouvoir récupérer les valeurs d'angle que la fonction mesure donne, mais je ne sais pas comment le faire. Merci d'avance. Mike.

SI vous pouviez également m'envoyer les tutos de Catia que vous avez sur mon adresse mail. Merci d'avance. [Edité le 18/2/2010 par themikepetit]

J'ai pour finir trouvé la réponse à mon problème en recherchant longtemps dans l'aide. Il suffisait d'utiliser la fonction indicate2D sur une structure document qui est en fait le Drawing nouvellement créé. Voici la solution pour ceux qui chercheraient la même chose : Dim Status As String Dim WinLoc(1) Dim text As DrawingText Dim oDraw Set oDraw = oDrawing MsgBox "Sélectionner le point de départ du texte", vbQuestion + vbOKOnly, "Texte" Status = oDraw.Indicate2D("Sélectionner le point de départ du texte", WinLoc) If Status <> "Cancel" Then Set text = oFrontView.Texts.Add("XXXXX", WinLoc(0), WinLoc(1) + prodPos.Application.height * 25.4 * TwipsPerPixelY / 11520) text.SetFontName 1, Len(text.text), "SSS4" text.SetFontSize 1, Len(text.text), 5 text.SetParameterOnSubString catColor, 1, Len(text.text), -16776961 End If

Salut marc54, Pourrais-tu m'envoyer ta macro, elle pourrait m'intéresser. themikepetit

Bonjour à tous, J'aurais besoin de connaître la fonction permettant de définir un point où doit être ajouter un texte. L'utilisateur devra cliquer à un endroit du drawing pour ajouter un texte créé automatiquement à cet endroit. Si quelqu'un pouvait me renseigner, car j'ai essayé avec un enregistrement de macro, mais il n'y a pas de code. Voici ce que j'ai pour le moment : Dim text1 As DrawingText Set text1 = view1.Texts.Add("XXXXX", 100#, 100#) ' Il faut remplacer 100 par les coordonnées de l'utilisateur text1.SetFontName 1, Len(text1.Text), "SSS4" ' Style SSS4 text1.SetFontSize 1, Len(text1.Text), 5 ' taille 5 text1.SetParameterOnSubString catColor, 1, Len(text1.Text), -16776961 ' Couleur rouge

Bonjour, J'ai trouvé un autre moyen de changer le style, la taille et la couleur Dim text1 As DrawingText Set text1 = view1.Texts.Add("X0123456789AX", 100#, 100#) text1.SetFontName 1, Len(text1.Text), "SSS4" 'style SSS4 text1.SetFontSize 1, Len(text1.Text), 5 ' taille 5 text1.SetParameterOnSubString catColor, 1, Len(text1.Text), -16776961 ' couleur rouge