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 hybridShapeFactory As HybridShapeFactory
Set hybridShapeFactory = part.HybridShapeFactory
Dim point As HybridShapePointCoord
Set point = hybridShapeFactory.AddNewPointCoord(10, 20, 30)
part.UpdateCoding works best on desktop or with an external keyboard.