...... Dim productDocument1 As productDocument Set productDocument1 = CATIA.ActiveDocument Dim product1 As Product Set product1 = productDocument1.Product Dim products1 As Products Set products1 = product1.Products Dim product2 As Product Set product2 = products1.Item("Skelett.1") Dim publications1 As Publications Set publications1 = product2.Publications Dim publication1 As Publication Set publication1 = publications1.Item("Skizze.1") Dim reference2 As Reference Set reference2 = publication1.Valuation Set documents1 = CATIA.Documents Set partDocument1 = documents1.Item("Part2.CATPart") Set part1 = partDocument1.Part Dim bodies1 As Bodies Set bodies1 = part1.Bodies Dim body1 As Body Set body1 = bodies1.Item("Gehäuse_Unterteil") part1.InWorkObject = body1 Dim shapeFactory1 As ShapeFactory Set shapeFactory1 = part1.ShapeFactory Set reference1 = part1.CreateReferenceFromName("") Dim pocket1 As Pocket Set pocket1 = shapeFactory1.AddNewPocketFromRef(reference1, 20#) pocket1.ReverseInnerSide pocket1.SetProfileElement reference2 ......