|
|
连续圆( g, n* i- x* x5 O, v$ g' L3 J! a! \
Sub myl()8 h4 @, ^5 j! ~- ~; J- j( E/ f, C2 F
Dim p1 As Variant '申明端点坐标
: {% H* g& C7 e5 \: M; X; T: ]Dim p2 As Variant& e# ?7 }* O! w- K
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标0 o g/ \7 i/ ]
' a; J: N! E$ T' \: U4 O
On Error GoTo Err_Control '出错陷井7 {2 t# R, n. V
Do '开始循环' q" O, n3 W2 E. k" y0 f
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
M. W$ i. ~! j# l& P' Y0 b
2 d: H; l" O' u3 f; z7 I) _ Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆7 F" K+ j3 Z. C' ~; Z2 O2 T
; A% c4 E8 ?, D: q S$ f: zLoop
; r! G( d" y. B+ H0 V3 ?Err_Control:
$ i. }1 q% `$ g8 _" D) J' y0 l+ I3 [4 c7 f2 j8 D, q% e% o0 @: G# q( z
. _ a4 E+ i+ V8 p# _2 o) A( [End Sub |
|
发表于 2006-12-30 20:58
