vba中阵列后遍历的问题

hillskysea

" v/ P/ O1 j  ]9 W6 K" h如图所示，遍历图中实体后，与圆柱进行布尔运算结果出现了这种情况。部分代码如下。
0 P3 L" d4 v$ s" P9 ~' \  AgearObj = gearR.ArrayPolar(gearZ, 6.28, InsertPnt)                                                  'gearR是单个轮齿，gearz是齿数，InsertPnt是中心点
: A! ^% [9 v. D- {) ]4 xSet cylinder = acadApp.ActiveDocument.ModelSpace.AddCylinder(pnt, Rf, L )
Dim obj
For Each obj In gearObj
7 E) E2 z0 U: @: v/ |) Gcylinder.Boolean 0, obj                               '跟基圆圆柱进行并运算
$ y9 x5 j* _3 K! J/ L* cNext
( u3 k# h# a! U1 T4 ~* R3 JDim cylinder2 As Object
4 ]% {; x& n) Q$ L# i( cSet cylinder2 = acadApp.ActiveDocument.ModelSpace.AddCylinder(pnt, Ra, L ）
cylinder2.Boolean 1, cylinder

woaishuijia

导致问题的原因有两个：
  e4 j6 \1 L- t/ k5 ^# O1、阵列方法的返回值是新生成的对象数组，这其中不包含原始对象。当你遍历数组与圆柱并集时遗漏了原始对象，所以图上有一个轮齿没有并集；
5 t8 a8 e' c6 e2、360度环形阵列，角度不应该用6.28，而要用ThisDrawing.Utility.AngleToReal(180, acDegrees) * 2。否则，CAD会把它做为弧度6.28的部分圆周看待，所以，与图上没有被并集的原始轮齿很近的地方还有一个被并集的齿，这是在阵列中生成的最后一个，它与原始轮齿的夹角是6.28弧度。就是说，轮齿并没有按360度圆周阵列。