Auto CAD VBA画100个圆
2011-03-19 20:47 精诚所至 金石为开 阅读(494) 评论(0) 编辑 收藏 举报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.
