ggg

1. Read all objects in Partbody Sub CATMain() Dim part1 As Part Set part1 = CATIA.ActiveDocument.Part Dim bodies1 As Bodies Set bodies1 = part1.Bodies Dim body1 As Body Set body1 = bodies1.item(1) Dim shapes1 As Shapes Set shapes1 = body1.Shapes Dim shape1 As Shape Dim i As Integer For i...