如何选择所有对象然后进行布尔运算

hillskysea

如题，之前我发了个帖子在这http://bbs.mjtd.com/forum.php?mod=viewthread&tid=75128&replyID=&skin=1

大意如下：

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

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选择集，但是好像无法进行布尔运算。。又整了好久还是不知道怎么弄啊，大家帮帮忙啊先谢过了！！！

雪山飞狐_lzh

Dim obj As Acad3DSolid
For Each obj In gearObj
cylinder.Boolean acUnion, obj
Next i

hillskysea

lzh741206发表于2009-4-25 21:29:00Dim obj As Acad3DSolidFor Each obj In gearObjcylinder.Boolean acUnion, objNext i

显示“无效的next控件变量引用”

我前面写了：dim i as integer

感谢大大了！

雪山飞狐_lzh

next obj写错了汗

hillskysea

我把它改成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

hillskysea

整段程序是这样的：

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‘     要求对象”

雪山飞狐_lzh

好长时间没用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

hillskysea

可以了，十分感谢版主大大啊！