|
|
第三课思考题代码
Sub 画圆()* f( o9 G# X+ v% \5 e
Dim p1 As Variant
' u: ]& h: r2 K) m: C/ ?# l
) {8 K2 M! A1 i' ^9 KDim z As Double
( U* `# E( Y! L8 ^8 _" M% R: ]/ p+ W" \! |
Do
/ l' A9 @9 E0 a0 ]7 s2 a( S U7 ]' p C- A( K( o' r% T
p1 = ThisDrawing.Utility.GetPoint(, "请指定圆心")
7 ?5 w; h+ N: I: \4 N$ k4 e- t. G( U3 x: `5 S2 ]) B4 Y
z = ThisDrawing.Utility.GetReal("请输入半径"); q/ [2 [6 u! C
, l/ f) I8 Q3 ~8 h3 [7 E
Call ThisDrawing.ModelSpace.AddCircle(p1, z)
. q) n- z, R7 y* E6 F) \+ s* X6 b) L( ^# X; }8 A0 \8 {
On Error GoTo err_control% \0 h. M# Q& ?
- I Z# }& t ]
, O* C e) `$ h1 v: Y' d" SLoop* @( ]# e0 g+ M0 I) M# }9 C
% e" N) U, z, m4 B3 r. Zerr_control:! V( o5 g/ }5 e& x& u0 @" a. f
4 C8 h5 N) `" G' ^- b
. f& m3 q2 A, g% T' ?# [
! F+ Z6 y& Q- E5 l" ] y V+ c4 H1 i9 e, p. }3 ~6 j
End Sub |
|
发表于 2010-1-26 14:08
