Automatiser un facteur d'échelle

Bonjour,

je suis novice avec le VBscript. J'en ai jamais fait sur catia.

Je voudrais réaliser une macro qui pourrait me simplifier grandement la vie en automatisant une opération répétitive.

J'ai un CATpart avec plusieurs corps. Je dois appliquer sur chaque corps un facteur d'échelle associé a un paramètre. Cependant, en faisant une macro ce serait beaucoup plus rapide.

J'ai commencé par faire l'enregistrement de la macro mais je me suis apercu que ca ne prenait pas en compte le moment ou je faisais ''éditer formule''.

C'est pourquoi je pense que faire un code VBscript serait parfait.

Il serait constitué des étapes suivantes :

1) compter le nombre de corps dans le part. Sauver ce nombre dans une variable que nous appelerons A.
2) Boucle for
for i = 1 To A
- définir l'objet de travail
- sélectionner l'icone facteur d'échelle
- sélectionner ''point.1'' comme centre
- Dans Ratio aller chercher le paramètre créer au début qui se trouve dans paramètres renommés.
- Valider
- Passer au prochain corps

N'ayant jamais fait de VBscript, je me demandais si un tel code serait difficile a écrire.


En vous remerciant de votre aide.

Si vous avez des exemples ca serait cool.



Merci

En fait mon principal problème est de savoir comment on fait l'appel d'un paramètre dans une macro.

Dans le cas du facteur d'échelle la fonction : SetScaling permet de mettre en place la réduction d'échelle mais ca m'affiche un truc du genre :

Setscaling(reference1, 1.00) . Ce qui me dérange c'est le 1.00 car je ne veux pas une constante mais bien un paramètre à ce niveau là en argument.


Si vous avez une idée....