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 center As HybridShapePointCoord
Set center = part.HybridShapeFactory.AddNewPointCoord(0, 0, 0)
Dim circle As HybridShapeCircleCtrRad
Set circle = factory.AddNewCircleCtrRad(center, 10)
part.UpdateCoding works best on desktop or with an external keyboard.