|
|
连续圆; c% ^ V+ N( K( O* _ o- P
Sub myl()
) E+ V3 H$ j! w% }( l( W% \( eDim p1 As Variant '申明端点坐标
) \/ k+ p4 X3 `0 ]8 H) F$ l6 n6 g+ N$ QDim p2 As Variant
2 y) F3 c& y; f- t% \: xp1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标: k) y( i% U$ S. V
0 {" ] n) y2 ~# [On Error GoTo Err_Control '出错陷井; K, n: k) u0 D) `% K I0 Z
Do '开始循环
: @1 ~7 G+ m. }0 | p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径5 @* Y& s% u0 J# k3 x2 x4 Z
. k4 j6 {4 y* O2 L' C
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆+ K5 B- A$ }+ v! P h
. V6 Q! C0 j4 J- r ^
Loop
8 l" W% j( \- c9 S5 A3 `Err_Control:
) g; h4 d$ c. N- Q1 E) ]( T+ U1 W) B; h' V4 S# H
_& t# T6 d3 r, C% ^" Q2 i9 |End Sub |
|
发表于 2006-12-30 20:58
