VB编程绘制渐开线齿轮

用VB编程绘制渐开线齿轮，但有问题，请教大家，下面是源程序：

多谢你的分享，我也在学这方面的计算。
看了你的VB计算界面，提几个建议，仅供你参考：
1.齿轮的计算过程应更为详细，你的计算过程目前看来较为粗糙。
2.每个齿轮的牙齿的齿面有几段曲线组成：正常渐开线、齿根过渡曲线等，其中的交接点须计算，但较为复杂。
3.过渡曲线和齿轮的刀具参数有关，所以在计算程序中应加入刀具参数的相关参数。计算虽复杂。但可以计算。
4.应精确计算出每个交接点的数值，作为画图的边界条件。
5..选择精确画出一个齿面，其余用类似的复制功能。
6.可以考虑与CAD连接起来，这样可以更为精确地画出图形。
（看到过别人的这方面努力，效果还可以，CAD能在图形中查到其它齿轮参数。但本人目前还不明白怎么搞）
7.增加选择功能，选择画主非常齿轮或从动齿轮。

我来帮忙贴张图，本人对这个比较感兴趣，很想做一个能绘制精确齿轮的程序，不过暂时还没有研究过。

对于这样的原创作品，我给予大力的支持！期望更好的作品横空出世！

看到sn2.0齿轮绘制的很好，很希望能得到他的指导，也希望大家支持，完善齿轮绘制功能

熟透的弥猴桃 发表于 2024-11-1 02:06
看到sn2.0齿轮绘制的很好，很希望能得到他的指导，也希望大家支持，完善齿轮绘制功能 ......

SN2.0的作者就是logxing

rv = d1 / 2 / (Cos(l * pi / 180) ^ 2) '当量直齿轮分圆半径
这句就不对了，画这个图和当量齿轮没有关系。当量齿轮是假想的，只在一点和原始齿轮无限接近，不知道你为什么要算它。

后面看你的代码，似乎是要从齿条齿形的坐标直接算出渐开线的坐标。至少你的式子里面出现了mn，an就不太对，你最终要画得齿形应该是端面齿形（只有端面上有渐开线），但是却没用到mt，at，这是很奇怪的。你的问题不是编程问题，你先检查一下你写的公式是怎么推导出来的。

用端面压力角和模数也画过，但也不正确，当量直齿轮因为涉及到斜齿轮

莫非你是因为用端面压力角和模数画不正确所以才改成现在这个公式的？
你写下一个公式应该知道它是不是正确的，即使你不去推导也应该知道为什么应该引用该公式。
否则你就不会知道到底是公式出了问题还了你编程出了问题。

主楼问题应该使用端面压力角和端面模数的概念画（但并不是简单的把你公式里的mn,an改成mt，at）。
画斜齿轮也不应该使用当量齿轮，我始终认为至少在圆柱齿轮领域里当量齿轮是一个应该被淘汰的概念。
当量齿轮是一个近似概念，并不是表述斜齿轮的一个必要概念。

能否请logxing师傅详细说明一下呢，非常希望您能调试一下程序。不胜感激