|
|
第三课思考题代码
Sub 画圆()
' F; F% Z$ e+ v: u% d) @Dim p1 As Variant6 U( Z) i; @( V+ _+ h
( H3 c2 h, u# l; d: o8 fDim z As Double8 c0 m2 X; {1 o& i& Z
2 m9 u# A& k* l( b. O1 w
Do( d, M7 B9 f) f3 L* R) _
a( l4 \2 |9 g8 ?& U, |8 r6 m3 p
p1 = ThisDrawing.Utility.GetPoint(, "请指定圆心")
5 p: |5 x5 h, w+ U# R& ~! |5 j8 B: M+ Z! ]5 C
z = ThisDrawing.Utility.GetReal("请输入半径")) }4 t( j) ~4 a6 \8 V$ O, ?
' x! ]. F7 L+ X W, `& h
Call ThisDrawing.ModelSpace.AddCircle(p1, z)
1 S7 q! Z& C3 b3 r, c0 g J9 g
F$ r' a' c! h" {$ MOn Error GoTo err_control5 ?( Q% m9 C6 C
, ? Y3 ?& {* U7 q4 t1 z4 _ U2 i2 k. g7 m' z! e
Loop
' n3 Q' {$ b6 ]' ?5 f% q1 D' ^# c
err_control:
1 [ \4 l+ q. g
0 W* G4 Z) T0 x- e5 }9 ^( b4 c, e5 L% b* d
( I1 ^" `( B2 r; B
+ P: Q; V/ s" v# q: a* N
End Sub |
|
发表于 2010-1-26 14:08
