Catia V5宏获取重复内点的坐标（Points and Planes）

Question

我想使用 Catia V5 宏获取 Repetition(Points and Planes).1 中点的坐标。此 Repetition(Points and Planes).1 在几何集合中（如图所示）。

我已经使用 selection.search 到 select 重复（点和平面）。1。但是我无法获取点的坐标。

Dim objSel As Selection

objSel.Search "'Generative Shape Design'.'Repetition (Points and Planes)',sel"

我想在 select 几何集（图中显示的 pntRep）后将点坐标导出到 txt 文件。

Answer 1

Repetition (Points and Planes) 对象被威胁为 HybridBody，与 GeometricalSet 相同。

所以，要得到Repetition的实例，你只需要将他当做一个HybridBody来威胁，你不需要使用Selection.Search的方法来得到它，你可以按照下面的方式进行:

Dim HybridBodypntRep as HybridBody
dim HybridBodyInternal as HybridBody
set HybridBodypntRep = objSel.item(1).value
for i = 1 to HybridBodypntRep.HybridBodies.Count
    set HybridBodyInternal = HybridBodypntRep.HybridBodies.Item(i)
    for j = 1 to HybridBodyInternal.HybridShapes.Count
        'Here you will have access to all points and planes inside the Repetition
        dim Element as HybridShape
        set Element = HybridBodyInternal.HybridShapes.Item(j)
        'Element is probably your point, just check it
next

Element 对象可能是您的点。

请注意，此代码将循环遍历所选对象内的所有内部几何集，在第一级并查找其中的所有元素。

Catia V5宏获取重复内点的坐标（Points and Planes）

Catia V5 macro to get the coordinates of the points inside repetition(Points and Planes)

vba

catia