请教各位大师,怎样用VBA在CAD中画二次函数曲线.

lionel2003

zfbj

根据一定的精确度，计算出连续的50个点的坐标，根据坐标值创建一条轻量多段线，其他的函数曲线也可以使用这种方法。

gzy

只要知道函数的方程就可以画了  可以用循环画直线或者画点的方法，如下例绘制的阿基米德螺线：
Sub drawquxian()
Dim quxian As AcadPoint
Dim p(0 To 2) As Double
For i = 0 To 20 Step 0.01
p(0) = i * Sin(i)
p(1) = i * Cos(i)
p(2) = 0
  Set quxian = ThisDrawing.ModelSpace.AddPoint(p)
Next i
ThisDrawing.Application.ZoomExtents
End Sub

lionel2003

谢谢机械哥们，若是用画点的方法，可不可以把点转换为多义线，或者用样条曲线的方法能画出二次函数曲线吗，请哥们请教！

今晚打老虎

应该不难做把，把前面的哥们的代码稍做修改~~~


Sub DrawCurse()
    Dim i As Double
    Dim objCurse As AcadPolyline
    Dim Pnts(0 To 182) As Double
    For i = 0 To 5 Step 0.1
        Pnts(0 + i * 3 * 10) = i * Sin(i)
        Pnts(1 + i * 3 * 10) = i * Cos(i)
        Pnts(2 + i * 3 * 10) = 0
    Next i
    Set objCurse = ThisDrawing.ModelSpace.AddPolyline(Pnts)
End Sub


------------------------------------------------

第一次发贴，激动ING~~~

gzy

打虎兄弟说的对，我认为就是这样子了。

lionel2003

谢谢各位大侠，搞定了。