peter.petrelli

Je viens de penser la commande fonctionne aussi en catscript? et la je suis larguée jy arrive plus. En plus je dois rendre le rapport dans 10jours :(

Bon j'ai un souci, il me dit que j'indique pas la bonne bibliotheque de macro. Et le problème c'est que je ne sais pas quel objet récupère toutes les macros.

merci de ta réponse, je vais tester ça ce soir.

salut à tous Tout est dans le titre enfin presque. Je voudrais pourvoir lancer une macro par l'intermédiaire d'un autre macro. Je dois gérer les position d'objet, et j'aimerai pouvoir renseigner que les coordonnées d'un objet. Et donc d'utiliser une macro pour le choix qui lance la macro concerné. C'est aussi pour réduire la taille des macros les rendre plus accessible et pour l'exemple que je prépare il n'y a que 4 objets mais en utilisation, le nombre d'objet pourra etre plus important. Voila si vous m'avez compris merci de me repondre a plouch

C'est bon j'ai travailler de mon coté et trouver la solution, c'était un problème d'espace ;) Sinon j'utilise la macro suivante pour modifier la position de mon objet mais j'ai un problème de déformation quand je modifie plus d'un angle. Dim iAxisComponentsArray( 11 ) ' x axis components iAxisComponentsArray( 0 ) = cos(Orien_table_alpha)*cos(Orien_table_beta) iAxisComponentsArray( 1 ) = sin(Orien_table_alpha)*cos(Orien_table_beta)*cos(Orien_table_gamma)+sin(Orien_table_beta)*sin(Orien_table_gamma) iAxisComponentsArray( 2 ) = cos(Orien_table_beta)*sin(Orien_table_alpha)*sin(Orien_table_gamma)-sin(Orien_table_beta)*cos(Orien_table_gamma) ' y axis components iAxisComponentsArray( 3 ) = -sin(Orien_table_alpha) iAxisComponentsArray( 4 ) = cos(Orien_table_alpha)*cos(Orien_table_gamma) iAxisComponentsArray( 5 ) = cos(Orien_table_alpha)*sin(Orien_table_gamma) ' z axis components iAxisComponentsArray( 6 ) = cos(Orien_table_alpha)*sin(Orien_table_beta) iAxisComponentsArray( 7 ) = sin(Orien_table_alpha)*sin(Orien_table_beta)*cos(Orien_table_gamma)-sin(Orien_table_gamma)*cos(Orien_table_beta) iAxisComponentsArray( 8 ) = sin(Orien_table_alpha)*sin(Orien_table_beta)*sin(Orien_table_gamma)+cos(Orien_table_beta)*cos(Orien_table_alpha) ' origin point coordinates iAxisComponentsArray( 9 ) = Posit_table_x iAxisComponentsArray( 10 ) = Posit_table_y iAxisComponentsArray( 11 ) = Posit_table_z Product2.Position.SetComponents iAxisComponentsArray Quelqu'un sait pour quoi l'objet se déforme?

J'ai besoin d'une correction sur cette macro. Language="VBSCRIPT" Sub CATMain(Posit_table_x,Posit_table_y,Posit_table_z,Orien_table_alpha,Orien_table_beta,Orien_table_gamma) Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim product1 As Product Set product1 = productDocument1.Product Dim products1 As Products Set products1 = product1.Products Dim product2 As Product Set product2 = products1.Item("table.1") Dim parameters1 As Parameters Set parameters1 = product1.Parameters Dim length1 As Parameter Set length1 = parameters1.Item("Posit_table_x") length1.Value = Posit_table_x Dim parameters2 As Parameters Set parameters2 = product2.Parameters Dim length2 As Parameter Set length2 = parameters1.Item("Posit_table_y") length2.Value = Posit_table_y Dim parameters3 As Parameters Set parameters3 = product2.Parameters Dim length3 As Parameter Set length3 = parameters1.Item("Posit_table_z") length3.Value = Posit_table_z Dim parameters4 As Parameters Set parameters4 = product2.Parameters Dim length4 As Parameter Set length4 = parameters1.Item("Orien_table_alpha") length4.Value = Orien_table_alpha Dim parameters5 As Parameters Set parameters5 = product2.Parameters Dim length5 As Parameter Set length5 = parameters1.Item("Orien_table_beta") length5.Value = Orien_table_beta Dim parameters6 As Parameters Set parameters6 = product2.Parameters Dim length6 As Parameter Set length6 = parameters1.Item("Orien_table_gamma") length6.Value = Orien_table_gamma Dim oAxisComponentsArray ( 11 ) product2.Position.GetComponents oAxisComponentsArray Dim iAxisComponentsArray( 11 ) ' x axis components iAxisComponentsArray( 0 ) = cos(Orien_table_alpha)*cos(Orien_table_beta) iAxisComponentsArray( 1 ) = sin(Orien_table_alpha)*cos(Orien_table_beta)*cos(Orien_table_gamma)+sin(Orien_table_beta)*sin(Orien_table_gamma) iAxisComponentsArray( 2 ) = cos(Orien_table_beta)*sin(Orien_table_alpha)*sin(Orien_table_gamma)-sin(Orien_table_beta)*cos(Orien_table_gamma) ' y axis components iAxisComponentsArray( 3 ) = -sin(Orien_table_alpha) iAxisComponentsArray( 4 ) = cos(Orien_table_alpha)*cos(Orien_table_gamma) iAxisComponentsArray( 5 ) = cos(Orien_table_alpha)*sin(Orien_table_gamma) ' z axis components iAxisComponentsArray( 6 ) = cos(Orien_table_alpha)*sin(Orien_table_beta) iAxisComponentsArray( 7 ) = sin(Orien_table_alpha)*sin(Orien_table_beta)*cos(Orien_table_gamma)-sin(Orien_table_gamma)*cos(Orien_table_beta) iAxisComponentsArray( 8 ) = sin(Orien_table_alpha)*sin(Orien_table_beta)*sin(Orien_table_gamma)+cos(Orien_table_beta)*cos(Orien_table_alpha) ' origin point coordinates iAxisComponentsArray( 9 ) = Posit_table_x iAxisComponentsArray( 10 ) = Posit_table_y iAxisComponentsArray( 11 ) = Posit_table_z Product2.Position.SetComponents iAxisComponentsArray End Sub [/code] Donc en gros lorsque je lance cette macro une fenetre apparait je tape mes valeurs, et la macro s'occupe de modifier les valeur des paramètres et de positionner l'objet. Mais j'ai une erreur à la ligne 24 "length1.Value = Posit_table_x" Je sais pas qu'elle est le problème es ce que quelqu'un pourrai m'aider j'ai plus que 15 jours avant de rendre se projet. merci d'avance

Salut J'ai besoin d'aide, donc je suis en train de faire une macro pour gerer la position et l'orientation d'un part dans un product. Donc j'ai 6 paramétres pour chaque part dans mon product, et j'aimerai savoir comment fais ton pour sans rouvrir la macro on remet à jour les paramètres inscrit dans la macro En gros exécuter une macro sans aller la chercher dans le menu d'avance merci [Edité le 28/5/2007 par peter.petrelli]