[求助]遍历实体后布尔运算有一个没起作用

hillskysea

 

如图所示，遍历图中实体后，与圆柱进行布尔运算结果出现了这种情况。部分代码如下。（为了与圆柱进行并运算时不出现缝隙，我把齿的长度加长了一下，所以图中齿的长度很长）

gearObj = gearR.ArrayPolar(gearZ, 6.28, InsertPnt)                                                  'gearR是单个轮齿，gearz是齿数，InsertPnt是中心点
Set cylinder = acadApp.ActiveDocument.ModelSpace.AddCylinder(pnt, Rf, L * Cos(Beta * PI / 180))
Dim obj
For Each obj In gearObj
cylinder.Boolean 0, obj                               '跟基圆圆柱进行并运算
Next

我一菜鸟，刚学vba不久，大家莫笑哈，之前就问过版主很多问题，先谢过了

mccad

对于运算过程会造成原对象消失的操作，建议从选定对象的最后一个对象开始操作。如
For i=gearObj.Count-1 to 0
cylinder.Boolean 0, gearObj(i)
Next
这样的循环

hillskysea

mccad发表于2009-5-7 6:45:00对于运算过程会造成原对象消失的操作，建议从选定对象的最后一个对象开始操作。如For i=gearObj.Count-1 to 0cylinder.Boolean 0, gearObj(i)Next这样的循环

照这样弄了，显示“实时错误，要求对象”

进行阵列的gearobj我是定义为variant？？