下面以几何元素部件集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 inputSphere radius", "Radius", 3)

Set iHSF =CATIA.ActiveDocument.Part.HybridShapeFactory

'Geometrical set 的遍历

For Each iPoint In iHB.HybridShapes   

   Set iSphere = iHSF.AddNewSphere(iPoint, Nothing, iRadius, -45, 45, 0,180)

iSphere.Limitation= 1

'Geometrical set 中元素的插入

   sHB.AppendHybridShape iSphere

   iSphere.Name = iPoint.Name & "_www.leanwind.com"  

Next

iSelection.Clear

CATIA.ActiveDocument.Part.Update

End Sub

以上代码运行效果如下所示：