恳请高手中的高手帮忙

xingmanxi

手先感谢大家的帮忙，我在用vba编程创建三维齿轮模型时，先创建了一个齿的轮廓，然后将其生成面域，接着拉伸为实体，最后在用环形阵列时，发先，我输入阵列个数是34齿时，而得到的却是33齿的齿轮，而且在将阵列后的实体进行合并时，发现在部分齿与齿之间有小的平面连接，或是AutoCAD提示：处理边界冲突的系统不一致。实在是不得其解，还望大家帮忙。代码见下边：

'镜像形成完整的单齿齿廓曲线
points3(0) = 0: points3(1) = 1: points3(2) = 0
Set curves(2) = curves(1).Mirror(points1, points3)
Set curves(3) = curves(0).Mirror(points1, points3)
'创建面域
regionobj = 齿轮cad.ActiveDocument.ModelSpace.AddRegion(curves)
'创建单齿拉伸实体
taperangle = 0
Set dcst = 齿轮cad.ActiveDocument.ModelSpace.AddExtrudedSolid(regionobj(0), ck, taperangle)
'阵列生成三维实体
qcst = dcst.ArrayPolar(cs , 2 * pi, points1)