Matthias31

Salut Mooneck, Je suis très intéressé par cette méthode, mais malheureusement, je ne comprend pas vraiment tout ce que tu explique. Peut-tu précisé comment tu procède, et à quoi ressemble ton code? Sa me serais bien utile Merci d'avance pour ta réponse.

Bonjour, En Fait j'ai trouvé le moyen de réalisé la selection d'un éléments pendant une macro. Le problème maintenant est que je n'arrive pas à utiliser ma selection (un point ou une droite) pour la création d'une référence qui servira à créé une droiten, un plan, ou autre. J'ai essayé avec le code suivant, en utilisant 2 manière différentes (en passant ou part par un "Object") mais ça ne marche pas... Un message d'erreur apparait : "Run-Time error '5' : invalide procedure call oor argument" en me surlignant la ligne "Set reference1 = part1.CreateReferenceFromObject(selection1)" ou "Set reference1 = part1.CreateReferenceFromObject(Obj1)" Dim partDocument1 As PartDocument Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridBodies1 As HybridBodies Set hybridBodies1 = part1.HybridBodies Dim hybridBody1 As HybridBody Set hybridBody1 = hybridBodies1.Item("Set géométrique.1") part1.InWorkObject = hybridBody1 Dim selection1 As Selection Set selection1 = partDocument1.Selection Dim Obj1 As Object Set Obj1 = selection1.Selection 'Dim Obj1 As Object 'Set Obj1 = selection1.Selection [surligneur] 'Set reference1 = part1.CreateReferenceFromObject(Obj1) Set reference1 = part1.CreateReferenceFromObject(selection1)[/surligneur] selection1.Clear Quelqu'un aurais t'il une solution à mon problème?? Merci d'avance pour vos réponse. [Edité le 29/3/2007 par Matthias31]

Merci chocolatgc, c'est ce que je voulais. J'ai pu attribuer une macro que j'ai réalisée à un bouton dans une toolbar pour quelle se lance directement.

OUI !!! merci ça marche...

merci Naurel... informations très utiles

REBONJOUR, Cette fois j'aimerais savoir si quelqu'un avait une idée de la façon dont on procède pour renommer un set géométrique dans le script vba.Quand je lance ma macro, elle ouvre à la suite product, part, puis set géométrique, seulement je voudrais que le nom de ce dernier, affiché dans l'arbre, soit "points" comment dois procédés ? Merci à tous...

Bonjour, J'aimerais savoir s'il est possible d'attribuer une icone a chacune de mes macros ou bien encore à mes macros les plus utilisées. (mis à part le classique "outil/personaliser/commande/etc...") merci d'avance pour votre aide.

Bonjour, j'ai encore un petit souci au niveau de la police dans un drawing. Je cherche à avoir un Espacement "Spacing" de 35%. J'ai réaliser la macro avec la CATIA V5R16 qui marche a merveille.Mais je doit passer la macro maintenant sur CATIA V5R14 ACE (version AIRBUS) et le code suivant ne marche pas. myText.SetParameterOnSubString catCharSpacing, 0, 0, 35 Quelqu'un aurait t'il une solution à me proposer? Merci d'avance pour vos réponses. [Edité le 15/3/2007 par Matthias31]

Salut Merci beaucoup Naurel pour tes réponses qui m'ont beaucoup aidé. Notre macro est maintenant terminer, sa fait plaisir... A bientôt

Bonjour, J'ai un petit problème avec un filtre pour copier des droites et des lignes "brisées" (ligne bri*). Dans ma macro, je cherche a copier du texte et des droites à partir d'un fichier en DXF. Le texte aprés enregistrement en DXF est selectionné par un filtre qui prend les polyligne ("ligne bri*"en français et "poly*" en anglais) et les droites par un filtre qui prend les droites ("droite*" en français et "line*" en anglais). Mon problème est que j'arrive à faire fonctionner la macro en selectionnant soit les Polylignes soit les Droites mais pas les deux ensemble. Voici le code qui me pose problème : 'Ouverture du dxf Call CATIA.Documents.Open(tempDir + "\TMP.dxf") Set myDrawingDocument = CATIA.ActiveDocument 'Selection du texte composé de polylignes Dim mySel As Selection Dim myFilter As String 'Filtre à adapter en fonction de la langue myFilter = "Name=Poly* , all" And "Name=Line* , all" 'myFilter = "Name=Ligne Bri* ,all" And "Name=Droite* , all" myDrawingDocument.Selection.Search (myFilter) Set mySel = myDrawingDocument.Selection ' Copier ... mySel.Copy Il me semble que c'est le "And" qui ne doit pa etre la syntaxe exacte pour réaliser cette "addition" de filtre.... Quelqu'un pourait-il m'aider..?? Merci d'avance pour vos réponses A bientôt

Effectivement, c'est pas possible de faire plus simplement, (hors logiciel complémentaire...) Mais j'ai pris la macro de Marc54 qui reprend la méthode du DXF et je l'ai améliorée pour quelle s'applique plus à ce qu'on attend. Merci quand même poour vos réponses... [Edité le 15/3/2007 par Matthias31]

Merci beaucoup naurel, ta solution ma bien aidé, c'est gentil. Nous avons enfin pu finir cette macro... A bientôt

Bonjour, j'ai un petit problème pour faire une boucle. Le code est le suivante : 1. 'Création du texte 2. 3. Dim iFontSize As Double 4. Dim Compteur1 As Integer 5. Dim Compteur2 As Integer 6. iFontSize = 6 7. For Compteur1 = 3 To 1 Step -1 8. For Compteur2 = 10 To 30 9. Set myText = myView.Texts.Add(TRef(Compteur1).Value, -50, Compteur2) 10. Next Compteur2 11. Next Compteur1 J'explique d'abord le fonctionnement de cette commande. Par exemple : La commande Set myText = myView.Texts.Add(CATIA_V5, -50, 30) sert à mettre dans un drawing le texte "CATIA_V5" au coordonnées -50mm sur X et 30mm sur Y. Je veut donc créer du texte à différents endroits suivant une boite de dialogue qui apparaitra. La boucle 1 prendra le texte dans les zones de texte (text box) apellées "TRef1", "TRef2" et "TRef3". La boucle 2 fera varié l'emplacement du texte selon les coordonnées de Y. Le problème est que je n'arrive pas à réaliser la boucle du Compteur1. La référence Tref1, Tref2 et Tref3 ne sont pas prise en compte, par exemple au commencement de la 1ere boucle la commande prend donc cette forme : 1. Set myText = myView.Texts.Add(TRef(3).Value, -50, 10) Comment faire pour prendre la valeur de la zone de texte en compte pour quelle change à chaque boucle...?? Merci d'avance pour vos réponse [Edité le 13/3/2007 par Matthias31]

J'ai trouver tout seul... Pour information, je le met. Pour changer le ratio ou le Spacing il faut entrer les codes suivant : myText.SetParameterOnSubString catCharSpacing, 0, 0, 35 (pour avoir un ratio de 35%) myText.SetParameterOnSubString catCharRatio, 0, 0, 60 (pour avoir un espacement entre les lettres de 60%)

Bonjour, J'utilise CATIA V5R16 P2, et j'aimerais avoir les codes pour modifier les ratio et le spacing dans la police d'un texte sur le drawing. Merci d'avance pour vos réponses [Edité le 12/3/2007 par Matthias31]

bonjour, peut-être que je pourrais vous être utile si on parle ici de l'environnement catia ( settings etc). william.bertrand@hotmail.fr

Moi cela m'interesse beaucoup... Peut tu me l'envoyer a l'adresse tisonmatt@wanadoo.fr Merci d'avance. A biento

Moi cela m'interesse beaucoup... Peut tu me l'envoyer a l'adresse tisonmatt@wanadoo.fr Merci d'avance. A biento

Bonjour, Pour mon stage, je cherche à faire une macro pour mettre du texte sous une Esquisse sur un plan d'une piece pour pouvoir faire de la gravure. Le seul moyen pour l'instant est de créer une esquisse personnaliser, de passer sous le drawing, d'écrire ce que le texte, d'enregistrer le drawing en ".dxf" et enfin de copier/coller le texte sous l'esquisse de la part. J'aimerais donc savoir comment faire pour pouvoir intégrer se texte plus simplement si c'est possible et pour ensuite faire une macro, ce qui simplifiera la vie des utilisateurs... Merci de votre aide. A bientôt

Moi aussi ça m'interesse. tisonmatt@wanadoo.fr