|
|
连续圆
# [' l6 D; {9 i J& z) o& LSub myl() {9 h" w/ h: b
Dim p1 As Variant '申明端点坐标
/ V q$ _. z/ S$ nDim p2 As Variant5 S) ]6 w% q l/ [, s9 B: D
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标2 m# O9 r( `) [+ D: I" P, m% W
8 o% _& h2 |3 M$ D5 ]
On Error GoTo Err_Control '出错陷井
# J; s+ t; m5 P/ p4 K" zDo '开始循环# I4 C! [( q( l5 V
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径$ ~. ^8 [4 Z1 D# J) {0 d
0 \5 _0 m0 }' N- n2 P* |% O
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆0 w( c+ j: a# \- Q$ \& ~4 s
U ]0 u- L3 t+ O- U& P1 p" w1 D
Loop1 \0 E' v- B3 Q* ^8 g7 P
Err_Control:+ L" g7 [/ M, H
8 }. \ h( p" x+ Z u; z- v5 A; W& [ ?, B
End Sub |
|
发表于 2006-12-30 20:58
