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.