|
|
连续圆
, ^% b% A1 S1 b9 c8 c9 \Sub myl()1 q4 `! P+ I4 k' p3 J7 }/ K3 w) O6 T
Dim p1 As Variant '申明端点坐标$ T$ t5 Z% Y$ p* c7 a
Dim p2 As Variant
9 K* U8 j8 ?( np1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标/ V; ?- P3 c. S- ^5 M" l
Z. z5 `1 E! [% ^
On Error GoTo Err_Control '出错陷井) }9 t. H/ }9 V/ b% s0 E
Do '开始循环% F# n* c* q! ~* ]. Z
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
1 A$ ~$ |8 f& a/ a# e7 ?3 |4 `) O" U8 }, w
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆6 ~2 \2 K4 C" }6 e- ^
/ w4 y. k$ B4 iLoop5 w5 L5 a& w( X8 e
Err_Control:
. P3 z( e$ O% ?; J0 ? ?
( x+ x4 P, `, M2 B
; D5 \- t) C& B/ kEnd Sub |
|
发表于 2006-12-30 20:58
