|
|
连续圆
8 K6 R, }) @( n7 T% SSub myl()! B' q. ^" Z- V
Dim p1 As Variant '申明端点坐标' c/ u/ U5 m: q( h
Dim p2 As Variant
' A, r( ^, Y8 R. Sp1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
0 G) p! J0 F+ c h$ ^
6 ~" J: x- z0 h4 x/ O, [; {On Error GoTo Err_Control '出错陷井
( L4 e, \4 e7 ^5 O6 ?: {: K* sDo '开始循环
0 j' t) |* Y# @5 L+ w2 v t p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
' D6 O* y% V5 I7 L* [) s; M+ s8 S2 j/ g' n( ?; _# I* x
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆4 T# ]" g+ W! C. W2 J4 n4 e- B+ c
# F, r l& _; ~, c; I3 b; Z0 ^
Loop
9 R6 B6 L# h6 r' M- SErr_Control:8 ]2 Z$ d4 n; h+ E3 t, r
1 D8 |$ K- h: R: I' a w
$ U- A0 l4 N* A7 V8 _' N1 o; v: REnd Sub |
|
发表于 2006-12-30 20:58
