Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Add()

part1.MainBody = body1

Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Clear 

Dim body2 As Body
Set body2 = bodies1.Item("MANIFOLD_SOLID_BREP #101057")

selection1.Add body2

selection1.Copy 

Dim body3 As Body
Set body3 = bodies1.Item("Ergebnis von MANIFOLD_SOLID_BREP #101057")

part1.UpdateObject body3

part1.InWorkObject = Nothing

Dim shapeFactory1 As Factory
Set shapeFactory1 = part1.ShapeFactory

Dim add1 As Add
Set add1 = shapeFactory1.AddNewAdd(body3)

part1.UpdateObject add1

Set partDocument1 = CATIA.ActiveDocument

Dim selection2 As Selection
Set selection2 = partDocument1.Selection

selection2.Clear 

selection2.Add body2

selection2.Delete 

part1.Update 

End Sub