[求助]布尔运算合并时怎么出错了？上图了

hillskysea · 发表于 2009-4-22 21:17:00

我绘制一个圆柱齿轮，齿廓部分已经拉伸完成，现在要用一个圆柱和齿形部分进行并运算，怎么运行后看图像只有一个齿的齿廓布尔和运算成功了，其他齿都没反应，我把代码复制过来，大家看看
Dim gearObj() As Object
Dim cylinder As Object
Set cylinder = ThisDrawing.ModelSpace.AddCylinder(InsertPnt, Rf, 10)
gearObj = gearR.ArrayPolar(gearZ, 6.28, InsertPnt) 'gearz是齿数，2 * PI是角度，正值是逆时针，InsertPnt是中心点
cylinder.Boolean (0), gearObj(0)
另外，弱弱地问一下，为什么定义齿廓部分的gearobj要加（）呢，一直搞不懂为什么要加，而且后面为什么有（0），我是菜鸟，大家多指教哈，如果有齿轮的生成代码更好哈，先谢过大侠了。。

xa0wrbh5muz.JPG