|
|
第三课思考题代码
Sub 画圆()
/ h' K% g' n3 ^. z, a/ cDim p1 As Variant' }6 q! C' m Y H" H3 O2 B
& b& w9 ^0 A; R! oDim z As Double1 L) N8 a8 L+ P( h( ^. ?
' ~9 [2 j! F, N) l% m
Do2 e. ^6 E4 J9 V+ Q( d5 d* `& E8 z
* d9 s6 i S: n/ t! Hp1 = ThisDrawing.Utility.GetPoint(, "请指定圆心")
3 p8 A' P6 ^8 ^ E6 F
* V8 v6 ^( n7 ?4 k4 n" s1 \z = ThisDrawing.Utility.GetReal("请输入半径")/ P* o }% }, z" s9 u2 z; y- E# U- e
: m- E+ K2 C) t. e2 v) }, o0 |
Call ThisDrawing.ModelSpace.AddCircle(p1, z)1 [5 z0 U. \% v* @: e: ^% Z: z
: Z7 t! m* n% s& U) j2 \2 `
On Error GoTo err_control
h s6 W( J6 Q7 |+ }
" i3 J# `. @2 h# v' q
- Q" z% S% Y& }' \8 }Loop
' `( O0 W& `* n0 F
; i% d2 a; J7 y7 Oerr_control:7 p6 ]& g! z* V' ?. ]! ~
& @. T, r% F, b
# m: ^# x3 ~( y: F
! T$ C- Y% u2 N8 h. a# q
9 I/ |; d& l. `4 O
End Sub |
|
发表于 2010-1-26 14:08
