|
|
第三课思考题代码
Sub 画圆()
; E7 X1 W( [, o9 ?Dim p1 As Variant2 I! h9 V1 c o! j' u
: ~1 u/ g p9 O' zDim z As Double# X8 i2 _. m' j# w0 _- @
* r' W# T, K0 n4 f/ D( z
Do
; u R5 F6 t1 Z! o6 O
4 y4 D# [: K- L" _& sp1 = ThisDrawing.Utility.GetPoint(, "请指定圆心")
) `' v6 j7 ~' o1 z- d3 e( p' h" V; e: c% t
z = ThisDrawing.Utility.GetReal("请输入半径")
8 r {9 m3 g7 f! V& A5 [
& }: Z0 f- \' i" p9 KCall ThisDrawing.ModelSpace.AddCircle(p1, z)
* \/ b0 N) ?; P/ R7 R, s3 ?7 L8 ^9 L1 T, r3 }
On Error GoTo err_control8 L& m2 `( F" q! P, Z
& J+ z& o0 W! @1 S, v, P3 h
4 y& o/ Z4 A! }Loop; I1 K6 V x8 O3 b' b
6 m+ J" K& q( x. B8 l' E
err_control:
6 u/ S' r% ?, a% ~% a; H# _5 P! U
: E9 J4 ^* _2 S9 I' Q( u. ^- R6 O8 [( N: c/ w: g2 {3 u6 s! o
1 t l& P2 S" t+ s+ Q
2 _4 m; Y+ i4 o+ G6 g9 n
End Sub |
|
发表于 2010-1-26 14:08
