基于solidworks二次开发平台，对齿轮滚刀进行三维参数化设计

基于solidworks二次开发平台，对齿轮滚刀进行三维参数化设计内容摘要：

17).查表选取内孔空刀尺寸：空刀直径d磨光部分长度l1滚刀的工艺过程如下：毛坯进行粗加工外圆→内孔加工→轴台加工→精车外圆→加工键槽→车削螺纹→铣容屑槽→铲磨外圆及齿形→磨孔→垳孔→磨削轴台外圆及端面→热处理 下面对铲磨外圆及齿形进行分析：对于每一个齿而言，铲背分为两个步骤，即第一次铲背和第二次铲背，得到两条铲背曲线；同时还有两条铲底曲线。 当滚刀为0176。 前角时，前刀面与基面重合，加工之前，滚刀装在铲齿车床上，铲齿车刀装在刀架上，阿基米德螺线凸轮装在溜板箱上，铲齿时铲刀沿滚刀轴线轴向进给，铲刀又在阿基米德螺线凸轮控制下向滚刀轴线推进，滚刀转过ε角位移量。 滚刀装在铲齿车床主轴上，进给前角为零度的铲齿车刀装在刀架上，阿基米德螺线凸轮装在溜板箱上，铲齿时，滚刀随车床主轴等速转动，铲刀在刀架带动下沿滚刀轴线按滚刀，其本蜗杆导程PZ↓作相应的轴向进给，铲刀刀刃则相对于滚刀轴线作螺旋运动，同时铲刀又在阿基米德螺线凸轮控制下向滚刀轴线推进，其特征在于滚刀转过ε↓角度时，阿基米德螺线凸轮转过角度φ↓，铲刀右刀尖铲至Ｆ’点，完成一个刀齿齿背的铲削工作，滚刀转过ε↓角度，阿基米德螺线凸轮相应转过φ↓[x]角度，铲刀退回原位，开始下一个刀齿的铲削工作。 本工艺的有关工艺参数如下：滚刀阿基米德螺线凸轮的运动关系ε↓[x]／ε＝φ↓[x]／360176。 滚刀每转一周的铲削次数NN＝Zk／cos↑βk铲齿时滚刀转角ε↓[p]的计算εp＝ε↓[1]＋ ε↓[2]＋f↓[Δ]ε↓[3]＋ε↓[3]滚刀左右两侧刃在分圆柱上的扭转角：Δε＝πm↓[n]↑[2]Zo／d↓[o]↑[2]其中：ε为滚刀刀齿齿间角；ε↓[x]、φ↓［x］分别为铲刀空程时滚刀、阿基米德螺线凸轮的转动角度，Zk滚刀溶屑槽数β↓[k]为滚刀螺旋槽分圆螺旋角，ε↓[1]、ε↓[2]、分别为铲刀切入角和切出角，ε↓[2]、为滚刀刀齿角度、m↓[n]滚刀基本蜗杆法向模数、Zo为滚刀基本蜗杆螺纹头数，d↓[o]为滚刀分圆柱直径f为齿根扭转角条数。 工艺过程中零前角铲齿车刀前刀面刃形，即滚刀铲面齿轴向齿形就是零前角铲齿车刀前刀面刃形。 216。 现代滚刀参数化设计过程：齿轮滚刀采用参数化设计，是以Solid Works 三维软件为基础平台，采用VB语言进行二次开发，可视化数据管理，便于操作。 设计不但提高了设计的效率，而且缩短了设计周期、保证设计结果的可靠性，从而对齿轮加工质量和精度有了很大的提高。 主要功能要求如下：（1）齿形参数设计计算输入加工齿形参数对工件几何尺寸进行校验，然后进行刀具齿形参数及加工工艺参数设计，得出一组符合要求的刀具齿形参数。 （2）刀具结构参数和基本尺寸设计在保证加工工艺性（刀具在展切齿形时不与工件其它部件发生干涉）的前提下，选择标准规定或推荐的刀具结构形式，确定刀具结构参数和基本尺寸，并保证刀具具有足够的刚度和强度。 （3）刀具齿形图和刀具展切齿形图的校验及绘制刀具齿形放大图可用于刀具样板或检验样板的设计，为刀具齿形加工及检验提供依据；刀具展切工件的图形及数据可用于分析刀具齿形参数设计的合理性以及刀具共轭齿形相对理论齿形的误差，或用于评价某一具体齿轮刀具对特定工件的加工工艺性。 （4）刀具三维实体的自动生成刀具齿形及结构参数设计完毕后，可自动绘制出刀具实体图，提供刀具加工使用及设计资料存档。 （5）工程图生成系统根据已生成的实体图自动转换为工程图。 （6）刀具技术条件的自动查询在刀具制造图上必须依据有关标准和设计准则标注出刀具制造、验收的技术条件及要求。 三、 用户界面的设计本软件的用户界面制作，通过VB来完成。 打开Visual Basic 企业版，新建一个工程后，添加一个新窗体，可调整其大小，对窗体的属性进行修改。 这时可以使用VB中常用的控件，如单选按钮、文本框、检查框、框架、列表框等，使用时可以点击后，拖放在窗体的工作区，调整其大小，修改属性；为了方便软件的部分功能操作，在软件的界面上设置了菜单栏、工具栏以及状态栏。 以下是软件界面的图片： 图为软件界面的初状态三、数据结构和数据流程（数据库、流程图） 参数输入是通过键盘来完成，执行程序后，根据定义的所需变量，由数据库调入必要的参数，通过计算公式得出设计计算结果，最后验证结果，以保证设计的合理和可靠性。 对于数据库的应用，在这里要着重详细介绍，通常VB中有以下几种连接数据库方式：1)连接SQL Server数据库Dim oleDbConnection1 As Ole Db. Ole Db ConnectionDim str Connect As Sting=”Provider=SQL OLE DB。 Persist Security Info=False。 Data Source=服务器名。 Initial Catalog=数据库名。 User ID = s a。 Password=。 ”oleDbConnection1=New System .Data .Ole Db. Ole Db Connection ( str Connect)2)连接Access数据库假设要连接的Access数据库名为“”，存放在d:\Data\目录下。 Dim oleDbConnection1 As Ole Db .Ole Db ConnectionDim str Connect As Sting=”Provider=。 Data Source=d:\Data\ ”oleDbConnection1= New System .Data .Ole Db. Ole Db Connection (str Connect)3)连接Oracle数据库Dim oleDbConnection1 As Ole Db .Ole Db ConnectionDim str Connect As Sting=”Provider=MS DAORA。 Data Source=服务器名。 User ID=用户ID。 Password=密码。 ”oleDbConnection1= New System. Data . Ole Db .Ole Db Connection ( str Connect)Dim conn As A。