|
|
连续圆
" E/ n5 X: T5 @6 L# p } V( |Sub myl()( H" U! d0 q4 Q3 g% l7 o; t0 z
Dim p1 As Variant '申明端点坐标( _4 |3 |! Z, G3 K( @
Dim p2 As Variant
5 v" G9 K( r& w# T& |! V: jp1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标# E8 z0 ]$ \* v% h& n- W
* a G L& U, E0 @1 D6 r5 E+ d
On Error GoTo Err_Control '出错陷井
/ s& Z6 e( V3 N: `' g* ZDo '开始循环
, X: t+ }2 X( q5 W% a, B$ l p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
4 J8 I. C5 F2 p: C. D. V# P+ s! v5 F! w) F0 }! a. M
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆, U. Y" P) m w* V3 \7 a
! h" t9 Z. g/ w& j6 f! X
Loop" N; O/ ~5 J0 Y/ G
Err_Control:# x$ B0 C3 o1 T( x9 c1 u, u, j
3 G# T% t' n- ?: B' B
: R1 N% n9 W/ B$ n4 B8 E% N
End Sub |
|
发表于 2006-12-30 20:58
