|
|
连续圆
8 E* F: H5 _( G R+ r( ]* @Sub myl()! u9 t E! `3 Y0 L
Dim p1 As Variant '申明端点坐标. a, ^6 r; a4 s: ^: G$ H
Dim p2 As Variant( H* g# F$ P0 X& F% G
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标5 W, @& |4 L; N }! w* _5 k0 P
. [# m9 f% @" k& g
On Error GoTo Err_Control '出错陷井- T9 }8 x( C( S, X
Do '开始循环
, |& P9 ]9 {: l* ] p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
. Y4 \+ P- m6 q- E0 F1 {5 D3 c1 ?- ?, o
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆
' q* g2 D- W5 W" u6 M
) `" a5 l2 D- v; f2 _# t! kLoop/ \3 j/ a5 S: ^3 z9 t+ [/ a
Err_Control:: S1 v' n' E+ `+ T
6 K' F5 O& S1 H& s6 K+ r0 X: k/ N, \1 E
& K0 s# x# ]8 u" S! F' D/ x; hEnd Sub |
|
发表于 2006-12-30 20:58
