Mode:
Duration:
1
2
3
4
5
6
7
8
9
Dim partDoc As PartDocument
Set partDoc = CATIA.ActiveDocument
Dim part As Part
Set part = partDoc.Part
Dim selection As Selection
Set selection = partDoc.Selection
selection.Add part
selection.Rotate 0, 0, 0, 45
part.UpdateCoding works best on desktop or with an external keyboard.