角接触球轴承设计系统

南通大学机械工程学院CAD课程设计说明书设计题目：角接触球轴承设计系统设计任务：设计计算部分的程序设计班 级： XXXXXX姓 名： XXXXXX学 号： XXXXXX指导老师： XXXXXX时 间： XXXXXX目录1.课程设计的任务和目的1.1 课程设计的任务1.2 课程设计的目的1.3 课程设计的规划2.课程设计的内容2.1 系统结构框图2.2 程序流程图2.3 关键技术分析2.4 程序界面展示3.课程设计总结 3.1 个人小结3.2参考文献.1.课程设计的任务和目的：1.1 课程设计的任务 完成“角接触球轴承设计系统”的开发，根据该设计系统能进行简单的角接触球轴承自动设计。1.2 课程设计的目的 通过“角接触球轴承设计系统”的开发，进一步掌握和理解一般CAD系统的开发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。1.3 课程设计的规划 一熟悉设计任务，查询、阅读资料。 二系统总体设计，模块划分，程序框图设计，编写程序。 三完成程序的上机调试。 四编写有关文档。 五审核、答辩。 注意：1.认真、细致，严格按CAD系统的开发步骤工作；程序编写时应加必要注释。 2.团队协作，互相帮助，共同完成小组的设计任务。 3.不得抄袭和复制其他同学的作业和程序。2.课程设计的内容： 完成“角接触球轴承设计系统”设计计算部分的程序设计2.1 系统结构框图 角接触球轴承设计系统系统设计VB编程绘图AutoLisp编程系统首界面输入已知条件轴承型号初选校核轴承校验合格校验不合格接口技术返回CAD绘制轴承帮助界面主界面轴承型号选定关于轴承设计系统的信息2.2 程序流程图开始输入已知条件轴径d，径向载荷fr,轴向载荷fa，转速n，预期寿命Lh以及载荷冲击情况点击“轴承初选型号”按钮开始校核轴承型号选定载荷校核寿命校核转速校核校验不合格校验合格校核结束重新选择点击“下一步”按钮点击“重新选型”按钮点击“重新选型”按钮输出初选的型号列表接口技术CAD绘制轴承绘图AutoLisp编程2.3 关键技术分析一VB主程序部分：(1) 对输入的已知条件轴径d，径向载荷fr,轴向载荷fa，转速n，预期寿命Lh以及载荷冲击情况进行判断：If Option1.Value = False And Option2.Value = False And Option3.Value = False ThenMsgBox 载荷情况未给出, 48 = vbOKOnly, 提示信息ElseIf Text1.Text = Or Not IsNumeric(Text1.Text) Then MsgBox 轴的直径d未给出或不是数值, 48 = vbOKOnly, 提示信息 Text1.SetFocus ElseIf Text3.Text = Or Not IsNumeric(Text3.Text) Then MsgBox 径向载荷fr条件未给出或不是数值, 48 = vbOKOnly, 提示信息 Text3.SetFocusElseIf Text4.Text = Or Not IsNumeric(Text4.Text) Then MsgBox 轴向载荷fa条件未给出或不是数值, 48 = vbOKOnly, 提示信息 Text4.SetFocus Else Command2.Enabled = True End IfEnd If(2) 根据轴径d初选轴承型号： d = Val(Text1.Text) If d = 30 And d = 35 And d 40 Then Text2 = 35 List1.AddItem 7007C List1.AddItem 3307 ElseIf d 70 Then MsgBox 请输入30-70的直径范围, 48 = vbOKOnly, 提示信息 Text1 = Text1.SetFocus End If(3) 轴承校验的语句 ：If (Crp / 1000) = Val(Cr) Or (Val(zhi) n And Val(you) n) Then MsgBox 该型号不符合要求，请重新选型 Command4.Enabled = FalseElse MsgBox 该型号符合要求，可进行下一步 Command4.Enabled = TrueEnd If 二VB与Access接口部分：(1) 轴承选型时的数据库检索并生成Dat数据文件：xh = Form3.Text1.TextSet db = OpenDatabase(App.Path + bearing.mdb) 数据库检索Set rs1 = db.OpenRecordset(b)rs1.Index = 轴承代号rs1.Seek =, xhIf Not rs1.NoMatch Thendx = rs1.Fields(小d)w = rs1.Fields(W)Text17.Text = walph = rs1.Fields(alph) End IfOpen d:66&60data.dat For Output As #1 生成Dat数据文件Print #1, ( & d1d & dd & )Print #1, ( & alph & alph & )Close #1(2) 轴承当量动载荷计算时X、Y值的数据库检索：pd = fa / (Val(C0r) * 1000)If Val(alph) = 15 Then Set db = OpenDatabase(App.Path + xy.mdb) 数据库检索 Set rs1 = db.OpenRecordset(js) rs1.Index = Fa/C0r rs1.Seek =, pd If Not rs1.NoMatch Then X1 = rs1.Fields(X1) Y1 = rs1.Fields(Y1) X2 = rs1.Fields(X2) Y2 = rs1.Fields(Y2) 三VB与AutoCAD接口部分：VB调用AutoCAD：Form4.Text1.Text = c:Program FilesAutoCAD 2007acad.exe dc = Form3.Text1.Text dcw = Right(dc, 1) lj1 = Form4.Text1.Text & /b d:66&60draw1.scr lj2 = Form4.Text1.Text & /b d:66&60draw2.scr If Then abc = Shell(lj1, 1) Else abc = Shell(lj2, 1) End If如果 abc=Shell(c:Program FilesAutoCAD 2007acad.exe /b d:66&60draw1.scr , 1) 则，打开位于“c:Program FilesAutoCAD 2007acad.exe”CAD软件，并打开draw1.scr的脚本文件（用于自动调用AutoLisp程序，实现自动绘图）2.4 程序界面展示3.课程设计总结3.1 个人小结两个星期的CAD课程设计已经结束，这次课程设计我主要完成“角接触球轴承设计系统”设计计算部分的程序设计。我的任务就是通过Visual Basic平台编制程序界面，利用Access建立数据库，开发VB与Access，VB与AutoCAD之间的接口技术。这次程序设计过程是一个不断发现问题以及解决问题的过程。对于VB开发平台，Access数据库，AutoCAD软件以及相关的接口技术，我的认知进一步加强了。不仅如此，解决问题，克服难关的过程更是磨砺了我踏实仔细，坚忍不拔，永不言弃的品质。通过课程设计，我不但进一步巩固了计算机辅助设计，VB等课程的相关知识，而且尤为重要的是我的团队合作意识得到了加强。我相信，这次的课程设计一定会使我终身受益。3.2 参考文献1 崔洪斌等.计算机辅助设计基础及应用M.清华大学出版