|
|
连续圆
* J0 Z7 z1 s. g( c* G. VSub myl()4 w7 ]! _3 `0 B0 m; k4 G% D
Dim p1 As Variant '申明端点坐标
/ x( `" i9 `2 y" k7 a5 c3 G( i! JDim p2 As Variant
) Y5 H0 I& P/ r0 A. J! b/ k8 F+ D1 Vp1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标# e$ D/ K U f- e' J# D' s
1 T; J2 U4 t0 O2 U( z( d+ Z" ]
On Error GoTo Err_Control '出错陷井: j4 }% r1 p1 Y
Do '开始循环
. N! ]* w* C# }7 X p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
6 H1 p) W" f8 k4 c
8 g* X/ t3 _; t6 O Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆
' d/ l% S) j- a: G' g4 B
, ?: a# X. `% v; v" J3 s% I% |; Q. ?Loop
" [ i7 X) Z* s6 z+ J: ^5 mErr_Control:+ _+ U4 E, D0 r: {# Z& u" d2 U
$ k/ w( Q2 _2 C! L+ L/ p, o
! i j5 R- _( NEnd Sub |
|
发表于 2006-12-30 20:58
