该怎么办呢难哦 发表于 2004-2-27 21:08:00

还请VBA高手帮我调调这个程序。。。

受明经出版书里6-4例程序启发，编个蜗杆切制蜗轮程序，却在程序最后一段老是出错：For i = 0 To 50<BR>       Set wormcopy = objWorm.Copy<BR>               wormcopy.Rotate3D ptCen, ptcen2, i * 10 * PI / 180       '蜗杆copy转过i*10弧度<BR>               wolun.Boolean acSubtraction, wormcopy<BR>               wolun.Rotate3D centerpt, pt, agl<BR>       Next i


这是一问题，还有就是布尔运算花费大量时间，几次造成机器死机，有方法提高运算速度吗？程序附上：

zfbj 发表于 2004-3-5 13:22:00

从代码上来看，你没有执行移动刀具的操作，另外，PI最好直接使用4＊Atn(1)来代替。<BR>布尔运算确实要花费大量的时间，并且占用许多的资源，所以可能会让你的机器承受不了。<BR>要想提高速度，恐怕要在算法上进行优化，希望大家共同参与思考这个问题。

该怎么办呢难哦 发表于 2004-3-11 16:39:00

zfbj发表于2004-3-5 13:22:00static/image/common/back.gif从代码上来看，你没有执行移动刀具的操作，另外，PI最好直接使用4＊Atn(1)来代替。


<FONT style="BACKGROUND-COLOR: #f3f3f3">首先感谢您的帮助！</FONT>


<FONT style="BACKGROUND-COLOR: #f3f3f3">好几天看到没有人理我这个帖子，我以为没戏了，就没在来这儿看了，今天偶尔来这儿就看到您的回帖！</FONT>


<FONT style="BACKGROUND-COLOR: #f3f3f3">该刀具实际上是在做滚动，我后来改了一下程序，将每次蜗杆滚动角度增至30度（反正蜗轮转动还是很小），进行布尔运算，可以在蜗杆360度内执行程序，并显示结果，但是一旦超过这个范围就会出现提示布尔运算错误，不知何故？</FONT><BR>
页: [1]
查看完整版本: 还请VBA高手帮我调调这个程序。。。