[求助][函数][原创]明总，对书中有个程序的疑问。。。。

该怎么办呢难哦

这两天刚买到您出的这本书，就迫不及待的翻看起来。的确是本好书，里面有许多我正想学习的知识。
对于蜗轮的生成，有几点不明：1。关于刀具的尺寸参数，L=px+0.72794*m这个公式是哪里来得？程序中并没有体现这一公式。 2。  Set objArc = ThisDrawing.ModelSpace.AddArc(ptTemp, rf, Atn(1) * 4 * 200 / 180#, Atn(1) * 4 * 3 / 2#)中的Atn(1) * 4 * 200 / 180角度就是200度，对吗？  3。 ptAxis(0) = 11.4706: ptAxis(1) = 0: ptAxis(2) = 0中的ptAxis(0) = 11.4706这个数字有什么根据？
4。  '这是程序中最难理解的部分，仔细考虑为什么是4.2*count？
    For i = 0 To 4.2 * count这句中的4.2的确没看懂，明总能解释一下吗？
说明一下，我查了金属加工和刀具的书籍，也没有发现这些参数的由来。还望明总和编写这本书的众高手指点！

efan2000

PI=Atn(1) * 4，其它的还没看过。

该怎么办呢难哦

谢谢efan! efan为何这次没有参加编写这本书呀？你可是在VBA方面绝对专业！！！何时你也能与明总合作出版VBA方面中高级的书就好了！期待！！！

该怎么办呢难哦

3。 ptAxis(0) = 11.4706: ptAxis(1) = 0: ptAxis(2) = 0中的ptAxis(0) = 11.4706这个数字有什么根据？
这第三个问题自己刚才搞清楚了，就是刀具和圆柱体相切时中心距离。

mccad

刀具的参数已经直接由公式计算出，而计算过程没有在程序中列出。

For i = 0 To 4.2 * count的解释：
由于差集的次数越多，如果只是由圆周360度来差集，则会有部分没有切到，就会出现如下图的现象：
所以必须大于360度切削，而这个数字由经验得到。经详细观察，4.2这个值还不是很够，最好再加大些。

mccad

我们还在准备一套书，估计下半年可以与大家见面。

myfreemind

mccad发表于2004-1-8 16:12:00我们还在准备一套书，估计下半年可以与大家见面。

期待！

该怎么办呢难哦

谢谢！几个问题我都清楚了！
看到明总再出书，的确是件高兴的事！希早日看到。

该怎么办呢难哦

明总:该程序作蜗杆思路很清晰，考虑到系统资源问题，所以只布尔减1/4圆周，其余都是布尔加运算，大大提到运算速度。可是这个程序思路只能针对单头蜗杆，如果是多头蜗杆造型又该怎么办？是不是也可以采用明总书中的简化方法呢？

mccad

其实对程序来说，只是结构的问题。
按1/4做，也可以再小，如1/8，1/16，都可以。
因为对于某一段，截出来，旋转一定的角度，就可以变成接下来的一段了。这你应该清楚，这也是简化的原因。