基于SolidWorks的斜齿轮参数化描述与设计

2012届本科毕业论文（设计）论文题目：基于SolidWorks的斜齿轮参数化描述与设计 学生姓名： 所在院系： 机电学院所学专业： 机械设计制造及其自动化导师姓名： 完成时间：2012年 5月10日摘要本文设计的是基于SolidWorks的齿轮参数化三维实体绘图系统，其对象为渐开斜齿圆柱齿轮。此系统能够安照用户输入的参数，在 SolidWorks环境下自动完成渐开线斜齿圆柱齿轮三维实体参数化造型。此次设计，是以三维实体机械造型软件SolidWorks为基础,以VB为开发工具,调用API函数，对SolidWorks进行二次开发，并实现了斜齿轮的参数化三维造型设计。齿轮参数化设计与造型软件的开发，实现了齿轮参数化设计与三维实体造型的结合，缩短了产品研发时间，提高了产品质量。关键词：斜齿轮,SolidWorks,API,二次开发,VB,斜齿轮参数化设计 The Parametric Description and Design of Helical Gear Based on SolidWorksAbstractThe design is to finish a gear parametrical three-dimensional modeling design system which is based on SolidWorks. Its design objects are involute helical tooth cylinder gear wheel. The functions of this system designed is to automatically finish parametrical three-dimensional modeling of involute straight tooth and helical tooth cylinder gear wheel in the environment of SolidWorks software. In this design, it introduces that it takes SolidWorks with three-dimensional mechanical modeling design software as basis, and uses Visual Basic as the exploitation implement,the fundamental method of calling API function to actuate the further development of SolidWorks and uses this method to realize gear parametrical three-dimensional modeling design according to parameters input by users.The development of gear parametrical design and modeling software brings about the join of gear parametrical design and three-dimensional substance modeling ,shortens the time of design produce ,and benefits the improvement of produce quality.Keywords: helical gear ,SolidWorks, API,Further development of Solidworks,VBParameterical design of helical gear目录第一章 绪论11.1研究背景1第二章 斜齿轮的参数化描述2第三章 VB开发SolidWorks的过程和一般步骤23.1具体的开发步骤：23.2使用宏命令建立一个宏文件33.3理解录制的程序代码63.3.1 变量描述63.3.2 程序入口63.3.3 VB与SolidWorks程序建立连接关系63.4 SolidWorks API的调用63.4.1 SolidWorks应用程序对象63.5 参数化设计的基本思路7第四章 渐开线圆柱斜齿左旋齿轮的参数化数学模型84.1渐开线的形成及其特性84.2渐开线方程式及渐开线函数94.3程序驱动参数94.4建模过程94.4.1 渐开线圆柱斜齿左旋齿轮的建模步骤及程序94.5程序运行及结果24第五章 结论24参考文献25致谢26程序附录27第一章 绪论1.1研究背景齿轮机构是在各种机构中应用最为广泛的一种传动机构。它依靠轮齿齿廓直接触来传递空间任意两轴间的运动和动力，并且具有传递功率范围大、传动效率高、传动比准确、使用寿命长、工作可靠等优点，广泛用于汽车、船舶、机床、矿山冶金等领域，而斜齿轮的轮齿在交替啮合时所受的载荷是逐渐加上，在逐渐卸掉的，因此啮合性能好，重合度大，降低了每对轮齿的载荷，传动比较平稳，冲击、振动和噪声较小，适宜于高速、重载传动，目前斜齿轮传动技术已经成为世界各国机械传动发展的重点之一。在设计制造齿轮产品时，齿轮的三维实体造型是一个关键的技术，如齿轮造型精度不高，将直接影响有限元分析、虚拟样机设计的仿真结果，并直接影响到齿轮产品的制造精度。传统的造型方法都只是几何要素的简单堆叠，仅描述了产品的几何形状，而不具备由于几何尺寸变化而使图形变换的尺寸驱动功能。这样一来哪怕是改变复杂模型的一个尺寸，也需要擦掉原有图形、重新构建一个新的图形，这种简单的重复工作严重影响设计效率，能否建立起图形的几何尺寸与几何数据的关联，通过更改数据实现几何模型的变化呢？这就是参数化设计！参数化设计将模型中的约束信息变量化，使之成为可以调整的参数，赋以变量化参数以不同的数值，就能得到大小和形状不同的零件模型，这种方法效率高、实现简单，程序量小。CAD/CAM技术的快速发展，为工业提供了强大的技术支持，为产品的设计、制造和生产水平的发展带来了质的飞跃，已经成为现代企业信息化、集成化、网络化的最佳选择。SolidWorks是基于Windows开发的全参数化三维CAD系统，广泛应用于汽车制造、工程机械等领域，具有良好的开放性和兼容性，支持Visual Basic,Visual C+等开发语言，便于在SolidWorks环境下进行二次开发，并且SolidWorks功能强大，易学易用。本文主要分析了在SolidWorks环境下，利用VB语言对斜齿轮进行参数化和二次开发，实现斜齿轮的参数化驱动，这样通过修改斜齿轮模型的基本结构参数就可以快速实现斜齿轮的三维建模，从而提高了建模速度、降低了造型难度、减少了重复性劳动、节约了时间，提高了设计效率。第二章 斜齿轮的参数化描述采用计算机辅助设计方法对斜齿轮进行设计，必须对斜齿轮进行参数化描述。模数是齿轮的一个重要参数，已经标准化了。由于斜齿轮存在着螺旋角，所以斜齿轮存在法面模数和端面模数，由于刀具进刀的方向一般是垂直其法面的，故法面参数与刀具的参数相同，所以取为标准值。但在计算斜齿轮的几何尺寸时却需按端面参数进行，因此必须建立法面参数与端面参数的换算关系。 （2-1） 式中为齿顶高、为齿根高、为分度圆直径、为齿顶圆直径、为齿根圆直径、为法面模数、为端面模数、为法面齿顶高系数（=1），为法面顶隙系数（=0.25）。我国对一般用途的齿轮传动的标准压力角为20，所以一般标准渐开线斜齿轮的法面压力角20。齿数z的选择应根据实际的条件选择，但要保证不发生根切。螺旋角的存在使得斜齿轮传动平稳，但为了不使轴承承受过大的轴向力，不宜选得过大，常在=820之间选择。第三章 VB开发SolidWorks的过程和一般步骤使用VB6.0作为开发工具，因为采用的是DLL动态链接库方式，必须在VB中导入所需要的3中类型库：SldWorks 2011 Tybe Library,SldWorks Const tybe Library,SldWorks exposed tybe libraries for add-in use.然后才能调用SolidWorks的对象、方法和属性。3.1具体的开发步骤： （1）安装SolidWorks和VB6.0 (2)启动VB6.0，新建一个工程，导入所需要的3种类型库，然后编写代码，在任何情况下，所写的代码应类似于由SolidWorks的宏工具所产生的代码。在SolidWorks中，应用宏工具（“工具”“宏”“录制”）来获得程序头部和应用程序的代码是十分有用的。 （3）在VB里，选择文件，生成工程.exe文件即可。用VB写的应用程序能够在许多地方运行。在SolidWorks中运行，则单击“工具”“宏”“运行”命令，选择源文件即可；若为工程.exe文件运行，直接运行即可。3.2使用宏命令建立一个宏文件 （1）启动SolidWorks并建立一个新的零件，使用默认的单位mm。 (2)单击SolidWorks菜单栏中的“视图”“工具”“宏”命令，以显示宏工具条。 （3）击宏工具条中的（录制/暂停）按钮 （4)选择“前视基准面”单击（草图绘制）按钮，进入草图绘制环境。（5）单击（圆）按钮，以原点为圆心绘制一个圆，并设置半径为20mm,确定。如图3-1所示。图3-1 选择前视基面并创建圆(6)创建圆柱体模型。点击（拉伸凸台基体），在“特征管理器中”设置拉伸深度为150mm,确定后，如图3-2所示。 图3-2 圆柱体模型 （7）单击（停止）按钮，在弹出的“另存为”对话框中输入文件名为“circlr.swap”，单击“保存”按钮。删除所有建立的特征和草图。 （8）单击（运行）按钮，选择“circle.swp”,并观察结果。 （9）单击菜单栏中的“工具”“自定义”命令，系统弹出“自定义”对话框。单击“命令”选项卡，在“类别”选项栏中选择“宏”，将（自定义宏）按钮拖动到宏工具条中，如图3-3所示。当拖动自定义按钮到其他工具条，SolidWorks会弹出如图3-4所示的对话框。 图3-3 创建自定义按钮图3-4 自定义按钮的相应参数 （10）单击“编辑”按扭，进入VBA编程器，如图3-5所示，修改或浏览录制的程序代码。 图3-5 VBA编辑器状态3.3理解录制的程序代码 3.3.1 变量描述Dim swApp As Object swApp声明为对象,表示SolidWorks应用程序Dim Part As Object Part声明为对象,表示SolidWorks零件环境Dim boolstatus As Boolea boolstatus声明为布尔值Dim longstatus As Long, longwarnings As Long 这两个变量为长整型Dim FeatureData As Object FeatureData声明为对象,表示SolidWorks特征数据Dim Feature As Object Feature声明为对象,表示SolidWorks特征Dim Component As Object Component声明为对象,表示SolidWorks装配体的组件3.3.2 程序入口每个宏程序必须有一个程序入口，如Sub Main()。3.3.3 VB与SolidWorks程序建立连接关系Set swApp=Application.sldWorks是宏程序与SolidWorks建立连接的桥梁代码，得到的应用程序作为对象传给swApp,没有这条代码宏程序不能继续运行。Set Part=swApp.ActiveDoc是宏程序与SolidWorks中的零件环境建立连接的桥梁代码，所得到的当前工作环境作为对象传给Part,这条代码也不能少，否则程序不能运行。3.4 SolidWorks API的调用SolidWorks API的调用是指调用SolidWorks的事件、方法、属性及相关功能，SolidWorks API有自己的调用方法及调用顺序，可以参考“SolidWorks API和插件帮助主题”。3.4.1 SolidWorks应用程序对象SolidWorks应用程序对象（在宏程序里面声明为swApp）是所有调用SolidWorks API功能的最顶层，要调用SolidWorks API的其他功能，必须先调用此对象，如表3-1所示表3-1 SolidWorks应用程序对象的声明及调用语言代码描述说明VBADim swapp as object或Dim swapp as SldWorks. SldWorksSet swapp=Application.SldworksSwapp可以声明为不明对象，也可以声明为SolidWorks对象在对象调用时，高级语言用的是SolidWorks。宏语言用的是当前类VB或其他语言Dim swapp as object或Dim swapp as SldWorks. SldWorksSet swapp= etobject,(“Sldworks.Application”)3.5 参数化设计的基本思路分析机械零部件的结构特征，对有关联的尺寸用方程式约束。VB程序根据不同的模型自动获取设计变量，将其特征尺寸转化为参数化变量，并按照VB用户界面窗口输入的参数值对设计变量的修改来重建新的三维模型。具体的思路如下：(1) 在VB6.0中设置可视化用户界面所需各个控件和窗体的属性、方法以及事件。(2) 录制实体的创建过程，提取“宏”语句。(3) 在VB中编辑宏语句，找到接口语句，用来调用SolidWorks2011的API函数。(4) 根据渐开线特性描出一系列渐开线上的点。(5) 调用样条曲线命令拟合渐开线，绘制出标准齿形。（6）调用实体裁剪命令，得到完整的渐开线齿廓。(7) 绘制出螺旋线，调用扫描命令，扫描出单个轮齿。(8) 调用阵列命令，得到完整齿形。(9) 切制轴孔和键槽。(10)创建SolidWorks系统插件菜单。第四章 渐开线圆柱斜齿左旋齿轮的参数化数学模型4.1渐开线的形成及其特性如图4-1所示，当直线沿一圆周作纯滚动时，直线上任意点的轨迹就是该圆的渐开线。此圆叫渐开线的基圆，半径用表示；直线叫渐开线的发生线；角称为渐开线上点的展角。 渐开线具有以下特性：1）发生线上线段长度等于基圆上被滚过的弧长。 2）发生线为渐开线在点的法线，又因发生线横切于基圆，所以渐开线上任意点的法线恒与基圆相切。3）发生线与基圆的切点也是渐开线在点处的曲率中心，线段就是渐开线在点的曲率半径。所以渐开线越接近基圆部分的曲率半径越小，在基圆上其曲率半径为零。4）渐开线的形状取决于基圆大小。展角相同处，基圆半径越大，其渐开线的曲率半径也就越大。当基圆半径为无穷大时，其渐开线就变成一条直线，所以齿条的齿廓曲线为直线。5）基圆以内无渐开线。图4-1 渐开线形成原理图4.2渐开线方程式及渐开线函数在图4-1中，设为渐开线在任意点的向径。当渐开线与共轭齿廓在点啮合时，该轮廓在该点所受正压力的方向（法线方向）与该点的速度方向（沿方向）之间的锐角，称为渐开线在该点的压力角。由得 （4-2）又因 （4-3）故知 由上式知，是压力角的函数，称其为渐开线函数。用来表示，即 由式（4-2）及式（4-3）得渐开线的极坐标方程式为 （4-4）4.3程序驱动参数本次设计中需要做到全参数化的有,齿数Z、法面模数mn、螺旋角、齿宽L、轴径以及键槽的相关参数。4.4建模过程 下面对本次的设计程序作诠释并附图说明设计过程。在创建模型的过程中，首先，经过在VB环境下的数学模型计算，得出重要数据。并准备好传递给SolidWorks数据接口API，等待调用。4.4.1 渐开线圆柱斜齿左旋齿轮的建模步骤及程序Dim swApp As ObjectDim Part As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Da As Double 齿顶圆直径Dim D As Double 分度圆直径Dim Db As Double 基圆直径 Dim Df As Double 齿根圆直径Dim Pz As Double 螺距Dim mn As Double 法面模数Dim mt As Double 端面模数Dim Z As Double 齿数Dim As Double 螺旋角Dim L As Double 齿宽Dim DD As Double 轴径Dim b As Double 键槽宽 Dim t1 As Double 键t1值Dim an As Double 法面压力角 Dim at As Double 端面压力角Dim S As Double 端面齿厚Dim a As Double 一个齿形在齿顶圆上弧长对应圆心角的Dim b As Double 一个齿形在基圆上弧长对应圆心角的Dim As Double 一个齿形在分度圆上弧长对应圆心角的Dim ab As Double Dim aa As DoubleDim ad As DoubleConst pi = 3.14159265 圆周率 Const hn = 1 法面齿顶高系数Const cn = 0.25 法面顶隙系数需要的数据已经定义完毕，创建一个渐开线圆柱斜齿齿轮需要四个最基本的参数（齿数、法面模数、螺旋角，齿宽）。我国标准齿轮的齿顶高系数以及顶隙系数已经固定，这里不做参数化考虑。下面就是有关的几个基本参数计算的程序：Z =CDbl(Text1.Text)mn =CDbl(Text2.Text) =CDbl(Text3.Text) * pi / 180#L =CDbl(Text4.Text)DD =CDbl(Text5.Text)t1 =CDbl(Text6.Text)b =CDbl(Text7.Text)an = 20 * pi / 180#at = Atn(Tan(an) / Cos()mt = mn / Cos()Da = mt * Z + 2 * mn * hnD = mt * ZDb = mt * Z * Cos(at)Df = mt * Z - 2 * mn * (hn + cn)ad = ArcCos(Db / D)ab = ArcCos(Db / Db)aa = ArcCos(Db / Da)Pz = pi * D / Tan()S = pi * mt / 2a = (2 * S / D - 2 * (INV(aa) - INV(at) / 2b = (2 * S / D - 2 * (INV(ab) - INV(at) / 2 = (2 * S / D - 2 * (INV(ad) - INV(at) / 2有了上述数据的准备，接下来就是渐开线的计算。 由于在SolidWorks里齿轮齿廓渐开线的生成采用的是近似代替法（描点），所以齿廓曲线的生成至少需要四个点：渐开线与齿顶圆的交点、渐开线与分度圆的交点、渐开线与基圆的交点和渐开线与齿根圆的交点，如果希望曲线的精度更高，可以在这些点之间插入更多的点。由于基圆内无渐开线，所以当基圆半径大于齿根圆半径，齿根圆与渐开线没有交点，分别将齿顶圆、基圆，分度圆的半径带入上面的公式，即可得到渐开线与三个圆的交点，本文根据上述公式，计算出齿顶圆、分度圆和基圆在一个齿形中对应的圆心角，然后过圆心作三条与过圆心水平中心线夹角分别为上述三个角度一半的射线。三条射线分别与齿顶圆、分度圆和基圆有一个交点，过三条射线与三个圆的交点作一条圆弧，可得到近似渐开线轮廓，并延伸，使渐开线的圆弧从基圆延伸到齿根圆。本文是以已知圆的参数形成渐开线轮廓，然后通过尺寸驱动，将外部数据传入函数，得到想要的齿形轮廓，进而得到要求的齿轮。渐开线描点和样条曲线拟合程序：boolstatus = Part.Extension.SelectByID2(前视基准面, PLANE, 0, 0, 0, False, 0, Nothing, 0)Part.SketchManager.InsertSketch TrueSet skSegment = Part.SketchManager.CreateCircleByRadius(0#, 0#, 0#, 67.221959 / 2000)Part.ClearSelection2 TrueSet skSegment = Part.SketchManager.CreateCircleByRadius(0#, 0#, 0#, 61.221959 / 2000)boolstatus = Part.Extension.SelectByID2(Arc2, SKETCHSEGMENT, 0.02874346936685, 0.0113837133767, 0, False, 0, Nothing, 0)Part.SketchManager.CreateConstructionGeometryPart.ClearSelection2 TrueSet skSegment = Part.SketchManager.CreateCircleByRadius(0#, 0#, 0#, 55.391868 / 2000)boolstatus = Part.Extension.SelectByID2(Arc3, SKETCHSEGMENT, 0.02737211037865, 0.007422009633009, 0, False, 0, Nothing, 0)Part.SketchManager.CreateConstructionGeometryPart.ClearSelection2 TrueSet skSegment = Part.SketchManager.CreateCircleByRadius(0#, 0#, 0#, 49.721959 / 2000)Part.ClearSelection2 TrueSet skSegment = Part.SketchManager.CreateCenterLine(0#, 0#, 0#, 5, 0#, 0#)Part.SetPickModePart.ClearSelection2 TrueSet skSegment = Part.SketchManager.CreateCenterLine(0#, 0#, 0#, 4, 5, 0#)Part.SetPickModePart.ClearSelection2 TrueSet skSegment = Part.SketchManager.CreateCenterLine(0#, 0#, 0#, 3, 4, 0#)Part.SetPickModePart.ClearSelection2 TrueSet skSegment = Part.SketchManager.CreateCenterLine(0#, 0#, 0#, 2, 3, 0#)Part.SetPickModePart.ClearSelection2 TrueSet skSegment = Part.SketchManager.CreateCenterLine(0#, 0#, 0#, 1, 2, 0#)Part.SetPickModePart.ClearSelection2 TrueDim skPoint As ObjectSet skPoint = Part.SketchManager.CreatePoint(1.4, 1, 0#)Set skPoint = Part.SketchManager.CreatePoint(1.3, 1, 0#)Set skPoint = Part.SketchManager.CreatePoint(1.2, 1, 0#)Set skPoint = Part.SketchManager.CreatePoint(1.1, 1, 0#)Part.SetPickModePart.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2(Point12, SKETCHPOINT, 1.4, 1, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Line2, SKETCHSEGMENT, 0.07260710708793, 0.005247843305985, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Arc1, SKETCHSEGMENT, 0.05848334997507, -0.01367266150558, 0, True, 0, Nothing, 0)Part.SketchAddConstraints sgATINTERSECTPart.SetPickModePart.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2(Point13, SKETCHPOINT, 1.3, 1, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Line3, SKETCHSEGMENT, 0.07713736880338, 0.011377020921, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Arc2, SKETCHSEGMENT, 0.04276067696265, -0.01127428765623, 0, True, 0, Nothing, 0)Part.SketchAddConstraints sgATINTERSECTPart.SetPickModePart.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2(Point14, SKETCHPOINT, 1.2, 1, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Line4, SKETCHSEGMENT, 0.0659449575064, 0.01457485272014, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Arc3, SKETCHSEGMENT, 0.03396663951502, -0.009941857739921, 0, True, 0, Nothing, 0)Part.SketchAddConstraints sgATINTERSECTPart.SetPickModePart.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2(Point15, SKETCHPOINT, 1.1, 1, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Line5, SKETCHSEGMENT, 0.0486233685944, 0.01750619853601, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Arc4, SKETCHSEGMENT, 0.02330720018456, -0.008875913806875, 0, True, 0, Nothing, 0)Part.SketchAddConstraints sgATINTERSECTPart.ClearSelection2 TruePart.SetPickModeDim pointArray As VariantDim points() As DoubleReDim points(0 To 11) As Doublepoints(0) = 0.06085737009605points(1) = 0.005619712103464points(2) = 0points(3) = 0.04381853134651points(4) = 0.006349215766536points(5) = 0points(6) = 0.03504929867417points(7) = 0.008040721460545points(8) = 0points(9) = 0.02381000377759points(10) = 0.00898006607991points(11) = 0pointArray = pointsSet skSegment = Part.SketchManager.CreateSpline(pointArray)Part.ClearSelection2 True为了使拟合后的样条曲线与实际的渐开线位置准确重合，还需要添加几何关系进行约束。添加几何关系的程序如下：Part.SetPickModeboolstatus = Part.Extension.SelectByID2(Point16, SKETCHPOINT, 0.06085737009605, 0.005619712103464, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Point12, SKETCHPOINT, 0.0209966124371, 0.02624576554638, 0, True, 0, Nothing, 0)Part.SketchAddConstraints sgCOINCIDENTPart.SetPickModePart.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2(Point18, SKETCHPOINT, 0.04381853134651, 0.006349215766536, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Point13, SKETCHPOINT, 0.0183665877, 0.0244887836, 0, True, 0, Nothing, 0)Part.SketchAddConstraints sgCOINCIDENTPart.SetPickModePart.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2(Point19, SKETCHPOINT, 0.03504929867417, 0.008040721460545, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Point14, SKETCHPOINT, 0.01536294002444, 0.02304441003666, 0, True, 0, Nothing, 0)Part.SketchAddConstraints sgCOINCIDENTPart.SetPickModePart.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2(Point17, SKETCHPOINT, 0.02381000377759, 0.00898006607991, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Point15, SKETCHPOINT, 0.01111816802985, 0.02223633605969, 0, True, 0, Nothing, 0)Part.SketchAddConstraints sgCOINCIDENTPart.SetPickModePart.ClearSelection2 True 此时准确的渐开线已经形成，通过镜像，就可以得到另一条渐开线。镜像渐开线的程序如下：boolstatus = Part.Extension.SelectByID2(Spline1, SKETCHSEGMENT, 0.0495781019717, 0.004802086071705, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Line1, SKETCHSEGMENT, 0.05337244883132, -0.001015912446376, 0, True, 0, Nothing, 0)Part.SketchMirrorPart.ClearSelection2 True 此时便可得到两条渐开线，为了得到清晰准确的渐开线齿廓，还要进行修剪，修剪的程序如下：boolstatus = Part.Extension.SelectByID2(圆弧1, SKETCHSEGMENT, 0, 0, 0, False, 0, Nothing, 0)boolstatus = Part.SketchManager.SketchTrim(0, 0.05511605460674, -0.02747220606484, 0)boolstatus = Part.Extension.SelectByID2(Line2, SKETCHSEGMENT, 0.08135903068853, 0.00689359594703, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Line5, SKETCHSEGMENT, 0.07615209098976, 0.02834618750596, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Arc1, SKETCHSEGMENT, 0.06053127189345, 0.01230881323375, 0, True, 0, Nothing, 0)Part.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2(Line2, SKETCHSEGMENT, 0.08135903068853, 0.00689359594703, 0, False, 2, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Line5, SKETCHSEGMENT, 0.07615209098976, 0.02834618750596, 0, True, 2, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Arc1, SKETCHSEGMENT, 0.06053127189345, 0.01230881323375, 0, True, 2, Nothing, 0)boolstatus = Part.SketchManager.SketchTrim(6, 0, 0, 0)Part.ClearSelection2 TruePart.SetPickModeboolstatus = Part.Extension.SelectByID2(圆弧4, SKETCHSEGMENT, 0, 0, 0, False, 0, Nothing, 0)boolstatus = Part.SketchManager.SketchTrim(0, 0.02491580435388, -0.004145116214359, 0)boolstatus = Part.Extension.SelectByID2(Line1, SKETCHSEGMENT, 0.0869825255632, 2.287131326061E-04, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Line5, SKETCHSEGMENT, 0.07323620475845, 0.0268882443903, 0, True, 0, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Arc4, SKETCHSEGMENT, 0.02408269400208, 0.005643930419325, 0, True, 0, Nothing, 0)Part.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2(Line1, SKETCHSEGMENT, 0.0869825255632, 2.287131326061E-04, 0, False, 2, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Line5, SKETCHSEGMENT, 0.07323620475845, 0.0268882443903, 0, True, 2, Nothing, 0)boolstatus = Part.Extension.SelectByID2(Arc4, SKETCHSEGMENT, 0.02408269400208, 0.005643930419325, 0, True, 2, Nothing, 0)boolstatus = Part.SketchManager.SketchTrim(6, 0, 0, 0)Part.ClearSelection2 True 至此渐开线齿廓已经形成，进行尺寸驱动，就可以获得符合要求的渐开线齿廓。尺寸驱动的程序如下：boolstatus = Part.Extension.SelectByID2(Arc1, SKETCHSEGMENT, 0.06068262004599, -0.000233029067871, 0, False, 0, Nothing, 0)Dim myDisplayDim As ObjectSet myDisplayDim = Part.AddDimension2(0.05602203868857, -0.05243154027097, 0)Part.ClearSelection2 Trueboolstatus = Part.EditDimensionProperties2(0, 0, 0, , , False, 6, 2, True, 12, 12, R, , True, , , False)Part.Parameter(D1草图1).SystemValue = Da / 2000Part.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2(Arc2, SKETCHSEG