Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
Dim partDoc As PartDocument
Set partDoc = CATIA.ActiveDocument
Dim part As Part
Set part = partDoc.Part
Dim factory As ShapeFactory
Set factory = part.ShapeFactory
Dim i As Integer
For i = 1 To 5
Dim line As Line
Set line = factory.AddNewLineCoord(i*10, 0, 0, i*10, 10, 0)
Next i
part.UpdateCoding works best on desktop or with an external keyboard.