|
|
连续圆
6 @$ G2 A6 \' T; f2 p& dSub myl()
8 Q4 _3 a; S: O9 h- GDim p1 As Variant '申明端点坐标3 J2 f; {6 K- e6 r: @: h2 t
Dim p2 As Variant
2 I- L3 g1 S" y$ v" r6 c4 ]* _p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
3 }8 u$ ~7 u9 a2 K8 o4 M# a! |' O' ]3 \5 D5 g
On Error GoTo Err_Control '出错陷井
) h3 [9 p4 B2 k0 v9 zDo '开始循环
4 j% E9 [* X5 L9 `0 G p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
$ W. {( n# x- N% C* W( U9 J1 m. N. A7 R' A1 t
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆0 ^7 E) V4 F2 a# o* S9 y/ E3 p2 d8 v; |
& ]- d% Q" E' z- B* aLoop" A% s8 v2 W3 f( v( H2 w9 [3 U) F
Err_Control:
% l0 V, I' T+ \* Y) c0 r# _6 ]
F: [( s' ?& h2 ]6 H0 X3 A- C& S: [- f4 I$ Z9 Y/ f
End Sub |
|
发表于 2006-12-30 20:58
