Catia V5 宏用于访问几何集中的轴系统

【问题标题】：Catia V5 macro to access axis-system inside a geometric setCatia V5 宏用于访问几何集中的轴系统
【发布时间】：2017-04-19 13:02:52
【问题描述】：

使用 Catia V5 宏，我想将几何集内的轴系和其他几何元素保存到 txt 文件中。我可以访问点和线等几何元素，但不能访问轴系（如图所示）。

'Procedure to access the geometic elements inside a geometric set    
Dim prtDoc  As Part
Dim hbds As HybridBodies
Dim hbs As HybridShapes
Set hbs = hbds.GetItem(objSel.Item2(1).Value.Name).HybridShapes

访问几何元素并获取其类型

MsgBox TypeName(hbs.Item(i))

但是如何访问轴系统？

【问题讨论】：

我真的不认为你应该在几何集合中拥有一个轴系。另外，您选择的元素是什么？
所选元素是一个几何集合。我想将所有必需的数据导出到文本文件。几何集（CSYS）包含我想要的所有数据，如图。
我的实际几何集包含直线、圆、弧。我可以导入除本地轴系统以外的所有系统。
查看我发布的答案，看看是否对您有帮助。

标签： vba catia

【解决方案1】：

通过 CATIA API 循环遍历子项，无法在几何集中找到轴系。 hybridBody（几何集）仅包含 HybridShapes、HybridBodies 和 Sketches。

你可以看到Lines、Points等项目，因为它们都是HybridShapes。

据我所知，在几何集中获取轴系对象的唯一方法是通过 Selection.Search 方法。

假设您选择了 CSYS Geometrical Set，您可以执行以下操作：

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

【讨论】：

谢谢 AugustoQ。现在，我可以使用搜索和选择导出轴系数据了。