Catia V5 macro pour accéder au système d'axe à l'intérieur d'un ensemble géométrique

Question

En utilisant une macro Catia V5 Je veux sauver le système d'axes et d'autres éléments géométriques à l'intérieur d'un ensemble geometic dans un fichier txt. Je suis capable d'accéder aux éléments géométriques comme les points et les lignes mais pas le système d'axes (Illustré dans l'image).

« Procédure pour accéder aux éléments geometic à l'intérieur d'un ensemble géométrique

Dim prtDoc As Part 
Dim hbds As HybridBodies 
Dim hbs As HybridShapes 
Set hbs = hbds.GetItem(objSel.Item2(1).Value.Name).HybridShapes 

Pour accéder à l'élément géométrique et obtenir son type

MsgBox TypeName(hbs.Item(i)) 

Mais comment accéder au système d'axes?

Answer 1

Le système Axis ne peut pas être trouvé à l'intérieur d'un ensemble géométrique passant par des points à l'intérieur via API. A hybridBody (Geometrical Set) ne laissent passer que nous vérifions qu'il est HybridShapes, HybridBodies et Sketches, et un système Axis est aucun d'entre eux

Vous Beeing en mesure d'obtenir Lines, Points, et les autres itens parce qu'ils sont tous Pour autant que je sache, le seul moyen d'obtenir l'objet Axis System à l'intérieur d'un ensemble géométrique est la méthode Selection.Search.

En supposant que vous avez le SYSC Set dans votre Géométrique sélection, vous pouvez effectuer les opérations suivantes:

Dim Selecion as INFITF.Selection 
Dim AxisSystem as INFITF.AxisSystem 
'Initialize Selection and other code here 
Selection.Search("'Part Design'.'Axis System';sel") 
for i = 1 to Selection.Count2 
    set AxisSystem = Selection.Item2(i).Value 
    '... 
Next