|
|
连续圆- j2 g' `! m# t% C1 ~9 ?
Sub myl()
/ M: s8 K" p- GDim p1 As Variant '申明端点坐标
" _; @) x. c5 Q8 u9 H: p9 W% QDim p2 As Variant' X0 x' i6 W9 U3 y$ g
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标! P/ o- b% ~! @; O; J1 g* E
% U& Z' j5 {: Z& B" ]" VOn Error GoTo Err_Control '出错陷井3 l. o1 n R0 h: e6 j1 R4 g( c# B
Do '开始循环
6 p! t! h. G0 M: z4 ] p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:") '获取的半径
& G$ P9 N& |: i8 c) e$ U# A' Z/ Y1 }7 u9 S/ M) p, y) P
Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆/ |) J! p, g& H
8 W Y7 W6 u6 d/ Z8 k$ G5 |9 nLoop
& L) ?, Y: x9 B7 F6 ]0 f5 oErr_Control: L: W* G, ~) w0 Z7 B. x
/ s0 U n( T* H% v( W( C- F
# k0 h; b$ y1 m1 O- B) J( x" y9 \End Sub |
|
发表于 2006-12-30 20:58
