|
|
连续圆
; U9 M' D2 r- k- G- @Sub myl()# H8 Y2 V* r8 o( u
Dim p1 As Variant '申明端点坐标% z+ G, k- t% Z1 U, o$ ]
Dim p2 As Variant- U0 Z, c {. N2 y( e
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标) a& }2 W9 j. c( ?0 K
) s1 P }# n G' o% ~2 COn Error GoTo Err_Control '出错陷井5 r8 ~- q Q5 B' f
Do '开始循环
6 ^: n: A. Q/ l/ F4 s p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
) j$ Q( H; k9 {6 H' b( B
: A8 J9 C2 ^# {! v: }! C Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆2 B8 J0 H' y" [& D) Q& U. O" |+ s
$ \' d" D; i' {Loop2 k0 H5 Z( _4 l( ?/ [5 z
Err_Control:+ r; S( L8 T$ R* n8 l4 b' q) ~
. z& r, |$ u. c+ q3 r0 n
& P+ ~ Y# J# P m0 b( H' J+ IEnd Sub |
|
发表于 2006-12-30 20:58
