VB编程绘制渐开线齿轮

程序做了如下修改：
还差一点，希望大家帮忙

非常遗憾啊，本论坛有高手，却没人愿意帮忙啊，只好去别处看看了

差一点能不能贴个图上来啊。我现在没调试环境。
如果你说的是你的渐开线没有从基圆开始（如没接触或有个尾巴），那倒不奇怪，因为-ha对应的本来就不一定是基圆。
如果你想画完整的渐开线那么根据基圆算一个ha’而不要用齿轮的ha即可。

重写的程序如下：

这不就是我说的问题么，刀具的y的最大最小值对应的并不是齿轮的基圆和外径。所以你画的渐开线并不是起于基圆终于外径，这是正常的。你根据基圆和外径算出刀具y的范围，再画渐开线就行了。你说的有点问题指的是这个？

另外r1,r2你没有用到，今后打算加上过渡曲线吗？

我用的是从基本齿条齿根高hao1*mt到齿顶高hax1*mt这一段,这应该就是齿轮从齿根圆到齿顶圆的范围,但和绘制情况不一致,感觉绘制的齿根圆比计算的要大一些,齿顶圆也是这样.不知道什么原因.程序中的rv=r1,如果这种绘制方法正确的话,加过渡曲线就非常简单了.我不知道和中心距变动系数是否有关?

熟透的弥猴桃 发表于 2024-11-15 16:45
我用的是从基本齿条齿根高hao1*mt到齿顶高hax1*mt这一段,这应该就是齿轮从齿根圆到齿顶圆的范围,但和绘制情 ......

这应该就是齿轮从齿根圆到齿顶圆的范围,错了，你再想想吧。你现在这个程序是画不出根圆的，最多能画到基圆。齿条齿根高也不对应齿轮外径，我上面帖子已经说了，看来你没理解。
加过渡曲线就非常简单了没这么简单吧，等你做的时候看看会出什么问题。

rv = d1 / 2
y1(i) = -hao1 * mt + (hao1 + hax1) * mt * i / 1000 + x1p * mt

x1(i) = (y1(i) - x1p * mt) * Tan(at) + pi * mt / 4 + (t - 1) * pi * mt

fi = (x1(i) + y1(i) / Tan(at)) / rv
xj(i) = x1(i) * Cos(fi) + y1(i) * Sin(fi) + rv * (Sin(fi) - fi * Cos(fi))
yj(i) = -x1(i) * Sin(fi) + y1(i) * Cos(fi) + rv * (Cos(fi) + fi * Sin(fi))


这几句的公式出处在哪里啊，麻烦告知一下，我也想做一个。
加过渡曲线好像有点难度的

以上几句就是动系的坐标点转换到定系的点的坐标变换
计算简图：