|
|
|
be44mg2tvo3.JPG
如图所示，遍历图中实体后，与圆柱进行布尔运算结果出现了这种情况。部分代码如下。（为了与圆柱进行并运算时不出现缝隙，我把齿的长度加长了一下，所以图中齿的长度很长）
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不久，大家莫笑哈，之前就问过版主很多问题，先谢过了[求助]遍历实体后布尔运算有一个没起作用
11w54rznm55.JPG
|
|
置顶卡
