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

该怎么办呢难哦

受明经出版书里6-4例程序启发，编个蜗杆切制蜗轮程序，却在程序最后一段老是出错：For i = 0 To 50
Set wormcopy = objWorm.Copy
wormcopy.Rotate3D ptCen, ptcen2, i * 10 * PI / 180 '蜗杆copy转过i*10弧度
wolun.Boolean acSubtraction, wormcopy
wolun.Rotate3D centerpt, pt, agl
Next i 这是一问题，还有就是布尔运算花费大量时间，几次造成机器死机，有方法提高运算速度吗？程序附上：

zfbj

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

该怎么办呢难哦

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

首先感谢您的帮助！ 好几天看到没有人理我这个帖子，我以为没戏了，就没在来这儿看了，今天偶尔来这儿就看到您的回帖！ 该刀具实际上是在做滚动，我后来改了一下程序，将每次蜗杆滚动角度增至30度（反正蜗轮转动还是很小），进行布尔运算，可以在蜗杆360度内执行程序，并显示结果，但是一旦超过这个范围就会出现提示布尔运算错误，不知何故？