python catia二次开发_CATIA使用VBA（VBS）二次开发时部件集的创建和遍历 | 坐倚北风...

下面以几何元素部件集Geometrical set的选择、创建、遍历和元素的插入为例介绍在CATIA中使用VBA(VBS)二次开发时部件集的操作方法。

Sub catmain()

'Geometrical set 的选择

Dim iSelection

Set iSelection =CATIA.ActiveDocument.Selection

Dim iStatus, iType(0)

iType(0) = "HybridBody"

iStatus = iSelection.SelectElement2(iType,"Please select the Geometrical Set with center points", False)

If iStatus = "Redo" Or iStatus ="Undo" Or iStatus = "Cancel" Then

Exit Sub

End If

Dim iName, iHB, sHB

iName = iSelection.Item(1).Value.Name

Set iHB = CATIA.ActiveDocument.Part.HybridBodies.Item(iName)

'Geometrical set 的创建

Set sHB =CATIA.ActiveDocument.Part.HybridBodies.Add

sHB.Name = "www.leanwind.com"& Now

Dim iHSF, iPoint, iSphere, iRadius

iRadius = InputBox("Please