Sub CATMain()

On Error Resume Next

' 3D-Werkzeugkasten deklarieren -------------------------------------
Dim APart As Part
Set APart = CATIA.ActiveDocument.Part
Dim Wzk3D As ShapeFactory
Set Wzk3D = APart.ShapeFactory

' Körper deklarieren ------------------------------------------------
Dim Koerper1 As Body
Set Koerper1 = APart.Bodies.Item(1)

'Körper selektieren ------------------------------------------------
Dim Koerperx As Selection
Set Koerperx = CATIA.ActiveDocument.Selection
For i = 1 To Koerperx.Count
    MsgBox Koerperx.Item(i).Value.Name
Next
'Koerperx.Clear

' Körper addieren --------------------------------------------------
APart.InWorkObject = Koerper1
Dim Operation As Add
Set Operation = Wzk3D.AddNewAdd(Koerperx)
APart.Update

End Sub