|
|
连续圆 a+ X' ~. F5 G& E& N4 A3 F$ l# N
Sub myl()
* T- I) J! p/ U9 g9 Z; ODim p1 As Variant '申明端点坐标/ S/ b: G% ^# n" I. u/ P
Dim p2 As Variant: j) D0 n. {9 Q
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
7 _+ Z1 Y6 w8 V, O7 m' U0 z" G6 t( W# H
On Error GoTo Err_Control '出错陷井
+ j# F" ^: H: r0 M* }9 c$ J' IDo '开始循环
6 m, y$ S' S- o/ m1 V2 r4 I/ t p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径* U& R% w6 E1 I* k4 b/ j0 `( y
2 I# R* X4 H1 z( X- g Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆- [: W, h6 a+ q6 e! j! K) ^: E
; H& X+ L- j. R: }9 p% kLoop
9 l, g7 k8 t' }. A5 e, \Err_Control:
9 k ~5 n& t! I1 }# a8 _
1 F1 |% @( l2 ]* J3 w( G9 x: D! E' x; I- l
End Sub |
|
发表于 2006-12-30 20:58
