Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
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 p1, p2 As HybridShapePointCoord
Set p1 = factory.AddNewPointCoord(0, 0, 0)
Set p2 = factory.AddNewPointCoord(10, 10, 0)
factory.AddNewLine(p1, p2)
part.UpdateCoding works best on desktop or with an external keyboard.