如何选择所有对象然后进行布尔运算
如题，之前我发了个帖子在这大意如下：
我绘制一个圆柱齿轮，齿廓部分已经拉伸完成，现在要用一个圆柱和齿形部分进行并运算，怎么运行后看图像只有一个齿的齿廓布尔和运算成功了，其他齿都没反应，我把代码复制过来，大家看看
Dim gearObj() As Object
Dim cylinder As Object
Set cylinder = ThisDrawing.ModelSpace.AddCylinder(InsertPnt, Rf, 10)
gearObj = gearR.ArrayPolar(gearZ, 6.28, InsertPnt) 'gearz是齿数，6.28是角度，正值是逆时针，InsertPnt是中心点
cylinder.Boolean (0), gearObj(0)
然后版主大大lzh741206给我回了个帖子如下：
“gearobj应该是齿形数组吧，因为你有n个齿
boolean运算要用foreach遍历数组的”
可能我刚学vba太菜了，还是不知道怎么把这些齿形数组用for each选中，将所有齿形数组选中成为一个对象。
我试过用selectset选择集，但是好像无法进行布尔运算。。又整了好久还是不知道怎么弄啊，大家帮帮忙啊先谢过了！！！
Dim obj As Acad3DSolid
For Each obj In gearObj
cylinder.Boolean acUnion, obj
Next i
显示“无效的next控件变量引用”
我前面写了：dim i as integer
感谢大大了！
next obj写错了汗 我把它改成next obj
显示运行时错误‘424’
要求对象
就是在for each obj in gearobj这里
整段代码如下：
Dim gearObj As Variant ‘我把gearobj改成variant类型，gearobj是拉伸形成的斜齿轮的轮齿
gearObj = gearR.ArrayPolar(gearZ, 6.28, InsertPnt) 'gearz是齿数，是角度，正值是逆时针，InsertPnt是中心点
Set cylinder = ThisDrawing.ModelSpace.AddCylinder(pnt, Rf , L * Cos(Beta * PI / 180) ) ’sclinder是要进行合并的圆柱
Dim obj As Acad3DSolid
For Each obj In gearObj
cylinder.Boolean acUnion, obj
Next obj
整段程序是这样的：
Dim gearObj As Variant ‘我把类型改成variant
gearObj = gearR.ArrayPolar(gearZ, 6.28, InsertPnt) 'gearz是齿数，是角度，正值是逆时针，InsertPnt是中心点
Set cylinder = ThisDrawing.ModelSpace.AddCylinder(pnt, Rf , L * Cos(Beta * PI / 180) )
Dim obj As Acad3DSolid
For Each obj In gearObj
cylinder.Boolean acUnion, obj
Next obj
会提示“运行时错误'424‘ 要求对象”
好长时间没用VB了，和C#搞混了，呵呵
两种方式都可以
Dim obj
For Each obj In gearObj
cylinder.Boolean acUnion, obj
Next
'or
dim j
For j = 0 To UBound(gearObj)
cylinder.Boolean acUnion,gearObj(j)
Next
可以了，十分感谢版主大大啊！
页:
[1]