|
|
连续圆& a% _. ?8 B& I
Sub myl(); ?$ E6 x1 d7 m2 l- Z3 N! H
Dim p1 As Variant '申明端点坐标
& n% G9 a9 U$ A# O4 {Dim p2 As Variant
5 f* G5 u# ?6 E9 m7 ]p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标- h6 Z" J! {; J/ P3 c
4 e x- d8 J, Z4 A
On Error GoTo Err_Control '出错陷井
. ^3 I; x& a; Z4 fDo '开始循环8 L7 N; B9 w7 A$ s
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径, I3 X% I8 J, E3 Y* T# E" F
1 `7 F4 p0 N4 e8 J Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆
8 O8 R2 S( u4 a0 ` . }" _" p+ j" u0 t4 y( Z6 f
Loop% H6 V o. M$ L/ u ~& d# \
Err_Control:
5 P# ?$ E7 z3 l3 a
: N s0 A+ l) S0 G+ y2 r
! u2 C9 D1 f; u2 T* m$ J0 hEnd Sub |
|
发表于 2006-12-30 20:58
