Question

autocad vba画圆

画许多个圆 第一个圆圆心半径固定 以后的圆半径和圆心坐标X值依次同等增加 怎么编程啊

Answer 1

Sub d()

Dim cc(0 To 2) As Double
dim r as double
cc(0) = 1000
cc(1) = 1000
cc(2) = 0
r=100
For i = 1 To 10
cc(0) = cc(0) + 100
r=r + 100
ThisDrawing.ModelSpace.AddCircle cc, r
Next i
End Sub

子易空间站 - VBA培训专家