|
|
加一个画园的，凑数
( S* x& e8 S2 P9 @. X7 R) P- F: H6 y5 o* Z o# ~3 ^
Sub 画圆()
3 G+ I2 |6 Y8 L* { PDim 圆心(2) As Double' \/ J2 F8 }& l
Dim 半径 As Double' W& ~' N e; n% T! h' _" n- z$ ?/ P
圆心(0) = 0: 圆心(1) = 0
S! z! N/ O7 y; ?: R半径 = ThisDrawing.Utility.GetReal("输入半径：")% ` m* n8 S; Q5 J4 w
Call ThisDrawing.ModelSpace.AddCircle(圆心, 半径)1 c$ t1 V# M7 o8 @4 g D& @
End Sub
8 ?6 Y( H/ Q2 L5 M- Y
% `1 C! n6 h# n& p% k7 s* z' |[ 本帖最后由 xuehong51 于 2008-10-16 16:16 编辑 ] |
|
发表于 2008-10-16 16:12
