|
|
连续圆0 ]1 H, R# }( p8 [0 p
Sub myl(): {5 g1 K! W6 a! k7 U
Dim p1 As Variant '申明端点坐标% y0 i# J* M w. D: Q
Dim p2 As Variant. p* G. s9 f5 m$ e8 e& h$ I4 X) }
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
! f" v; V3 R+ G; d0 q5 v1 S1 M9 O. h
On Error GoTo Err_Control '出错陷井
7 ~; e3 f8 Z' pDo '开始循环
1 u, ?3 k- d4 }. L. }& Q p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
$ ~5 J. B4 @+ G4 V: m3 j: M$ G& X7 R$ b& B, ` ~
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆
1 W6 h ~% Q0 B; `/ s& J % I& Z, x8 U( b2 ?: j+ T
Loop( C1 f1 L. P6 \% w. d; O
Err_Control:
' w6 z) ^4 D! r
& J; k" n7 g) Z- z3 q2 c2 G% s4 ]% y7 ~% D
End Sub |
|
发表于 2006-12-30 20:58
