|
|
连续圆
& k/ J6 w/ G. S! D/ J$ ^1 Z2 QSub myl()
~$ P- w3 l/ {1 lDim p1 As Variant '申明端点坐标
2 H. m( ~# e0 T% ]: W& y$ D0 ^Dim p2 As Variant
, C+ S7 ^) w1 a, }p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标% u2 Z) z9 l( s2 y& V: i/ U# H
, H2 X$ s1 [) j& jOn Error GoTo Err_Control '出错陷井
2 E) L# j1 M' e3 h- k) SDo '开始循环
/ u" ^$ D: c9 | p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径1 j2 I+ O4 J: q) f1 l# M
( B. m5 c, x! [! P5 g$ x- t! X3 s3 ` Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆; M# q' J) t% T
- S. H p2 {6 G, g' z
Loop
$ j/ v% d c' B, ]$ b8 U6 RErr_Control:% d1 ]( L! M: e
7 P- _" W- B' A# c$ _
6 L9 \, b( o. c" m
End Sub |
|
发表于 2006-12-30 20:58
