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 HybridShapeFactory
Set factory = part.HybridShapeFactory
Dim i As Integer
For i = 1 To 5
Dim pt As HybridShapePointCoord
Set pt = factory.AddNewPointCoord(0, 0, i*10)
Next i
part.UpdateCoding works best on desktop or with an external keyboard.