|
|
连续圆
7 F! `, I2 r" s. [0 l! BSub myl()
0 r) C7 Q. P' w1 Q7 rDim p1 As Variant '申明端点坐标
6 V- u) c" Q* E, k) D- ?Dim p2 As Variant
0 m, A: h! s" U# m3 Fp1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
* @+ W6 e% x1 x8 ?( c% o5 f* i0 V0 r w4 L
On Error GoTo Err_Control '出错陷井: r$ i u6 e" |+ ^7 O( g9 @! h; n7 e
Do '开始循环* c! v" d# G b, C2 f' b" i4 y3 u
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径2 M. q6 l3 G1 n# n9 U* t0 y
2 N5 P, s' z0 ^# Y$ t7 T+ d Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆
& a# A4 c' \! r) K' ? 6 v$ ?7 z3 ], B! M4 b J5 ^
Loop. t3 O: C: q' c6 I
Err_Control:5 b6 g7 x1 h- g
" p1 R; c5 X5 a& F4 q. F- h
% e6 E# a& u# k7 \/ {$ nEnd Sub |
|
发表于 2006-12-30 20:58
