第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？. T( `5 W8 u/ A8 N0 A+ u; r
Sub PaoWuXian()5 D6 N6 Z3 o6 l8 r/ O
Dim p(0 To 101) As Double
9 v4 O; S- o# X/ ` ADim a As Integer( W L$ y) I5 t/ }- y
Dim i, j As Integer) B9 W: |8 z4 ^! S
1 ?: B1 L I1 b: w9 m5 L/ o6 Q
For j = 1 To 100 Step 1% F. D- J: X3 E9 C4 ~
a = -50 + j6 j( \! o0 Q4 E0 k! |
p(j) = a
# ^+ D, g) Q+ J- C$ k# H p(j + 1) = 0.5 * a * a + 3
# ~# W4 z- N1 @ Next j
; Z& N# I& Z( ^ p
+ |0 t( H# I; A: m) X( R' I7 z, @3 K6 qThisDrawing.ModelSpace.AddLightWeightPolyline (p)
, y$ l9 C0 A" U6 J1 yZoomExtents. G4 r; X) j# A- M) \1 z4 D! \
7 {2 v0 O4 h- Y3 z4 @
End Sub |
发表于 2008-2-6 09:48
