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
求懂的同学 老师指正一下 我很感激
置顶卡
