|
|
连续圆
% l6 n( S e+ ]# ZSub myl()
! E( g! z+ @2 @Dim p1 As Variant '申明端点坐标
) J5 o0 u, I; j! e5 cDim p2 As Variant7 e' v" _9 c9 r2 V# J
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
5 G% f2 g0 | r U5 z) `( K/ y! [1 u: ~! Z# w( t5 y& P2 d+ q' Z2 P2 |
On Error GoTo Err_Control '出错陷井: f9 F; P% A4 n: b. E6 x D
Do '开始循环/ |6 F& S* a+ u+ Y0 z' P: x8 g( T7 t
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
# [, C- Z" b0 |( ^# H9 A2 _$ @- a& d" E
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆
/ ?' R1 x! Y8 Z7 J. x5 O# n4 J 1 Y n6 z1 r: b
Loop S; D/ p. f. G9 M( X
Err_Control:
, J% w% B5 Z8 |5 y; K: A& H% b+ [, r% Z; B( r, Y7 W
3 v# n" y1 [7 b8 O
End Sub |
|
发表于 2006-12-30 20:58
