|
|
第三课思考题代码
Sub 画圆()
) j- R# N5 [5 W( s6 [1 YDim p1 As Variant
9 V1 i# b. W7 K3 h; u0 A$ U
: [# R& c5 v" J/ [/ s+ @4 EDim z As Double& C( b+ m/ c4 ~0 a: v
9 F7 x: G& F% u8 C& TDo
- n ^, ^ F) T( D
5 q$ o- T$ e- X. N J1 E+ lp1 = ThisDrawing.Utility.GetPoint(, "请指定圆心")3 t4 }4 O6 \( U/ I- z. ~* C, S
' c$ s% ]# N0 ?9 l7 a1 @( V% Wz = ThisDrawing.Utility.GetReal("请输入半径")% w; _, u7 }! h- Y& P
' ~" X; d, Q7 e! z9 I) ?% i- F
Call ThisDrawing.ModelSpace.AddCircle(p1, z)
* @& ]5 V) B3 E' Q8 w- e$ @& @1 ]
On Error GoTo err_control
6 f9 N/ `5 M2 h- p9 ]$ ^( X3 x) E, s' k
; e. r @% D! X3 P
6 I: b& q* m7 L8 x" gLoop
' r& m* _( S' t3 m* `2 K
2 o" M% b) T' p5 Derr_control:
5 S% }0 V! L' J5 w6 d6 o$ Q8 m" v: D
9 a4 P, X4 F) A. a
+ u7 [. ^9 |# \; r7 c( z. X7 N
+ v7 ]* q& @- EEnd Sub |
|
发表于 2010-1-26 14:08
