|
|
第二课练习:
, t! u1 Z/ e+ P* o. V. V/ sSub c5()
$ f" \( C" U0 i. O9 j. B. GDim cc(0 To 2) As Double '声明坐标变量
% j! d- v: g7 w8 F/ t- _0 J) Rcc(0) = 4 '定义圆心座标. n: B7 M/ m1 s( b' G" c
cc(1) = 2/ [* E1 k8 `+ m7 p. _' x
cc(2) = 09 d& h. K, Z7 R. X- ^9 o
For i = 1 To 5 '开始循环
0 Q$ G6 g2 ~4 P [Call ThisDrawing.ModelSpace.AddCircle(cc, i) '画圆' _4 d. p; @9 b5 Z0 @
Next i
9 G" Q7 o( }5 n' ]End Sub
7 v0 t" o# Q% B* Y# \9 T- H b |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?立即注册
x
|