|
|
连续圆
8 l Q5 @; ]& c; [$ \5 aSub myl()
& Y. N# m* @" t' G& [Dim p1 As Variant '申明端点坐标" h3 t/ L. Y; l8 h5 O1 l
Dim p2 As Variant8 G8 C$ @6 e) a M2 _7 q
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
8 N4 _+ ]0 l" U( L; T
+ h* J8 K7 W' Q5 u3 J; @4 ?( J1 yOn Error GoTo Err_Control '出错陷井: A2 o4 N# L; Y+ ^1 G* H
Do '开始循环, M( K. g; a! b6 v; Z# S
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径1 G7 @5 r' h+ B/ @/ C3 G, H
% ~# h4 E# i+ T9 V2 { Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆# C7 P9 [$ H8 N& k
6 Q1 X: L! }) j8 a( U5 U3 fLoop
" }, z9 Z3 e1 ^: Y& Y) cErr_Control:
: U$ C( ~) T& \% a, V6 o/ U/ ]
0 J$ W2 a0 h+ @, o" W9 K% G% M ~# ~
End Sub |
|
发表于 2006-12-30 20:58
