圆体成形车刀工作部分设计模块毕业论文(编辑修改稿)

圆体成形车刀工作部分设计模块毕业论文(编辑修改稿)内容摘要：

d Sub （2）在AutoCAD中，打开【VBA管理器】对话框，新建一个工程，保存在适当的位子上，进入VBA集成开发环境。 选择【插入/用户窗体】菜单项，向程序中添加一个用户窗体，在窗体中放置控件。 （3）选择【插入/模块】菜单项，向程序中添加一个标准模块，在【属性】窗口中将其名称修改为calculate。 创建点的基本函数。 这里要创建的函数包括根据相对直角坐标和极坐标计算点位置的函数，以及计算两点之间中点的函数。 Getpoint函数根据一点以及未知点的直角坐标，计算未知点的直角坐标，其实现代码为：Public Function getpoint(gpt As Variant, gx As Double, gy As Double) As Variant Dim pttarget(0 To 2) As Double pttarget(0) = gpt(0) + gx pttarget(1) = gpt(1) + gy pttarget(2) = 0 getpoint = pttargetEnd Function其中：gpt为已知一点，gx,gy分别为未知点相对已知点在X，Y方向的移动距离。 函数的返回值为variant，在本系统中所有的程序中，均使用variant类型的变量在函数之间交换点的坐标数据。 Getpointar函数根据一点以及未知点相对于已知点的极坐标，计算未知点的直角坐标，其实现代码为：Public Function getpointar(ByVal ptbase As Variant, ByVal angle As Double, ByVal length As Double) As Variant Dim pt(0 To 2) As Double pt(0) = ptbase(0) + length * Cos(angle) pt(1) = ptbase(1) + length * Sin(angle) pt(2) = 0 getpointar = ptEnd Function 其中：ptbase为已知的基点，length,angle为未知点相对于已知点的极坐标，length * Cos(angle)即为未知点相对于已知点在X方向移动的距离，length * Sin(angle)为未知点相对于已知点在Y方向移动的距离。 Call (ptcen, Rw, stang, enang)该函数为系统提供的addarc方法，已知圆心，半径，起点和终点，需要计算出起始角度和终止角度，调用基准函数，来创建圆弧。 pt(0) = (Cos(af) * Rw b) + 70 pt(1) = (H + Tan(rf) * b) + 150 pt(2) = 0 pt为两直线的交点 addline ptst, pt addline pt, pten 调用了已知起点和终点画直线的基准函数addline。 Addline基准函数的创建为，在窗体模块中，选择【插入/过程】菜单项，【添加过程】对话框，选择【类型】为【函数】，【范围】为【公用的】，在【名称】文本框中输入Addline，单击【确定】按钮，就在窗体模块的通用段中添加了Addline函数。 添加过程对话框在该辅助设计系统中，基准函数就是与系统提供的方法参数一致的函数，其他的函数均调用基准函数创建对象，创建Addline基准函数代码为： Public Function addline(ByVal ptst As Variant, ByVal pten As Variant) As AcadLine 39。 画直线 Set addline = (ptst, pten)End Function Call (ptcen, rn)调用系统的AddCircle方法，已知圆心和半径来创建圆。 （3）本程序所有的关键代码均在窗体的【OK】按钮单击事件中完成，下面是圆体成形车刀工作部分的一些程序代码。 对程序中所需的变量及数组进行定义Dim rr1(0 To 2) As DoubleDim rr2(0 To 2) As DoubleDim rr3(0 To 2) As DoubleDim rr4(0 To 2) As DoubleDim rr5(0 To 2) As DoubleDim rr6(0 To 2) As DoubleDim rr7(0 To 2) As DoubleDim rr8(0 To 2) As DoubleDim rr9(0 To 2) As DoubleDim rr10(0 To 2) As DoubleDim rr11(0 To 2) As DoubleDim rr12(0 To 2) As DoubleDim rr13(0 To 2) As DoubleDim rr14(0 To 2) As DoubleDim rr15(0 To 2) As DoubleDim rr16(0 To 2) As DoubleDim rr17(0 To 2) As DoubleDim rr18(0 To 2) As DoubleDim rr19(0 To 2) As DoubleDim rr20(0 To 2) As DoubleDim rr21(0 To 2) As DoubleDim rr22(0 To 2) As Double从窗体中获得用户输入的数据的程序如下：rr1(0) = P(31) + (J g) / 2rr1(1) = P(32) (J g) / 2rr1(2) = 0rrr = (J g) / Sqr(2)StartAngleInRadian1 = 45 * / 180EndAngleInRadian1 = 135 * / 180Set arcobj1 = (rr1, rrr, StartAngleInRadian1, EndAngleInRadian1) = 轮廓线rr2(0) = rr1(0) + Jrr2(1) = rr1(1)rr2(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian2 = 45 * / 180EndAngleInRadian2 = 135 * / 180Set arcobj2 = (rr2, rrr, StartAngleinradian2, EndAngleInRadian2) = 轮廓线rr3(0) = rr1(0) + 2 * Jrr3(1) = rr1(1)rr3(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian3 = 45 * / 180EndAngleInRadian3 = 135 * / 180Set arcobj3 = (rr3, rrr, StartAngleinradian3, EndAngleInRadian3) = 轮廓线rr4(0) = rr1(0) + 5 * Jrr4(1) = rr1(1)rr4(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian4 = 45 * / 180EndAngleInRadian4 = 135 * / 180Set arcobj4 = (rr4, rrr, StartAngleinradian4, EndAngleInRadian4)rr5(0) = rr1(0) + 6 * Jrr5(1) = rr1(1)rr5(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian5 = 45 * / 180EndAngleInRadian5 = 135 * / 180Set arcobj5 = (rr5, rrr, StartAngleinradian5, EndAngleInRadian5)rr6(0) = rr1(0) + 7 * Jrr6(1) = rr1(1)rr6(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian6 = 45 * / 180EndAngleInRadian6 = 135 * / 180Set arcobj6 = (rr6, rrr, StartAngleinradian6, EndAngleInRadian6)rr7(0) = rr1(0) + 8 * Jrr7(1) = rr1(1)rr7(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian7 = 45 * / 180EndAngleInRadian7 = 135 * / 180Set arcobj7 = (rr7, rrr, StartAngleinradian7, EndAngleInRadian7)rr8(0) = rr1(0) + 9 * Jrr8(1) = rr1(1)rr8(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian8 = 45 * / 180EndAngleInRadian8 = 135 * / 180Set arcobj8 = (rr8, rrr, StartAngleinradian8, EndAngleInRadian8)End sub 校准部的校准齿无齿深量，只作校准和修光作用，不做出分屑槽。 为了便于制造，校准齿的前角、齿距与齿形均可做成与精切齿相同。 为了使拉刀重磨后其直径变化较小以及拉屑平稳，后角应做的更小些，刃带宽度应做得大些。 如果被拉屑孔的精度要求高，则校准齿的齿数就应该多些。 重磨时只需重磨第一个切屑齿到最后一个精切齿的这部分刀齿。 最后一个精切齿重磨后因其直径减小了，于是第一个校准齿就变为新的最后一个精切齿，以后再重磨后，如此类推。 为了使拉刀能多次重磨，校准齿直径应等于被拉削孔的最大直径，但拉削后孔径经常发生扩张或收缩，故实际校准齿直径取为 式中u——孔的扩张或收缩量，孔径扩张取“”号，收缩取“+”号。 分屑槽的作用是减少切屑宽度，便于切屑容纳在容屑槽中。 当切屑忍性金属时，若没有分屑槽，则圆孔拉刀每个刀齿切下的金属层是一个圆筒，它会套在容屑槽中，使清楚切屑十分困难，对拉屑 过程十分不利。 故切屑宽度较大的拉刀，在切屑齿的切屑刃上都要做出交错分布的分屑槽，将切屑分成许多小段。 ： 分屑槽 容屑槽要有足够的空间，能使切屑卷曲自由，又能使刀齿有足够强度，并可多次重磨。 常用的容屑槽有三种形式，如下。 （1） 齿背为直线的槽形：槽底有一圆弧，这种槽形简单，容易制造，用于拉削脆性材料及一般钢料。 （2） 齿背为曲线的槽形： 由前刀面与两个圆弧组成这种槽形有利于卷屑，适用于拉屑韧性材料。 （3） 加长齿距的槽形： 槽底为一直线，容屑空间大，适用于拉屑深孔。 容屑槽按其深度不同又可以分为浅槽、基本槽和深槽三种，可根据具体情况来选用。 决定容屑槽时要注意容屑条件。 由于切屑卷曲不紧密，故应使容屑槽的有效容积V槽大于切屑体积V屑，即容屑系数K应为。 由于切屑的宽度变形较小，可忽略不计，所以容屑系数K可用容屑槽及切屑层在拉刀轴向剖面内的面积比来表示。 即。 容屑槽纵剖面有效面积F槽可按下式近似计算式中h——容屑槽深度（mm）。 切屑层的纵剖面积F切屑层为 式中ac——切屑厚度（mm），对于普通拉屑式拉刀， ；对于综合拉屑式拉刀，； = 拉屑长度。 故 计算后，h选接近的标准值（mm）。 容屑系数K的具体数值随加工材料性质和齿升量不同而异。 可查有关质料。 根据已确定的齿距P和槽深h，即可按有关资料查出容屑槽的各尺寸。 ： 容屑槽 尺寸是工程图的重要组成部分，其主要作用是精确地描述零件的结构特征、形状特征和精度特征，为零件的加工提供依据。 没有标注尺寸的产品设计是毫无意义的，是不可能加工出产品的。 因此，除图形绘制功能以外，尺寸标注功能也是CAD系统的重要组成部分。 工程零件图的尺寸自动标注仍然是一个值得研究的重要课题。 AutoCAD中提供了3种基本类型的标注：线性、径向和角度。 线性标注包括对齐、旋转和坐标标注。 AutoCAD在当前图层中绘制标注，每一标注都关联着标注样式，这个标注样式可以是默认的或自定义的。 该样式控制着标注的特征，如颜色、文字样式和线形比例等，它不支持厚度信息。 样式族允许对不同类型的标注在基础样式上进行细微的修改。 以下是标注的一些程序代码：Dim dimobj3 As AcadDimAlignedDim location3(0 To 2) As DoubleDim point6(0 To 2) As DoubleDim point7(0 To 2) As Doublepoint6(0) = pp2(0)point6(1) = pp2(1)point6(2) = 0point7(0) = pp6(0)point7(1) = pp6(1)point7(2) = 0location3(0) = point5(0)location3(1) = point5(1) + 28location3(2) = 0Set dimobj3 = _。