问一个比较低B的问题：怎样利用方程插入一条渐开线曲线？

hfcmgmdquo · 发表于 2005-10-28 10:40:19

经典图书

笛卡尔坐标系渐开张方程
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:02

这个问题好。
帮顶

garryyao · 发表于 2005-10-28 10:46:24

经典图书

我也帮你顶，不让它沉了。

skyflyki · 发表于 2005-10-28 10:50:22

这个需要使用专门的曲线生成插件才可以的！

binybin · 发表于 2005-10-28 10:52:21

经典案例图书

那去哪找插件？我是是正版的Solidwork，好多东东没有。

dl2008yt · 发表于 2005-10-28 10:53:01

我是用宏来做的
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("前视基准面", &quot

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:38

经典案例图书

用曲线逼近的
所以是近似的做法
我不知道solidworks是用什么算法做曲线插值
所以无法告诉你差别有多大

34tn7z1iir · 发表于 2005-10-28 10:56:28

高手阿。呵呵。
前几天下了一个插件来做，也是用线段来逼近的，但做出来的齿轮会N多面阿，这样我觉得不能接受，不明不白多出很多面出来，而且这样也会造成整个文件很大的。

gundamlh · 发表于 2005-10-28 11:03:58

好问题,顶上去

		自动登录	找回密码
密码			立即注册

问一个比较低B的问题：怎样利用方程插入一条渐开线曲线？

相关帖子