Vba Catia V5宏，用于访问几何图形集中的轴系统

使用Catia V5宏，我希望将几何图形集中的轴系统和其他几何元素保存为txt文件。我能够访问点和线等几何元素，但无法访问轴系统（如图所示）

访问几何图元并获取其类型的步骤

MsgBox TypeName(hbs.Item(i))

---

但是如何访问axis系统呢

通过CATIA API循环子项，无法在几何图形集中找到轴系统。

杂交体

（几何体集）仅包含

杂交形状

、

杂交体

和

草图

您可以看到

行

，

点

，以及其他类似的项目，因为它们都是

混合形状

据我所知，获取几何集中的轴系统对象的唯一方法是通过

选择.Search

方法

假设在选择中设置了CSYS几何体，则可以执行以下操作：

Dim Selection 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

---

我真的不认为在几何集合中有一个轴系统。此外，您选择的图元是什么？选定图元是一个几何集。我想将所有必需的数据导出到文本文件中。几何集（CSYS）包含我想要的所有数据，如图所示。我的实际几何集包含直线、圆、圆弧。我可以导入除本地axis系统之外的所有系统。请查看我发布的答案，看看它是否对您有帮助。谢谢AugustoQ。现在，我可以使用搜索和选择导出axis系统数据。

Dim Selection 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