标题: 问一个比较低B的问题：怎样利用方程插入一条渐开线曲线？ [打印本页] 作者: hfcmgmdquo 时间: 2005-10-28 10:40 标题: 问一个比较低B的问题：怎样利用方程插入一条渐开线曲线？ 笛卡尔坐标系渐开张方程
afa=60*t
x=10*cos(afa)+pi*10*afa/180 * sin(afa)
y=10*sin(afa)-pi*10*afa/180 * cos(afa)
z=0
用破衣来做输入这些东东就得了。用Solidwrok不知如何弄，有没有高手答~~~~谢了。作者: ljg212 时间: 2005-10-28 10:44
这个问题好。
帮顶作者: garryyao 时间: 2005-10-28 10:46
我也帮你顶，不让它沉了。作者: skyflyki 时间: 2005-10-28 10:50
这个需要使用专门的曲线生成插件才可以的！作者: binybin 时间: 2005-10-28 10:52
那去哪找插件？我是是正版的Solidwork，好多东东没有。作者: dl2008yt 时间: 2005-10-28 10:53
我是用宏来做的
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, afa, z
pi = 3.1415926
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("前视基准面", "LANE", 0, 0, 0, False, 0, Nothing, 0)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.InsertCurveFileBegin
For t = 0 To 2 * pi Step 0.1
afa = 60 / 1000 * t
x = (10 * Cos(afa) + pi * 10 * afa / 180 * Sin(afa)) / 1000
y = (10 * Sin(afa) - pi * 10 * afa / 180 * Cos(afa)) / 1000
z = 0
Part.InsertCurveFilePoint x, y, z
Next t
Part.InsertCurveFileEnd
End Sub
运行就可以了作者: qoro 时间: 2005-10-28 10:53
用曲线逼近的
所以是近似的做法
我不知道solidworks是用什么算法做曲线插值
所以无法告诉你差别有多大作者: 34tn7z1iir 时间: 2005-10-28 10:56
高手阿。呵呵。
前几天下了一个插件来做，也是用线段来逼近的，但做出来的齿轮会N多面阿，这样我觉得不能接受，不明不白多出很多面出来，而且这样也会造成整个文件很大的。作者: gundamlh 时间: 2005-10-28 11:03
好问题,顶上去
LANE", 0, 0, 0, False, 0, Nothing, 0)