机械原理课程设计

1 课程设计课程设计 课程名称 课程名称 锁梁自动成型机床切削机构设计锁梁自动成型机床切削机构设计 学学 院 院 机械工程学院机械工程学院 专专 业 业 机械电子工程机械电子工程 姓姓 名 名 赵赵 鹏鹏 飞飞 学学 号 号 070803110453 年年 级 级 机电机电 074 班班 任课教师 任课教师 余余 述述 凡凡 2001020010 年年 1 1 月月 1212 日日 2 贵州大学机械工程学院贵州大学机械工程学院 课程设计成绩评定表课程设计成绩评定表 填表人 年 月 日 专业机械电子工程机械电子工程姓名赵鹏飞赵鹏飞学号070803110453 课程设计题目锁梁自动成型机床切削机构设计锁梁自动成型机床切削机构设计 成绩 项目项目内容权重 100 90 优 89 80 良 79 70 中 69 60 及格 L2 L3 Or d 0 Then gam Atn sa ca Else gam Atn sa ca pi End If If m 1 Then fi2 delta gam Else fi2 delta gam End If xC xB L2 Cos fi2 yC yB L2 Sin fi2 yCD yC yD xCD xC xD If xCD 0 Then fi3 Atn yCD xCD ElseIf yCD 0 Then fi3 Atn yCD xCD pi Else fi3 Atn yCD xCD pi End If e vDx vBx xCD vDy vBy yCD F vDx vBx xC xB vDy vBy yC yB Q yCD xC xB yC yB xCD omega2 e Q 24 omega3 F Q vCx vBx omega2 yC yB vCy vBy omega2 xC xB EA aDx aBx omega2 2 xC xB omega3 2 xCD FA aDy aBy omega2 2 yC yB omega3 2 yCD epsilon2 EA xCD FA yCD Q epsilon3 EA xC xB FA yC yB Q aCx aBx omega2 2 xC xB epsilon2 yC yB aCy aBy omega2 2 yC yB epsilon2 xC xB n1 End Sub Sub atn1 x1 y1 x2 y2 fi Dim pi y21 x21 pi Atn 1 4 y21 y2 y1 x21 x2 x1 If x21 0 Then 判断 BD 线段与 x 轴的夹角 If y21 0 Then fi pi 2 ElseIf y21 0 Then MsgBox B D 两点重合 不能确定 Else fi 3 pi 2 End If Else If x21 0 Then fi Atn y21 x21 Else fi Atn y21 x21 2 pi End If End If End Sub Sub RRP 运动分析子程序 m xB yB vBx vBy aBx aBy xP yP vPx vPy aPx aPy L2 fi3 omega3 epsilon3 xC yC vCx vCy aCx aCy fi2 omega2 epsilon2 sr vsr asr Dim pi d2 e F yCB xCB E1 F1 Q E2 F2 pi Atn 1 4 d2 xB xP 2 yB yP 2 e 2 xP xB Cos fi3 2 yP yB Sin fi3 F d2 L2 2 If e 2 4 F Then MsgBox 此位置不能装配 GoTo n1 Else 25 End If If m 1 Then sr Abs e e 2 4 F 0 5 2 Else sr Abs e e 2 4 F 0 5 2 End If xC xP sr Cos fi3 yC yP sr Sin fi3 yCB yC yB xCB xC xB Call atn1 xB yB xC yC fi2 E1 vPx vBx sr omega3 Sin fi3 F1 vPy vBy sr omega3 Cos fi3 Q yCB Sin fi3 xCB Cos fi3 omega2 F1 Cos fi3 E1 Sin fi3 Q vsr F1 yCB E1 xCB Q vCx vBx omega2 yCB vCy vBy omega2 xCB E2 aPx aBx omega2 2 xCB 2 omega3 vsr Sin fi3 epsilon3 yC yP omega3 2 xC xP F2 aPy aBy omega2 2 yCB 2 omega3 vsr Cos fi3 epsilon3 xC xP omega3 2 yC yP epsilon2 F2 Cos fi3 E2 Sin fi3 Q asr F2 yCB E2 xCB Q aCx aBx omega2 2 xCB epsilon2 yCB aCy aBy omega2 2 yCB epsilon2 xCB n1 End Sub Sub RPR 运动分析子程序 m xB yB vBx vBy aBx aBy xC yC vCx vCy aCx aCy e L3 xD yD vDx vDy aDx aDy fi3 omega3 epsilon3 sr vsr asr Dim pi yCB xCB gam Q EA FA pi Atn 1 4 If xC xB 2 yC yB 2 e 2 Then MsgBox 此位置不能装配 GoTo n1 Else End If sr xC xB 2 yC yB 2 e 2 0 5 yCB yC yB xCB xC xB Call atn1 xB yB xC yC beta gam Atn e sr If m 1 Then 26 fi3 beta gam Else fi3 beta gam End If xD xB e Sin fi3 L3 Cos fi3 yD yB e Cos fi3 L3 Sin fi3 Q xC xB Cos fi3 yC yB Sin fi3 omega3 vCy vBy Cos fi3 vCx vBx Sin fi3 Q vsr vCy vBy yC yB vCx vBx xC xB Q vDx vBx omega3 yD yB vDy vBy omega3 xD xB EA aCx aBx omega3 2 xC xB 2 omega3 vsr Sin fi3 FA aCy aBy omega3 2 yC yB 2 omega3 vsr Cos fi3 epsilon3 FA Cos fi3 EA Sin fi3 Q asr EA xC xB FA yC yB Q aDx aBx omega3 2 xD xB epsilon3 yD yB aDy aBy omega3 2 yD yB epsilon3 xD xB n1 End Sub Private Sub Command2 Click Dim b 6 c 6 d 3 xE1 360 vEx1 360 aEx1 360 pai Atn 1 4 180 For fi 0 To 360 Step 10 Fi1 fi pai Call 单杆运动分析子程序 0 0 0 0 0 0 0 04 0 Fi1 1 57 0 xB yB vBx vBy aBx aBy Call RPR 运动分析子程序 1 0 0 05656 0 0 0 0 xB yB vBx vBy aBx aBy 0 0 159099 xD yD vDx vDy aDx aDy fi3 omega3 epsilon3 sr vsr asr Call RRP 运动分析子程序 1 xD yD vDx vDy aDx aDy 0 0 vPx vPy aPx aPy 0 135 0 0 0 xE yE vEx vEy aEx aey fi4 omega4 epsilon4 sr vsr asr Call 单杆运动分析子程序 0 0 05656 0 0 0 0 0 0795495 0 fi3 omega3 epsilon3 xS3 yS3 vS3x vS3y aS3x aS3y Call 单杆运动分析子程序 xD yD vDx vDy aDx aDy 0 0675 0 fi4 omega4 epsilon4 xS4 yS4 vS4x vS4y aS4x aS4y xE1 fi xE vEx1 fi vEx aEx1 fi aEx Next fi 27 ForeColor QBColor 0 Picture1 Scale 10 100 370 100 Picture1 Line 0 0 360 0 ForeColor Picture1 Line 0 100 0 100 ForeColor ForeColor QBColor 4 Picture1 PSet 0 xE1 0 100 For fi 0 To 360 Step 10 Picture1 Line fi xE1 fi 100 ForeColor Next fi ForeColor QBColor 9 Picture1 PSet 0 vEx1 0 100 For fi 0 To 360 Step 10 Picture1 Line fi vEx1 fi 400 ForeColor Next fi ForeColor QBColor 10 Picture1 PSet 0 aEx1 0 0 3 For fi 0 To 360 Step 10 Picture1 Line fi aEx1 fi 300 ForeColor Next fi End Sub 取取 A 点为坐标原点 点为坐标原点 0 0 28 9 2 运动分析结果运动分析结果 29 图 图 机构运动线图机构运动线图 主要参考文献主要参考文献 1 机械原理 第七版 主编 陈作模 葛文杰 孙恒 高等教育出版社 2 机械原理课程设计手册 主编 牛鸣歧 王保民 重庆大学出版社 3 机械原理课程设计指导书 贵州大学机械工程学院 30 第十部分第十部分 学习心得学习心得 总觉得两周的课程设计时间好长 考完了试老想着回 家 不过幸好我们心都投入了课程设计 大家讨论了一个 又一个的难题 提出一种又一种的设计方法 在不断地提 出与否定之后终于拿出了我们的设计方案 虽然这个课程 设计不像做正规机械设计那么专业 但是对于大家来说我 们的能力都得到了锻炼 以前在机械原理课程上没有深入 探究或是接触到的东西我们也了解了不少 尤其是对杆机 构和凸轮机构之间的组合使用 以及它们的功用和类型有 31 了更近一步的了解 我觉得做课程设计同时也是对课本知识的巩固和加强 由 于课本上的知识太多 平