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

hillskysea · 发表于 2009-4-25 21:05: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是齿数，6.28是角度，正值是逆时针，InsertPnt是中心点
cylinder.Boolean (0), gearObj(0)

tfdtm34i5ke.JPG

然后版主大大lzh741206给我回了个帖子如下：
“gearobj应该是齿形数组吧，因为你有n个齿
boolean运算要用foreach遍历数组的”

可能我刚学vba太菜了，还是不知道怎么把这些齿形数组用for each选中，将所有齿形数组选中成为一个对象。
我试过用selectset选择集，但是好像无法进行布尔运算。。又整了好久还是不知道怎么弄啊，大家帮帮忙啊先谢过了！！！

雪山飞狐_lzh · 发表于 2009-4-25 21:29:00

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

hillskysea · 发表于 2009-4-25 21:50:00

显示“无效的next控件变量引用”
我前面写了：dim i as integer
感谢大大了！

雪山飞狐_lzh · 发表于 2009-4-25 21:51:00

next obj写错了汗

hillskysea · 发表于 2009-4-25 22:01:00

我把它改成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 · 发表于 2009-4-25 22:02:00

整段程序是这样的：
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 · 发表于 2009-4-25 22:12:00

好长时间没用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 · 发表于 2009-4-25 22:23:00

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

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

发表回复

精选推荐

浏览过的版块