|
|
第三课思考题代码
Sub 画圆()2 j3 Y/ v+ L6 O6 o
Dim p1 As Variant
9 J, G2 l# b! Q) M& J$ j- C+ N p; d; {; ~, ~
Dim z As Double
# H' d9 J4 v$ h, R3 S9 |6 V0 u2 |, Y# ?0 Y0 |. E+ F
Do# ~3 W; |" A) |4 t b6 ?" v2 M
4 A$ E3 M1 ^: z
p1 = ThisDrawing.Utility.GetPoint(, "请指定圆心")
8 r9 |; p. G1 U2 S. i; o! Q, w0 ^7 \5 b1 w2 x
z = ThisDrawing.Utility.GetReal("请输入半径")1 I: J* U2 v: R
4 Z6 n( c2 T1 \4 K. `Call ThisDrawing.ModelSpace.AddCircle(p1, z)
7 e; g: o- [# B! v# t
+ n' Z1 x0 s+ `! jOn Error GoTo err_control) ~! \! k; s6 P
) c5 A/ ^0 S: Y" P5 i( v$ s5 H. D
) i2 v1 H6 {* ~2 cLoop X0 N2 k, O( ?# h$ ~. L! i& Y
: c1 ^; `6 l( T* Z# ~9 berr_control:/ B. H6 }/ i" i3 z/ W
5 D7 i6 d5 K+ i) q8 D" @
- w% C7 Z5 j5 W6 v6 d/ ^* x) d) z$ g* _
2 `+ ]4 S; X0 T% i9 Z3 c
. Q7 p" w, r' B8 P% P& i( {' gEnd Sub |
|
发表于 2010-1-26 14:08
