[教学]：用AUTOCAD作方程曲线

fugui

有个抛物线
Y2=64X
Y平方=2乘32乘X

                               
登录/注册后可看大图

用ACAD带的宏语言( V B )写一个小程序，再运行一下就可以了：

Sub 画抛物线()
    Dim Pnt0, Pnt1 '定义坐标点
    ReDim Pnt0(2) As Double, Pnt1(2) As Double
    For I = 1 To 1000
        Pnt0(0) = I 'x0
        Pnt0(1) = Sqr(64 * I) 'y0=sql(64*x0)
        Pnt0(2) = 0
        Pnt1(0) = I + 1
        Pnt1(1) = Sqr(64 * (I + 1))
        Pnt1(2) = 0
        ThisDrawing.ModelSpace.AddLine Pnt0, Pnt1
    Next I
End Sub