|
|
本课主要任务是对上一课的例程进行详细分析
- b2 D" s& T- A+ |' ]- f
2 v( B8 R# R, L下面是源码:
' q& O" w E7 ^* E! o0 LSub c100()! h6 }% E3 y$ c, `+ ]
Dim cc(0 To 2) As Double '声明 ...& e2 s: J) d% j1 t; s) L
cad 发表于 2006-4-14 13:19  " K( w( V6 [7 X* p% Q: ]7 l
( \2 p8 }" i7 s) p
O1 S/ G! i! i- Q8 l Dim cc(0 To 2) As Double '声明坐标变量3 L+ |/ C( B) j7 E5 l4 E9 u
cc(0) = 4 '定义圆心座标, f9 ~7 J9 x9 Y1 E0 M
cc(1) = 26 S8 @* y a8 a/ i7 U
cc(2) = 0/ S5 [/ e! n+ p" @
For i = 1 To 5 Step 1 '开始循环8 J/ }% \% e! j1 h
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 1) '画圆 j1 e7 P; L) t6 o
Next i |
|