1、CAD課程設(shè)計說明書設(shè)計題目：蝶形彈簧設(shè)計系統(tǒng)學(xué)院：機(jī)械工程學(xué)院班級：機(jī)122學(xué)號：1210012051姓名：周波 指導(dǎo)老師：張小萍目錄一、課題名稱和要求-2二、系統(tǒng)結(jié)構(gòu)框圖-2三、計算部分程序流程圖-3四、程序設(shè)計關(guān)鍵技術(shù)的闡述-4五、設(shè)計舉例-5六、課程設(shè)計的體會和建議-8七、參考文獻(xiàn)-81一、 課題名稱和要求1、 設(shè)計題目：碟形彈簧設(shè)計系統(tǒng)2、 設(shè)計目的：通過“碟形彈簧設(shè)計系統(tǒng)”的開發(fā)，進(jìn)一步掌握和理解一般CAD系統(tǒng)的開發(fā)方法和流程。進(jìn)一步熟悉工程數(shù)據(jù)的處理方法、自動繪圖的實現(xiàn)方法以及軟件的接口方法。3、 設(shè)計要求：完成“碟形彈簧設(shè)計系統(tǒng)”的開發(fā)，根據(jù)該設(shè)計系統(tǒng)能進(jìn)行簡單的碟形彈簧自動設(shè)

2、計。4、設(shè)計內(nèi)容：完成“碟形彈簧設(shè)計系統(tǒng)”設(shè)計計算部分的程序設(shè)計。二、 系統(tǒng)設(shè)計框圖碟形彈簧設(shè)計系統(tǒng)VB編程Autolisp編程開始界面計算界面輸入已知條件初選參數(shù)計算參數(shù)校核校核合格校核不合格接口技術(shù)CAD繪制彈簧返回2三、計算部分程序流程圖VB程序開始界面計算界面幫助界面輸入已知條件Fo、Fmax、do1選擇碟簧系列計算、校核校核合格接口技術(shù)校核不合格返回，從新選擇組合形式或碟簧系列CAD繪制碟簧退出輸出碟簧參數(shù)F<Fo,根據(jù)提示框，可選擇其他系列或選擇疊合、復(fù)合形式3四、程序設(shè)計關(guān)鍵技術(shù)的闡述 VB程序部分（1）、通過輸入的導(dǎo)桿最大直徑do1，根據(jù)所選擇的碟簧系列，對數(shù)據(jù)庫進(jìn)行查詢

3、，以碟簧內(nèi)徑d為關(guān)鍵，檢索其他有關(guān)參數(shù)。方法：Text4.Text = do1 即輸入的導(dǎo)桿最大直徑 Dim db1 As Database Dim rs1 As Recordset a1 = Val(Text4.Text) 付值a1為導(dǎo)桿最大直徑 Set db1 = OpenDatabase(App.Path + "db.mdb") Set rs1 = db1.OpenRecordset("A") rs1.Index = "K1" rs1.Seek ">", a1 導(dǎo)桿直徑與碟簧內(nèi)徑比較，內(nèi)徑要大于導(dǎo)桿最大

4、直徑，然后獲取各個參數(shù) d1 = rs1.Fields("外徑D") d2 = rs1.Fields("內(nèi)徑d") t = rs1.Fields("厚度t") h = rs1.Fields("壓平時變形量h") Ho = rs1.Fields("自由高度H") F = rs1.Fields("F") Fo1 = rs1.Fields("fo") om = rs1.Fields("om") 1 = rs1.Fields("或&q

5、uot;)（2）、 Microsoft Access 中有系列A、系列B、系列C三張表格，根據(jù)Option1、Option2、 Option3分別選擇這三張表格。 方法：If Option1.Value = True Then End If (3)、碟簧的組合形式分為單片碟、疊合形式、對合形式和復(fù)合形式，由Combo1選擇所需要的形式，再根據(jù)選擇的形式不同，分別采用不同的計算方法。如對合形式： If Combo1.Text = "對合組合" Then Text22.Text = "1" '給n付初值 Fz = F Km1 = Fo / Fc 4I

6、f Option1.Value = True Then 碟簧為系列A m = Km1 - 0.02 Else End If If Option2.Value = True Then 碟簧為系列B If 0 <= Km1 <= 0.5 Then m = Km1 - 0.1 ElseEnd If If 0.5 <= Km1 <= 0.82 Then m = (Km1 - 0.14) / 0.9 Else End If If 0.82 <= Km1 <= 1 Then m = (Km1 - 0.28) / 0.72 End If Else End If If Op

7、tion3.Value = True Then 碟簧為系列C m = (2.27 - Sqr(5.0729 - 5 * Km1) / 2.5 End IfF1 = m * hi = CLng(Fmax / F1)foz = i * F1Hoz = i * HoH1 = Hoz - i * F1End If五、設(shè)計舉例 (1)、運行程序5（2）、輸入已知條件工作載荷Fo = 5000 N最大變形量Fmax = 10 mm導(dǎo)桿最大直徑 do1 = 20 mm選擇系列A點“初選”，選擇碟簧參數(shù)6（3）、計算 組合形式：對合組合（4）、校核7六、課程設(shè)計的體會和建議通過兩個星期的設(shè)計系統(tǒng)的設(shè)計，我對V

8、B程序有了一個更加深刻的理解，特別對于讀取數(shù)據(jù)庫的VB語言更加明晰，還有VB和AutoCAD程序間的接口技術(shù)運用更加熟練。這次課程設(shè)計我主要是負(fù)責(zé)設(shè)計計算部分，采用VB編程。在編程前，我首先了解了碟形彈簧的系列參數(shù)、組合形式，以及對應(yīng)的計算過程和校核。在編程過程中，由于參數(shù)較多，對應(yīng)的計算過程也就較麻煩，程序語言比較繁瑣。在編程過程中，我遇到的許多問題，以前不是很熟悉的VB語言也慢慢地熟悉、牢記。運行程序時，根據(jù)輸出的數(shù)據(jù)，會有很多相應(yīng)的提示窗口彈出，根據(jù)提示的信息完成接下去的運行步驟，得到合適的結(jié)果。在編程過程中遇到難題的時候，我會仔細(xì)查閱相關(guān)資料，和同學(xué)們討論，向有能力的人請教，順利地完成了這次課程設(shè)計。經(jīng)過這幾天的課程設(shè)計，我對VB編程的理解更加準(zhǔn)確。同時，在VB與Lisp的鏈接中，我也更加的了解了Autolisp語言。這次課程設(shè)計我受益匪淺，我了解了許多以前不知道的專業(yè)知識，把以前學(xué)過的知識又熟悉了一遍，對知識掌握地更加牢靠了。七、參考文獻(xiàn)1