|
|
加一个画园的，凑数
' R1 G1 j" l# j7 d. s& B4 w8 I) L8 q$ {3 G
Sub 画圆()
% {. e0 d' `+ f) D( o' mDim 圆心(2) As Double
/ V+ Z8 i% J% F" j1 C- CDim 半径 As Double
* R8 k. q! _& n1 Y/ o圆心(0) = 0: 圆心(1) = 0$ A/ g6 y+ w) N4 }0 L0 g
半径 = ThisDrawing.Utility.GetReal("输入半径：")
: S J3 w# P2 rCall ThisDrawing.ModelSpace.AddCircle(圆心, 半径)
9 e# F6 s: s; ~2 {& m( Z" C8 MEnd Sub* i3 g% M1 [) d% ` G# ?
% F0 d) [$ M- Y) |0 d. w0 A
[ 本帖最后由 xuehong51 于 2008-10-16 16:16 编辑 ] |
|
发表于 2008-10-16 16:12
