|
第三课思考题代码
Sub 画圆(): I$ _) @/ ~# I* X+ K) o; s
Dim p1 As Variant
& T q% q Y' A: E1 M, j" D" O5 N( S
5 G' ^& p, Z2 |) J7 y9 P, O. IDim z As Double+ s+ T3 ^1 t8 V% y
* i+ p' F9 s p8 R# Y& ?! }- uDo
# L* _0 @. a( _( Q o
! _+ }. k& M! [p1 = ThisDrawing.Utility.GetPoint(, "请指定圆心")
$ B/ C* \4 H. k. B- l) c5 N3 ^7 ^' V ]& ~+ L7 h9 Z2 L
z = ThisDrawing.Utility.GetReal("请输入半径")( t& T% {1 ]( b" ?
+ c7 @7 g9 O! W# E% K+ a5 W# ~4 VCall ThisDrawing.ModelSpace.AddCircle(p1, z)
; _% O+ g' C( E* N# _) i8 F" e* W! ?7 ~) d
On Error GoTo err_control
: b' N& V: r+ m. K3 E) R1 m0 g$ O p3 i3 w! K7 \
- {/ W' s7 x1 b$ @4 {3 J& H0 C
Loop d9 a$ q+ u' U4 T# i, N
8 c# J' _5 b- n" l- }4 ~err_control:5 r2 C2 ] u' J8 J
2 \. c$ [# {/ t- q8 y2 q
7 o) k* p3 M" U
# M5 P: Z- M; n9 q: f) P
8 a2 @( s5 ~5 w8 x* C KEnd Sub |
|