[VB Catia] déplacement [Résolu]

[gourmand]

Bonjour tout le monde

Je recherche a déplacer un volume sous Catia V5

Pour l’instant j’ais trois méthode possible :

- déplacer l’esquisse mais après un mis dessus je n’obtiens qu’une forme bizarre à la fin.
- Créé des corps est le déplacer a la boussole est possible, mais l’enregistreur de macro n’enregistre pas la fonction
- Créé un assemblage est déplacer les pièces a la boussole. L’enregistreur de macro enregistre la fonction, mais je n’y comprends rien est le problème c’est que je ne sais pas encor créer des pièces dans un assemblage avec une macro.

Il ne me reste plus qu’a prié dieux afin qu’une personne qui sais programmer des macros pour Catia passe par la.

Sinon, je suis ouvert a toute suggestion, ou aide de vautre part.

Merci d’avance.

[gourmand]

j'ais réussi a résoudre le problème en passent par un assemblage et en utilisent la fonction move :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim moveJ1 As Move
    Set moveJ1 = productJoueur1.Move
    Set moveJ1 = moveJ1.MovableObject
    Dim arrayOfVariantOfDoubleA(11)
    arrayOfVariantOfDoubleA(0) = 1#
    arrayOfVariantOfDoubleA(1) = 0#
    arrayOfVariantOfDoubleA(2) = 0#
    arrayOfVariantOfDoubleA(3) = 0#
    arrayOfVariantOfDoubleA(4) = 1#
    arrayOfVariantOfDoubleA(5) = 0#
    arrayOfVariantOfDoubleA(6) = 0#
    arrayOfVariantOfDoubleA(7) = 0#
    arrayOfVariantOfDoubleA(8) = 1#
    arrayOfVariantOfDoubleA(9) = 0#
    arrayOfVariantOfDoubleA(10) = DeplacementJ
    arrayOfVariantOfDoubleA(11) = 0#
    moveJ1Variant.Apply arrayOfVariantOfDoubleA