|
|
连续圆
. C) ~' ^: Y5 r; b7 iSub myl()
; n& Q6 i. m8 I) p1 K4 ]+ _9 }; E/ qDim p1 As Variant '申明端点坐标
. _% F/ p3 F' m$ a4 Y3 M2 ]5 iDim p2 As Variant
8 W, a; o w. b6 w2 _, @p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标1 o0 I- Z* h: f8 y( C/ h
1 o% Z/ R# c5 [- y
On Error GoTo Err_Control '出错陷井
+ Z# s8 @, {' z* H" V9 m+ f" I7 a2 JDo '开始循环8 @5 z. j# W; D% B% B
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
- U _: A* h1 K0 @& H* ^0 }3 H# B
8 y7 L1 {: V, v# E" Z/ |: {3 J, [+ R Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆
9 W7 A5 G% S% u# d # g" s x3 j+ Z; |
Loop
& k0 y. a2 C! w; _' e. [Err_Control:8 ]% e# W0 ^5 F2 _/ @8 `
5 e9 z6 j( R, |4 ]: ^2 G
4 n* j+ j5 @8 B: T& dEnd Sub |
|
发表于 2006-12-30 20:58
