Catia V5宏来获取重复点内的坐标(点和平面)

时间:2017-04-27 11:40:22

标签: vba catia

enter image description here

使用Catia V5宏我想获得重复(点和平面)内的点的坐标.1。此重复(点和平面).1位于几何图形集内(图中所示)。

我使用selection.search来选择重复(点数和平面).1。但是我无法获得积分的坐标。

Dim objSel As Selection

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

我想在选择几何图形集(图像中显示的pntRep)后将点坐标导出到txt文件。

1 个答案:

答案 0 :(得分:2)

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

因此,要获取Repetition的实例,您需要做的就是将他作为HybridBody进行威胁,您不需要使用Selection.Search方法来获取它,您可以执行以下操作:< / p>

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对象可能就是你的点。

请注意,此代码将遍历所选内部的所有内部几何图形集,在第一级中查找其中的所有元素。

相关问题