工程曲线（告别excel）原创！！！

先来看看破衣版的贴
https://www.icax.org/viewthread. ... hlight=%C7%FA%CF%DF
楼主说：＇Proe的方程式曲线真是太妙了，没有它做不出来的曲线，只有你想不到的方程。＇

真是气死人了，我用的０５怎么就没有这个功能呢？（想问：06有没有象破衣那样输入函数的功能，没有用过 ）

事在人为，在sw走点弯路，也是可以做出来的
来看看其中的
蛇形线
  
笛卡尔坐标系：
x=2*cos(t*360*3)*t
y=2*sin(t*360*3)*t
z=(sqrt(sqrt(sqrt(t))))^3*5

[ 本帖最后由 rainingdidadi 于 2005-11-5 00:54 编辑 ]

夜深人静
继续贴
可以用宏来实现
我录的如下：
' ******************************************************************************
' C:\DOCUME~1\user\LOCALS~1\Temp\swx1308\Macro1.swb - macro recorded on 11/04/05 by user
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Dim x, y, pi, z, t
pi = 3.1415926


Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.InsertCurveFileBegin
For t = 0 To pi Step 0.1 '这里决定转几圈



x = 0.02 * Cos(t * 360 * 3) * t
y = 0.02 * Sin(t * 360 * 3) * t
z = (Sqr(Sqr(Sqr(t)))) ^ 3 * 0.05
Part.InsertCurveFilePoint x, y, z
Next t
Part.InsertCurveFileEnd
End Sub
运行，曲线就出来了

有的地方是教人用excel来做的
生成文本文件，中间用tab隔开，麻烦！！！
假如那些点是从坐标机来的，当然是用excel方便拉
知道方程的情况下，我们就要和excel　说８８了

[ 本帖最后由 rainingdidadi 于 2005-11-5 00:55 编辑 ]

顶！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

thanks!!!
突然心血来潮，我要赚积分
怎么这里的加分题都好几岁了？？？！！！

公式曲线，我好像还没有用到过。
不是很迫切。06还没这功能。

弄好出来天都光了

不错，顶。

即使这样能生成任意方程曲线，和破衣还是有区别的，就是非参数化，生成的曲线，再想修改其定义，只能修改点的坐标，而不是修改方程。要么就干脆全部重新生成整条曲线

Solidworks 有个插件是用来做这个的,叫公式曲线