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




雪山飞狐_lzh 发表于 2009-4-22 23:33:00

gearobj应该是齿形数组吧,因为你有n个齿
boolean运算要用foreach遍历数组的

hillskysea 发表于 2009-4-23 23:16:00


具体要怎么弄啊,我还是不会,先谢过了。。。。
页: [1]
查看完整版本: [求助]布尔运算合并时怎么出错了?上图了