Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 i As Integer
Dim center As HybridShapePointCoord
Set center = part.HybridShapeFactory.AddNewPointCoord(0, 0, 0)
For i = 1 To 5
Dim circle As HybridShapeCircleCtrRad
Set circle = factory.AddNewCircleCtrRad(center, i*5)
Next i
part.UpdateCoding works best on desktop or with an external keyboard.