恳请高手中的高手帮忙
<p>手先感谢大家的帮忙，我在用vba编程创建三维齿轮模型时，先创建了一个齿的轮廓，然后将其生成面域，接着拉伸为实体，最后在用环形阵列时，发先，我输入阵列个数是34齿时，而得到的却是33齿的齿轮，而且在将阵列后的实体进行合并时，发现在部分齿与齿之间有小的平面连接，或是autocad提示：<strong>处理边界冲突的系统不一致</strong>。实在是不得其解，还望大家帮忙。代码见下边：</p><p>'镜像形成完整的单齿齿廓曲线<br/>points3(0) = 0: points3(1) = 1: points3(2) = 0<br/>Set curves(2) = curves(1).Mirror(points1, points3)<br/>Set curves(3) = curves(0).Mirror(points1, points3)<br/>'创建面域<br/>regionobj = 齿轮cad.ActiveDocument.ModelSpace.AddRegion(curves)<br/>'创建单齿拉伸实体<br/>taperangle = 0<br/>Set dcst = 齿轮cad.ActiveDocument.ModelSpace.AddExtrudedSolid(regionobj(0), ck, taperangle)<br/>'阵列生成三维实体<br/>qcst = dcst.ArrayPolar(cs , 2 * pi, points1)</p><p> </p>
页:
[1]