lionel2003 发表于 2003-8-26 23:00:00

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

zfbj 发表于 2003-8-28 13:14:00

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

gzy 发表于 2003-9-13 18:03:00

只要知道函数的方程就可以画了可以用循环画直线或者画点的方法，如下例绘制的阿基米德螺线：
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 发表于 2003-9-28 19:19:00

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

今晚打老虎 发表于 2003-9-29 09:05:00

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


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 发表于 2003-10-1 10:41:00

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

lionel2003 发表于 2003-10-7 21:03:00

谢谢各位大侠，搞定了。
页: [1]
查看完整版本: 请教各位大师,怎样用VBA在CAD中画二次函数曲线.