|

楼主 |
发表于 2005-11-12 17:29:00
|
显示全部楼层
<P align=center><IMG><BR>图3齿槽放样除料截面图</P>
<P>2. 基于Solid Edge的齿轮三维设计程序的设计方法 <BR> 有关齿轮设计计算等部分的程序设计方法可参阅相关参考文献,本文以斜齿圆柱齿轮为例,着重介绍一下面向Solid Edge的齿轮三维设计程序的设计方法。 斜齿圆柱齿轮三维造型程序设计主要包括以下几个方面: <BR>(1)在VB程序中调用Solid Edge对象。在VB程序中是采用VB的CreateObject( )或GetObject( )函数来调用Solid Edge对象,用Set objDoc = objApp.Documents.Add("SolidEdge.PartDocument")方法创建SolidEdge 零件(Part)模块文档objDoc。如需退出Solid Edge环境,可执行objApp.Quit语句[4]。 <BR>(2)创建齿坯并倒角、开中心孔、键槽。具体算法是:用Set objProfile(1) = objDoc.ProfileSets.Add.Profiles.Add(objDoc.RefPlanes(1))方法在Part模块文档objDoc中定义齿坯二维轮廓参考面objProf(1);用Call objProfile(1).Circles2d.AddByCenterRadius(0, 0, r)方法在参考面objProf(1)上建立半径为r的二维齿顶园,用Set objModel = objDoc.Models.AddFiniteExtrudedProtrusion(1, objProfile, igLeft, b)方法将二维齿顶园拉伸为齿宽为b三维齿坯objModel;用Set objEdges = objModel.ExtrudedProtrusions(1).Edges(EdgeType:=igQueryAll)方法获取齿坯objModel的边缘objEdges,用Call objModel.Chamfers.AddEqualSetback(2, objEdge, s) 切角方法生成宽度为s的45度倒角;用Call objProf.Arcs2d.AddByCenterStartEnd( )和 Call objProf.Lines2d.AddBy2Points( )方法在参考面objProf上建立中心孔和键槽轮廓,然后用Set objCutout = objModel.ExtrudedCutouts.AddFinite(objProf, igLeft, igLeft, b)拉伸除料方法在齿坯上切出中心孔和键槽。其中objProfile、objProf、objEdges、objModel 、objCutout等均为Object类型数据。 <BR>(3)创建齿槽轮廓。对于斜齿圆柱齿轮,我们沿齿槽方向采用4个齿槽轮廓进行放样除料形成齿槽。具体算法是:用Set objLFRefPlane(i) = objDoc.RefPlanes.AddParallelByDistance(objDoc.RefPlanes(1), (i-1)*b / 3, igRight, True)方法在齿槽方向建立四个平行于基准面RefPlanes(1)的参考面objLFRefPlane(i)(其中i=1~ <BR>4,b为齿宽),根据“四点法”用 Set objCurve(i) = objLFRefPlane (i).BsplineCurves2d.AddByPoints(Order:=4, ArraySize:=4, Array:=MyArray()) B样条曲线方法,根据“四点”数组MyArray()建立B样条曲线objCurve(i),并用Set objArc(i) = objLFRefPlane(i). Arcs2d.AddByCenterStartEnd( )圆弧方法及Set objLine1(i) = objLFRefPlane(i).Lines2d.AddBy2Points( )直线方法分别在四个参考面objLFRefPlane(i)上建立相应的齿槽轮廓,如图3所示。 <BR>(4)采用放样除料方法去除齿槽部分。具体算法是:根据放样除料特征操作的要求,在四个参考面上将右侧齿根点定义为放样基准点,构成放样基准点数组OriginArray(i),并用SectionTypes(i) = igProfileBasedCrossSection方法确认每个轮廓封闭。最后用Set objLoftCut = objModel. LoftedCutouts.AddSimple(NumSections:=4, CrossSections:=objLFProfile, CrossSectionTypes: = SectionTypes, Origins:=OriginArray, MaterialSide:=igLeft, StartTangentType:=igNone, EndTangentType:=igNone) 放样除料方法在齿坯模型objModel上去除齿槽部分。 <BR>(5)根据齿数,阵列齿槽部分,形成齿轮三维实体。具体算法是:用Set objRPattern = objProf.CircularPatterns2d.AddByCircle(CenterX:=0#, CenterY:=0#, StartX:=0.006, StartY:=0.06, Orientation:= igGeom2dOrientCounterClockwise, OffsetType:=sePatternFillOffset, Count:=1, AngularSpacing:=2 * PI / z)方法在齿坯基准面objProf上创建圆形阵列objRPattern,用Set objFeatures(1) = objLoftCut方法设置阵列特征为放样除料特征,最后用Set objPattern = objModel.Patterns.Add (Number OfFeatures:=1, FeatureArray: =objFeatures, Profile:=objProf, PatternType:= seSmartPattern)方法在齿坯模型objModel上将齿槽放样除料特征阵列,形成齿轮三维实体,如图4所示。</P>
<P align=center><IMG><BR>图4 斜齿轮三维模型</P>
<P>(6)程序的运行。用VB技术和Solid Edge二次开发接口开发的齿轮三维设计应用程序有两种运行方式:一是将开发的齿轮三维设计应用程序(*.EXE类型可执行文件)作为一条新增命令,嵌入到Solid Edge中,在Solid Edge环境中运行。二是将齿轮三维设计应用程序作为用户端主控模块控制Solid Edge的进入和退出。 </P>
<P align=center><IMG><BR>图5某组合机床主轴箱齿轮传动系统</P> |
|