|
|
连续圆
/ S* S% U. P( B$ v- S8 MSub myl()
6 U: ]* n4 U. m8 }+ x& EDim p1 As Variant '申明端点坐标, e1 I1 i J% n8 i* _8 F
Dim p2 As Variant
* i+ D z* d# ?9 T6 a* w# O+ Up1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标2 @: }1 f6 ?# U$ N$ l4 l3 ?* N
3 S0 ~7 ]+ N% E/ DOn Error GoTo Err_Control '出错陷井
* R/ S1 R2 Q& L+ _Do '开始循环* O! B' @/ x6 ~5 U3 E1 t- q1 W( {1 _# x
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
/ m( W" v# L) _: ^, ?! Z/ R
/ F* j0 v ?4 [# I5 ?8 B Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆9 \) K' F2 y) o g! q3 G
" y8 v W) N, m* u9 X$ gLoop
1 Z0 L6 J S$ hErr_Control:
5 @2 ~, s! q5 I6 D+ d, V* d% c2 {2 p
# Y: _7 F$ W( L. X' D$ ^" \5 C
End Sub |
|
发表于 2006-12-30 20:58
