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

我有点喜欢cad 发表于 2014-11-19 12:30:08

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 发表于 2014-11-19 13:21:14