|
|
连续圆+ D% F8 I# u7 U) M3 }* w
Sub myl()
7 r' |2 ?) x* L: YDim p1 As Variant '申明端点坐标 U6 {4 W1 \" b; o+ H. A" v
Dim p2 As Variant
, ]8 B4 L& c1 B' s6 d9 Z! |& hp1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标8 H; N. |5 Z- d' A$ p1 Z
7 L# ~3 t9 Q! i' d0 ~9 z1 ]On Error GoTo Err_Control '出错陷井) A6 \; E! a- v- ~8 z
Do '开始循环
( g% f, ]% M7 P# d( i p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径* L: _1 M5 k# ?" U- o8 t
) ?0 g* N% C1 z; W7 w
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆$ r: O( I, k; [8 Z$ Z) u
7 a0 p3 d2 R3 |( R9 I( [/ [Loop
9 ]+ {2 R, {# g' `- Z/ a4 s) xErr_Control: h* p1 N o* X
. W) o+ C |; Y
_. B" @: V' z. F/ h" D/ g; QEnd Sub |
|
发表于 2006-12-30 20:58
