|
|
连续圆
7 S, E8 G X$ fSub myl()+ C T7 q* k* L$ E i1 Y4 ]5 u0 v
Dim p1 As Variant '申明端点坐标" d6 a( c8 a% o! E
Dim p2 As Variant% x; J, o, ?5 u: W
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标" N& W' [1 i; e* q- t7 P" n
8 F7 F) n9 Y3 b8 Q% X. b6 M' ROn Error GoTo Err_Control '出错陷井
! f# G- X1 y, K# E& x# Y" rDo '开始循环0 ?) f* _) R+ t; g* a/ g
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
$ ]6 A' p+ i4 p9 v
a. `: @9 @( u0 E n Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆5 z5 ^& ?2 K6 C4 d" q2 G/ O
9 ~$ O; d% `5 q2 jLoop
3 T+ ]5 s0 b s* p. LErr_Control:
+ J& |# Z6 O3 y5 f% }- @- j2 u2 P. W
, @' \& F3 W9 O
End Sub |
|
发表于 2006-12-30 20:58
