1、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 課程設計的目的 通過“角

2、接觸球軸承設計系統”的開發，進一步掌握和理解一般CAD系統的開發方法和流程。進一步熟悉工程數據的處理方法、自動繪圖的實現方法以及軟件的接口方法。1.3 課程設計的規劃 一熟悉設計任務，查詢、閱讀資料。 二系統總體設計，模塊劃分，程序框圖設計，編寫程序。 三完成程序的上機調試。 四編寫有關文檔。 五審核、答辯。 注意：1.認真、細致，嚴格按CAD系統的開發步驟工作；程序編寫時應加必要注釋。 2.團隊協作，互相幫助，共同完成小組的設計任務。 3.不得抄襲和復制其他同學的作業和程序。2.課程設計的內容： 完成“角接觸球軸承設計系統”設計計算部分的程序設計2.1 系統結構框圖 角接觸球軸承設計系統系統

3、設計VB編程繪圖AutoLisp編程系統首界面輸入已知條件軸承型號初選校核軸承校驗合格校驗不合格接口技術返回CAD繪制軸承幫助界面主界面軸承型號選定關于軸承設計系統的信息2.2 程序流程圖開始輸入已知條件軸徑d，徑向載荷fr,軸向載荷fa，轉速n，預期壽命Lh以及載荷沖擊情況點擊“軸承初選型號”按鈕開始校核軸承型號選定載荷校核壽命校核轉速校核校驗不合格校驗合格校核結束重新選擇點擊“下一步”按鈕點擊“重新選型”按鈕點擊“重新選型”按鈕輸出初選的型號列表接口技術CAD繪制軸承繪圖AutoLisp編程2.3 關鍵技術分析一VB主程序部分：(1) 對輸入的已知條件軸徑d，徑向載荷fr,軸向載荷fa，轉

4、速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

5、.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, "提示信息" Text

6、4.SetFocus Else Command2.Enabled = True End IfEnd If(2) 根據軸徑d初選軸承型號： d = Val(Text1.Text) If d >= 30 And d < 35 Then Text1 = 30 List1.AddItem "7006C" List1.AddItem "3306" ElseIf d >= 35 And d < 40 Then Text2 = 35 List1.AddItem "7007C" List1.AddItem "3307

7、" ElseIf d < 30 Or 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 = FalseEls

8、e 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 rs

9、1.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 & ")"P

10、rint #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

11、 = "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"

12、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&6

13、0draw1.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 參