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