|
|
连续圆( o) ^7 o7 s9 P& k4 b; ~/ o" ]
Sub myl()1 k ]5 N& Y0 i8 \$ e$ \
Dim p1 As Variant '申明端点坐标
5 s* i; ?* B0 }# p% ZDim p2 As Variant( S8 E2 U, O, `9 f" l
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标9 _" X6 R; r% S1 p
1 [. t% M$ T0 q% ~8 x, ]/ iOn Error GoTo Err_Control '出错陷井
/ X2 Z1 F$ Y7 n f! jDo '开始循环
) t: ?4 d. [2 u! ` I/ R p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
) @5 Y. g, \1 R$ A) A; m9 X. T; r" }9 Z
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆' C8 C. B0 M5 ~2 u5 d. k! n4 |- C
9 ]& N2 w: I z4 Q- ?' l: ?
Loop
* {" o5 }2 O9 T V. ^ zErr_Control:
$ e# {& B4 [2 @5 W3 c4 O' l5 W; x
5 W' e) }4 h, B/ X6 o
0 K$ U" [0 [/ x) E; ^# F r- HEnd Sub |
|
发表于 2006-12-30 20:58
