|
|
第三课思考题代码
Sub 画圆()
1 b P7 x' P$ d6 h8 mDim p1 As Variant9 p9 Y' S2 ?1 L* R
; E, F5 c" Q) CDim z As Double
; ?( Y- E0 X: l( F6 _+ S7 g% J
2 T1 ^, h+ _& F+ h4 w- jDo* G: e9 u0 @5 R2 h. |- m1 Q. w
) |1 S/ A2 x/ \& r# f7 O2 Pp1 = ThisDrawing.Utility.GetPoint(, "请指定圆心")
' p' x! N" G2 u4 p1 A; `: V6 o) ]/ Z& k+ S9 m; L/ v
z = ThisDrawing.Utility.GetReal("请输入半径")# x' {: `. j m1 ~- n' @
: }6 Q4 B6 b3 h$ ~
Call ThisDrawing.ModelSpace.AddCircle(p1, z)
9 @+ ? A$ K* t( T: W$ q
+ g3 ^4 K6 Z3 w6 x; v6 j7 {On Error GoTo err_control
8 S: U2 v, J. |7 F
+ M% a/ _5 } b, {8 D3 _3 Q' O6 e3 _* ~ u+ }
Loop: V6 o- z- Z: x$ [9 L" a
) `9 C3 D* y. `0 Q/ G
err_control:
g" d9 v \) B ?! G1 n9 w6 h7 B& W$ ?
6 N }+ W: [4 O4 G- z
. Y2 f# \/ }- r* @/ V* b
- @6 G2 @/ U! g, E' a5 P G! kEnd Sub |
|
发表于 2010-1-26 14:08
