|
|
第三课思考题代码
Sub 画圆()2 j1 Q3 e: P6 U% n+ ?" Z
Dim p1 As Variant- S6 t2 y% n; g4 S/ f- i
6 U7 r7 n* H- E4 ~/ ]1 R, w: tDim z As Double2 C! \* ~" d8 @+ L( k, a) I
& c9 p& r0 g1 ?% V6 L0 @6 s, G
Do
% c# y( i# K* ~0 O5 f3 ]! ?! ]# O: l( v- H
p1 = ThisDrawing.Utility.GetPoint(, "请指定圆心")" l; N% N6 x" I
" Q4 j; K6 u( S) D6 Hz = ThisDrawing.Utility.GetReal("请输入半径")
" p6 w. B9 |% [; } c& Z! H, b6 o4 I- G+ a% C. `3 W( D
Call ThisDrawing.ModelSpace.AddCircle(p1, z)
& K* C4 G/ \- G# ~& ^
" S |9 Y9 N) |% m: P" m; Z" m! vOn Error GoTo err_control
, y: Q, a$ u6 F) P$ F
3 x: E# I* w+ R! S7 w. J0 c% | m' g# l4 Q2 V
Loop1 p1 C$ m* R- V5 b' J9 J# s1 ?, k$ T
1 e- \- @% k) O
err_control:
. k% I3 B) ^" N! C% q3 Z- q# ^: P+ ]! s4 T9 A7 d& U
, A9 R- Y# J4 u8 W* V- k5 G# f
7 A8 \4 G9 O/ g) J$ ?/ b
7 X9 m; M% g$ e( Z+ ?7 L. r5 C7 EEnd Sub |
|