|
|
第二课练习:
2 h4 A& y. ?7 j0 |0 u0 U5 FSub c5()
: b' n1 p8 O- D7 KDim cc(0 To 2) As Double '声明坐标变量
+ j! g. d1 [% O6 m0 P# Q8 O& scc(0) = 4 '定义圆心座标
( X3 l; I+ T( M8 C' X. \7 {cc(1) = 2' t, ]0 g$ I- r }% w- A6 R
cc(2) = 0- c& V# t( K* P- j
For i = 1 To 5 '开始循环4 ~5 j, v) k6 K1 a2 B6 {( { n3 g
Call ThisDrawing.ModelSpace.AddCircle(cc, i) '画圆2 } z0 a8 |! R; Z
Next i
, o7 H/ K. d% y6 WEnd Sub" i) @7 \5 A1 k0 p+ c5 J% B& N
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?立即注册
x
|