在catia中使用vba识别曲面类型

Question

我想找到转储表面中每个面的表面类型，以便我可以提取圆柱面以外的面（即圆角）

我想找到表面类型，但在vba和catia中也找不到它，有什么办法吗？

Answer 1

您可以使用搜索（使用宏记录器搜索字符串）来选择所有子表面并检查这些面的类型。

Sub CATMain()

Dim oDoc As PartDocument
Dim oSel As Selection

Set oDoc = CATIA.ActiveDocument
Set oSel = oDoc.Selection

oSel.Search "Topology.CGMFace,all"

for i=1 to oSel.count2
    if TypeName(oSel.item2(i).value) <> "CylindricalFace" then
        'do something
    end if
next

End Sub