|
|
连续圆
2 k3 q, R `$ qSub myl()/ x2 A2 Y9 w2 F% C
Dim p1 As Variant '申明端点坐标: V ~2 I9 I6 z1 {7 q3 S
Dim p2 As Variant
4 _3 ~) X. B8 V6 C/ e7 pp1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
5 K$ X4 N& C' {+ f- X3 s5 A
7 [! @: a' n' EOn Error GoTo Err_Control '出错陷井; ?/ n8 T, P( f2 M" F% Z; ]9 _% N
Do '开始循环
( | {) P& S* u p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径6 o. @: s; d. B
( Z* c1 v. }2 N+ ~5 {- E Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆; f8 M' s% _& w0 C9 [4 D( T* H
4 t) t) n$ `3 A- G4 a
Loop
/ [0 @7 N3 i1 H* N( \Err_Control:+ p: P0 d4 }+ Z) N) G- t/ n
1 i. `. O, }! ?0 x
# ~! b1 h A% o' Z" Y" C0 jEnd Sub |
|
发表于 2006-12-30 20:58
