Auto CAD VBA画100个圆

Auto CAD VBA画100个圆，代码如下。

Sub CreateCircles()
Dim cc(0 To 2) As Double
cc(0) = 100
cc(1) = 100
cc(2) = 0
For I = 1 To 1000 Step 10
Call ThisDrawing.ModelSpace.AddCircle(cc, I * 10)
Next I
End Sub

代码完。

It is the first step that is troublesome.