naurel

Finalement j'ai trouvé, les références ajoutées sont simplement des paramètres de notre part et donc plus ou moins facilement accessible Dim ProductDrawn As ProductDocument Set ProductDrawn = DrwSheet.Views.Item("Vue de face").GenerativeBehavior.Document DrwTexts.GetItem("num_plan").InsertVariable 0, 0, ProductDrawn.Parameters.Item("N° de plan") Ca marche nickel pour un part, en revanche lorsqu'il s'agit d'un assemblage, ce paramètre existe pour toutes les pièces et sous ensemble ainsi que pour le product global, quand la macro tourne elle récupère le premier venu et généralement c'est pas celui de l'assemblage global. Quelqu'un sait-il comment reconnaitre le type de fichier mis en plan (Part ou Product) ? Et surtout comment selectionner le paramètre de ce Product et non pas ceux d'autres Part/Product de son arborescence ?

Salut Gawel J'ai également des propriétés ajoutées à mon Part que j'aimerais insérer dans mon cartouche. voila ce que j'ai essayer , sans résultat : DrwTexts.GetItem("num_plan").Text = ProductDrawn.UserRefProperties.Item("N° de plan") Pourrais tu aprofondire l'utilisation de UserRefProperties. Merci

Merci raphCAO j'attaquerai la conversion de ma macro quand j'aurai finaliser mon cartouche

Ah merci beaucoup Boul Ca marche bien effectivement J'ai juste eu un bug sur " Dim ProductAnalysis As Analyze" dans : Dim ProductAnalysis As Analyze Set ProductAnalysis = ProductDrawn.Analyze DrwTexts.GetItem("TitleBlock_Text_Weight_1").Text = FormatNumber(ProductAnalysis.Mass,2) Je ne sais pas pourquoi alors j'ai remplacer par : DrwTexts.GetItem("TitleBlock_Text_Weight_1").Text = FormatNumber(ProductDrawn.Analyze.Mass,2) Pour recuperer le nom du Part, ya plus de soucis mais maintenant j'aimerais récupérer des propriétés ajoutés (N° de plan, nom du dessinateur...). Gawel propose de voir du coté des UserRefProperties, mais je bloque quand meme. voila ce que j'ai essayer : DrwTexts.GetItem("num_plan").Text = ProductDrawn.UserRefProperties.Item("N° de plan") Si quelqu'un a des infos pour approfondir cette voie. Merci d'avance

Bonjour à tous, je suis nouveau sur le forum. Comme beaucoup de monde ici j'ai crée une macro pour le cartouche de mon entreprise en m'inspirant de ceux de DS. Ma macro est donc en VB Script et elle marche nickel (sauf que j'arrive pas encore à intégrer les références, masse et matière du part). Voila mon problème : je souhaite rajouter quelques fonctions, notamment un formulaire pour remplir different champs, mais c'est pas possible en script (a part inputbox qui ne m'interesse pas). Donc il faudrait que je passe en VBA (utilisation d'Userform) mais là y'a un problème de compatibilité (normal). Est ce que tout est à refaire ? Quelles sont différences (pour catia) entre VB Script et VBA ? Peut-on seulement adapter les syntaxes qui coincent ? Est-ce que vous connaissez les syntaxes qui peuvent coincés ? Et sinon quelqu'un aurait-il des exemples de macro VBA pour Catia ? Merci d'avance.

Salut, La commande shell existe bien. As-tu essayer en indiquant le chemin complet de ton application ?

Salut, je ne sais pas de quel cartouche tu parles, si c'est un perso, il serait peut etre bon de l'adapter au format de la feuille comme le font les cartouches par defaut de catia. Ca doit pas etre pratique de travailler uniquement avec du A4.

Salut, je suis également en train de faire le cartouche de mon entreprise et j'ai quelques réponses pour toi: 1- inseré une image ou un logo, c'est dans la doc catia: Dim MySheet As DrawingSheet Set MySheet = CATIA.ActiveDocument.Sheets.ActiveSheet Dim MyView As DrawingView Set MyView = MySheet.Views.ActiveView Dim MyDrawingPicture1 As DrawingPicture Set MyDrawingPicture1 = MyView.Pictures.Add("C:\tmp\ball.bmp", 100., 50.) t'indique le chemin et la position, ensuite il faut fouiller dans les propriétés de DrawingPicture pour modifier la taille. 2- pour le texte Set Text = DrwText.selection Text.SetFontName 0, 0, "Swis721 BT" je n'ai pas trouvé comment mettre en italique et gras, ce sont des propriétés qui existent mais aparemment pas pour DrawingText. (quelqu'un a t-il une solution ?) 3- pour le lien entre le part et le draw, je planche aussi dessus et ça ne marche pas encore. Avis a ceux qui peuvent nous aider. Naurel