|
|
连续圆2 I. S/ o# R" S! k6 x
Sub myl()' o( S, G$ R- p$ |0 J5 q' w. z, `
Dim p1 As Variant '申明端点坐标
" N& R6 p7 t5 e/ pDim p2 As Variant
8 P- N1 u( c' I- F4 Yp1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
4 {* K0 R& E0 Q6 V- a$ ?+ m
, c8 G6 o9 z2 u- ?) I$ t3 DOn Error GoTo Err_Control '出错陷井
! @9 M, X' o/ ^Do '开始循环
: {0 N2 `7 j, H0 S; Q* g p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
) L3 P( c) `. c [1 [% Y0 j' [! [/ R2 B
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆' n8 ~: |( b# a$ T7 w* ]4 _# \
. W; `6 O7 J0 E- pLoop
( i. s0 z) V- d9 {5 Q. u! l O; JErr_Control:9 e0 ]; f, {" @8 z: ?
i+ X/ A( W5 P4 D2 j L/ S4 m" A2 Q# b* \6 p' ?2 |# m0 J
End Sub |
|
发表于 2006-12-30 20:58
