Code:
Dim CATIA As Object
CATIA = GetObject(, "CATIA.Application") Dim documents1 As Documents
documents1 = CATIA.Documents
Dim partDocument1 As PartDocument
partDocument1 = documents1.Item("P0000_10000_001_FWZ_Steuerpart.CATPart")
Dim product1 As Product
product1 = partDocument1.GetItem("P0000_10000_001_FWZ_Steuerpart")
Dim productDocument1 As ProductDocument
productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
selection1 = productDocument1.Selection
selection1.Clear()
Dim part1 As Part
part1 = partDocument1.Part
Dim hybridBodies1 As HybridBodies
hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
hybridBody1 = hybridBodies1.Item("Positionierung")
Dim hybridBodies2 As HybridBodies
hybridBodies2 = hybridBody1.HybridBodies
Dim hybridBody2 As HybridBody
hybridBody2 = hybridBodies2.Item("Transportsicherungen_Y")
Dim sketches1 As Sketches
sketches1 = hybridBody2.HybridSketches
Dim sketch1 As Sketch
sketch1 = sketches1.Item("Skizze.Punkte_Transportsicherungen_UT_Y")
selection1.Add(sketch1)
selection1.Copy()
Dim product2 As Product
product2 = productDocument1.Product
Dim products1 As Products
products1 = product2.Products
Dim product3 As Product
product3 = products1.Item("P0000_10000_300_FWZ_UT_ZSB.2")
Dim products2 As Products
products2 = product3.Products
Dim product4 As Product
product4 = products2.Item("P0000_10000_001_FWZ_Steuerpart.1")
Dim partDocument2 As PartDocument
partDocument2 = documents1.Item("P0000_10000_310_FWZ_UT.CATPart")
Dim part2 As Part
part2 = partDocument2.Part
selection1.Add(part2)
selection1.PasteSpecial("CATPrtResult")
part2.Update()