|
|
连续圆0 Z& D" x' G9 G3 U1 Y- C8 V
Sub myl()
$ i) w! \' I4 [9 @+ ?& _" F+ GDim p1 As Variant '申明端点坐标* O9 _* E) i; A d0 [/ q
Dim p2 As Variant. E3 X6 x* u0 ^
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
# [5 O# j* c( W
2 E; V6 k. U; [! q4 AOn Error GoTo Err_Control '出错陷井
* K' \1 {5 r" C& ~. M) {Do '开始循环4 T4 T3 g9 q1 H$ Q3 G0 V, s& @
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
4 R' n# p' Z' h+ A6 m7 H1 I7 o
! b& m/ p M! j( S, m& M j! _) A Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆% M1 \$ v0 Q* L' k( n! G
' o4 `9 | S; m3 n8 m. J) d9 ILoop8 ]) {0 e6 ^' I* D6 s
Err_Control:" B. |* q3 l; i8 V6 N
( n! b5 t. s' S) D$ h$ g
9 D; G0 l1 f) [. s9 Z' D1 N* H1 LEnd Sub |
|
发表于 2006-12-30 20:58
