新人贴 我写了一个画抛物线的代码 在cad中运行，发现有多余的线是怎么回事啊 ？？急

我有点喜欢cad

Sub nytest1()
  Dim p(0 To 49) As Double
  Dim mytest As Object

  For a = 0.01 To 0.05 Step 0.001
     For i = -24 To 24 Step 2
      j = i + 24
      p(j) = i
      p(j + 1) = a * i * i
      Set mytest = ThisDrawing.ModelSpace.AddLightWeightPolyline(p)
               ZoomExtents
    Next i
Next a

End Sub

求懂的同学 老师指正一下   我很感激

我有点喜欢cad

怎么没有人啊