|
|
连续圆+ ~, E7 E) F: C. c1 m/ i+ F% H
Sub myl()
$ S! e8 B* ^* |* [% `Dim p1 As Variant '申明端点坐标2 s' o7 J9 v* A' r6 g
Dim p2 As Variant6 n2 P8 U" ]0 g# I
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标" e" G2 _4 [' l! o: G/ Q- E
h" ~, M0 H4 [& F1 _) d3 e1 S
On Error GoTo Err_Control '出错陷井
) L- Z3 x- |, e3 D) b, DDo '开始循环
1 [; }4 `$ u5 G. \+ C9 P# V9 V$ A p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
7 P5 G7 p h- s- ?( V6 o2 r& ^! t8 K6 W& t2 ?2 x4 M4 r
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆3 m" e- ]. G' M! G: J; H( A
& w' r3 q! |4 A8 J1 n
Loop! k% u% r% F: w+ T5 ^
Err_Control:
3 L: J6 \ }' c; x! i. o6 u& Y: g/ j% y5 W" K3 g) _* S! \
6 p+ |$ \! X4 w1 z( |, _End Sub |
|
发表于 2006-12-30 20:58
