[求助]遍历实体后布尔运算有一个没起作用
如图所示，遍历图中实体后，与圆柱进行布尔运算结果出现了这种情况。部分代码如下。（为了与圆柱进行并运算时不出现缝隙，我把齿的长度加长了一下，所以图中齿的长度很长）
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不久，大家莫笑哈，之前就问过版主很多问题，先谢过了[求助]遍历实体后布尔运算有一个没起作用
对于运算过程会造成原对象消失的操作，建议从选定对象的最后一个对象开始操作。如
For i=gearObj.Count-1 to 0
cylinder.Boolean 0, gearObj(i)
Next
这样的循环
照这样弄了，显示“实时错误，要求对象”
进行阵列的gearobj我是定义为variant？？
页:
[1]