|
本课主要任务是对上一课的例程进行详细分析
0 N. j! k& w h* }. O3 n; d; J6 u% r; a# q) S w/ Q- _
下面是源码:/ G# V4 ^, S6 S: M; T
Sub c100()& K" z. [2 @3 {* I; Z# M# w( J
Dim cc(0 To 2) As Double '声明 ...
- z3 e! E* J2 f" ?3 Vcad 发表于 2006-4-14 13:19 
: _; g" K/ q7 V. ?
" Z+ R5 x3 ^( I; `, L. P8 i, m$ L7 M; v3 {: Q
Dim cc(0 To 2) As Double '声明坐标变量( U+ a4 _; Y6 p
cc(0) = 4 '定义圆心座标5 K) m5 x: u3 z
cc(1) = 2
" b4 `9 H& v/ k$ icc(2) = 0! B$ `8 f7 h+ J( _ O
For i = 1 To 5 Step 1 '开始循环
' o# j3 v( ^' _* `" ~- m Call ThisDrawing.ModelSpace.AddCircle(cc, i * 1) '画圆
- T g; B$ U" I" f% ^7 E. KNext i |
|