|
|
连续圆
4 U3 m9 K" z1 Y; h6 t3 ISub myl()& E) v+ Y( v; ]. w O3 o
Dim p1 As Variant '申明端点坐标
+ I) R( q1 f6 e1 w9 L% _Dim p2 As Variant5 @3 o/ h! P9 W
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
5 L1 v' h( O% o( w3 `
. y' |4 C& ?" m, B$ X- }) \+ ZOn Error GoTo Err_Control '出错陷井) a' c. d2 U. O) U4 Y
Do '开始循环- W7 Q& V3 m- X* u8 H; Y7 v
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径; Z1 J1 g( a9 \* A/ I3 a' z# A
& H- q' _. z$ A
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆1 L4 s: [+ p" Y9 \' F# m! r7 d$ p# ^
5 l- n+ H+ J2 w0 h7 `5 PLoop
4 m+ h& b9 Q( O7 D2 yErr_Control:
: r: F! {/ \. c; ~; i- Z
& q) ], ~2 `% \, ]$ @5 ?% g9 V' f, u$ M) }4 X0 i4 ~/ ~( f& n
End Sub |
|
发表于 2006-12-30 20:58
