|
|
连续圆
7 h0 N3 X2 ?- }: A+ u* zSub myl()
* U0 p9 i* F" @0 o9 Q: A, p9 [3 RDim p1 As Variant '申明端点坐标; u% d, ]: X6 |% M
Dim p2 As Variant: {' w' u% V- ^2 ?
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标0 a0 F g1 A5 H N4 x
) m1 Z7 I; {2 z- E8 W) YOn Error GoTo Err_Control '出错陷井
0 g0 b8 a$ ^; \5 EDo '开始循环. `$ E' ~" S. ?3 K3 G5 h: n) b) \
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径; j/ F$ v+ E5 x' N# a
# ^; d4 H6 ^9 z( t Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆
! e! e! _+ i- E1 T9 K 3 S1 `7 R% C/ W. V4 z7 G5 k
Loop ^# W0 Q; ]2 q( l6 s, K
Err_Control:3 @2 H0 b/ L0 b! s) z* P
, z7 F' @$ t; Q5 y4 b2 M
' L9 h5 w& \4 H0 i9 s6 M& Q) J2 y
End Sub |
|
发表于 2006-12-30 20:58
