solidworks画方程曲线

看论坛上总有人问SOLIDWORKS能不能画方程曲线,这里我给出一个例子,算是抛砖引玉吧.
PRO/E从UNIX下移植过来的,不是标准的WINDOWS程序,当然要单独的方程曲线功能.solidworks是典型的WINDOWS程序,内置VBA,还有强大的API接口,所以没有单独的方程曲线功能.其实只要捎加开发就能作出方程曲线,岂不比PRO/E强大方便.
  
Dim swApp As Object
Dim Part As Object
Dim x As Double
Dim y As Double
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.InsertCurveFileBegin
   For x = -10 To 10  '横坐标的取值范围
    y = Sin(x)     '这里输入方程式
    Part.InsertCurveFilePoint x, y, 0  '横坐标 纵坐标 Z坐标  这里我取0
   Next
Part.InsertCurveFileEnd
End Sub

顶顶顶顶顶顶顶顶顶顶！
多谢搂主的教导，正在研究VBA！
有行语句不懂！
Set Part = swApp.ActiveDoc （请教，解释一下^_^！）
  
另外，楼主能不能做几个例子来！
比如机坐标，柱坐标，球坐标！
各样只举实例就好了！

好像楼主是回答过我的椭圆问题哦！
在谢谢你一次！

謝謝分享...................

yf_hmily wrote:
顶顶顶顶顶顶顶顶顶顶！  
  多谢搂主的教导，正在研究VBA！  
  有行语句不懂！  
  Set Part = swApp.ActiveDoc （请教，解释一下^_^！）  
  
  另外，楼主能不能做几个例子来！  
  比如机坐标，柱坐标，球坐标！  
  各样只举实例就好了！

  
solidworks不支持极坐标的,可以转化为直角坐标系嘛. Set Part = swApp.ActiveDoc  建立一个PART对象,不必管吧,每个VBA都有这一句的.

楼主太高人了

谢谢！

SW09版里可以自定义方程来画曲线

好高深啊,听不懂,看不懂,