《CAD课程设计说明书—角接触球轴承设计系统》由会员分享，可在线阅读，更多相关《CAD课程设计说明书—角接触球轴承设计系统（12页珍藏版）》请在金锄头文库上搜索。
1、南通大学机械工程学院第 1 页 CADCAD课程设计说明书课程设计说明书设计题设计题目：角接触球目：角接触球轴轴承承设计设计系系统统 设计设计任任务务： ：设计计设计计算部分的程序算部分的程序设计设计班班 级级： ： XXXXXX姓姓 名：名： XXXXXX学学 号：号： XXXXXX指指导导老老师师： ： XXXXXX时时 间间： ： XXXXXX南通大学机械工程学院第 2 页 目录目录1.1.课程设计的任务和目的课程设计的任务和目的1.1 课课程程设计设计的任的任务务1.2 课课程程设计设计的目的的目的1.3 课课程程设计设计的的规规划划2.2.课程设计的内容课程设计的内容2.1 系系统结
2、统结构框构框图图2.2 程序流程程序流程图图2.3 关关键键技技术术分析分析2.4 程序程序界面展示界面展示3.3.课程设计总结课程设计总结3.1 个人小个人小结结3.2 参考文献参考文献.南通大学机械工程学院第 3 页 1.1.课程设计的任务和目的：课程设计的任务和目的：1.11.1 课程设计的任务课程设计的任务完成“角接触球轴承设计系统”的开发，根据该设计系统能进行简单的角接触球轴承自动设计。1.21.2 课程设计的目的课程设计的目的通过“角接触球轴承设计系统”的开发，进一步掌握和理解一般CAD系统的开发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。1.3
3、1.3 课程设计的规划课程设计的规划一熟悉设计任务，查询、阅读资料。二系统总体设计，模块划分，程序框图设计，编写程序。三完成程序的上机调试。四编写有关文档。五审核、答辩。注意：1.认真、细致，严格按CAD系统的开发步骤工作；程序编写时应加必要注释。2.团队协作，互相帮助，共同完成小组的设计任务。3.不得抄袭和复制其他同学的作业和程序。南通大学机械工程学院第 4 页 2.2.课程设计的内容：课程设计的内容：完成“角接触球轴承设计系统”设计计算部分的程序设计2.12.1 系统结构框图系统结构框图 南通大学机械工程学院第 5 页 角接触球轴承设计系统系统设计 VB 编 程绘图 AutoLisp 编程
4、系统首界面输入已知条件轴承型号初选校核轴承校验合格校验不合格接口技术返回CAD 绘制轴承帮助界面主界面轴承型号选定关于轴承设计 系统的信息2.22.2 程序流程图程序流程图南通大学机械工程学院第 6 页 开始输入已知条件轴径 d，径向载荷 fr, 轴向载荷 fa，转速 n，预期寿命 Lh以 及载荷冲击情况点击“轴承初选型号”按钮开始校核轴承型号选定载 荷 校 核寿 命 校 核转 速 校 核校验不合格校验合格校核结束重新选择点击“下一步”按钮点击“重新选型”按钮点击“重新选型”按钮输出初选的型号列表接口技术CAD 绘制轴承绘图 AutoLisp 编程2.32.3 关键技术分析关键技术分析南通大学
5、机械工程学院第 7 页 一一VBVB主程序部分：主程序部分：(1) 对输入的已知条件轴径 d，径向载荷 fr,轴向载荷 fa，转速 n，预期寿命 Lh以及载荷冲击情况进行判断：If Option1.Value = False And Option2.Value = False And Option3.Value = False Then MsgBox “载荷情况未给出“, 48 = vbOKOnly, “提示信息“Else If Text1.Text = “ Or Not IsNumeric(Text1.Text) ThenMsgBox “轴的直径d未给出或不是数值“, 48 = vbOKOn
6、ly, “提示信息“Text1.SetFocusElseIf Text3.Text = “ Or Not IsNumeric(Text3.Text) ThenMsgBox “径向载荷fr条件未给出或不是数值“, 48 = vbOKOnly, “提示信息“Text3.SetFocus ElseIf Text4.Text = “ Or Not IsNumeric(Text4.Text) ThenMsgBox “轴向载荷fa条件未给出或不是数值“, 48 = vbOKOnly, “提示信息“Text4.SetFocus ElseCommand2.Enabled = TrueEnd If End If
7、(2) 根据轴径d初选轴承型号：d = Val(Text1.Text)If d = 30 And d = 35 And d 70 ThenMsgBox “请输入30-70的直径范围“, 48 = vbOKOnly, “提示信息“Text1 = “Text1.SetFocusEnd If(3) 轴承校验的语句 ：南通大学机械工程学院第 8 页 If (Crp / 1000) = Val(Cr) Or (Val(zhi) n And Val(you) n) ThenMsgBox “该型号不符合要求，请重新选型“Command4.Enabled = False ElseMsgBox “该型号符合要求
8、，可进行下一步“Command4.Enabled = True End If二二VBVB与与AccessAccess接口部分：接口部分：(1) 轴承选型时的数据库检索并生成Dat数据文件：xh = Form3.Text1.TextSet db = OpenDatabase(App.Path + “bearing.mdb“) 数据数据库检库检索索Set rs1 = db.OpenRecordset(“b“) rs1.Index = “轴承代号“rs1.Seek “=“, xh If Not rs1.NoMatch Then dx = rs1.Fields(“小d“) w = rs1.Fields
9、(“W“) Text17.Text = w alph = rs1.Fields(“alph“)End If Open “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 ThenSet db = OpenDatabase(App.Path + “
10、xy.mdb“) 数据数据库检库检索索Set rs1 = db.OpenRecordset(“js“)rs1.Index = “Fa/C0r“rs1.Seek “=“, pdIf Not rs1.NoMatch ThenX1 = rs1.Fields(“X1“)Y1 = rs1.Fields(“Y1“)X2 = rs1.Fields(“X2“)Y2 = rs1.Fields(“Y2“)南通大学机械工程学院第 9 页 三三VBVB与与AutoCADAutoCAD接口部分：接口部分：VB调用AutoCAD：Form4.Text1.Text = “c:Program FilesAutoCAD 200
11、7acad.exe“ dc = Form3.Text1.Textdcw = Right(dc, 1)lj1 = Form4.Text1.Text & “ /b d:66&60draw1.scr“lj2 = Form4.Text1.Text & “ /b d:66&60draw2.scr“If Thenabc = Shell(lj1, 1)Elseabc = Shell(lj2, 1)End If 如果如果 abc=Shell(“c:Programc:Program FilesAutoCADFilesAutoCAD 2007acad.exe2007acad.exe /b d:66&60draw1
12、.scrd:66&60draw1.scr “, 1) 则，打开位于则，打开位于“c:Programc:Program FilesAutoCADFilesAutoCAD 2007acad.exe”CAD2007acad.exe”CAD软件，并打开软件，并打开draw1.scrdraw1.scr 的脚本文件（用于自动调用的脚本文件（用于自动调用AutoLispAutoLisp程序，实现自动绘图）程序，实现自动绘图）2.42.4 程序程序界面展示界面展示南通大学机械工程学院第 10 页 南通大学机械工程学院第 11 页 南通大学机械工程学院第 12 页 南通大学机械工程学院第 13 页 3.3.课程设计总结课程设计总结3.13.1 个人小结个人小结两个星期的 CAD 课程设计已经结束，这次课程设计我主要完成“角接触球轴承设计系统”设计计算部分的程序设计。我的任务就是通过 Visual Basic 平台编制程序界面，利用 Access建立数据库，开发 VB 与 Access，VB 与 AutoCAD 之间的接口技术。这次程序设计过程是一个不断发现问题以及解决问题的过程。对于 VB 开发平台，Access
