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

hillskysea

我绘制一个圆柱齿轮，齿廓部分已经拉伸完成，现在要用一个圆柱和齿形部分进行并运算，怎么运行后看图像只有一个齿的齿廓布尔和运算成功了，其他齿都没反应，我把代码复制过来，大家看看

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），我是菜鸟，大家多指教哈，如果有齿轮的生成代码更好哈，先谢过大侠了。。

 

 

雪山飞狐_lzh

gearobj应该是齿形数组吧，因为你有n个齿

boolean运算要用foreach遍历数组的

hillskysea

lzh741206发表于2009-4-22 23:33:00gearobj应该是齿形数组吧，因为你有n个齿boolean运算要用foreach遍历数组的

具体要怎么弄啊，我还是不会，先谢过了。。。。