|
|
第二课练习:' K1 }6 o2 C' j8 q S: j7 H
Sub c5()
& x0 j. Q9 v3 p7 T/ `' DDim cc(0 To 2) As Double '声明坐标变量- [: J3 R1 c! h( v; Q4 C. {8 N8 Y+ t
cc(0) = 4 '定义圆心座标) m5 \ u# N' o. u8 k0 e& `
cc(1) = 2
6 m% p) z V, rcc(2) = 0" U5 o. Q. d( l+ [" ^
For i = 1 To 5 '开始循环
- }8 f- i4 o2 z, Z! G0 T6 lCall ThisDrawing.ModelSpace.AddCircle(cc, i) '画圆2 D" P1 o& Z' F) L$ U! s1 i+ p0 g3 L
Next i' [* }) w/ @7 @& x
End Sub
, N# e3 F c- _2 O. K9 ? |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?立即注册
x
|