cad課程設(shè)計(jì)---圓柱螺旋拉伸彈簧

1、<p>　　CAD課程設(shè)計(jì)說(shuō)明書(shū)</p><p>　　--設(shè)計(jì)計(jì)算部分的程序設(shè)計(jì)</p><p>　　設(shè)計(jì)題目：圓柱螺旋拉伸彈簧</p><p><b>　　學(xué)院：機(jī)械工程學(xué)院</b></p><p><b>　　班級(jí)： </b></p><p><b>

2、　　學(xué)生姓名： </b></p><p><b>　　學(xué)號(hào)： </b></p><p>　　設(shè)計(jì)日期：2013年1月16日</p><p><b>　　目錄</b></p><p>　　一、課題名稱和要求------------------------------------------

3、-------------------------3</p><p>　　二、系統(tǒng)結(jié)構(gòu)框圖-----------------------------------------------------------------------3</p><p>　　三、程序流程圖-------------------------------------------------------------

4、--------------4</p><p>　　四、程序設(shè)計(jì)關(guān)鍵技術(shù)的闡述----------------------------------------------------5</p><p>　　五、設(shè)計(jì)舉例------------------------------------------------------------------------------9</p&g

5、t;<p>　　六、課程設(shè)計(jì)的體會(huì)和建議-------------------------------------------------------8</p><p>　　七、參考文獻(xiàn)------------------------------------------------------------------------------8</p><p><b>

6、;　　設(shè)計(jì)課題</b></p><p>　　題目：圓柱螺旋拉伸彈簧設(shè)計(jì)系統(tǒng)。</p><p>　　目的：通過(guò)“圓柱螺旋拉伸彈簧設(shè)計(jì)系統(tǒng)”的開(kāi)發(fā)，進(jìn)一步掌握和理解一般CAD系統(tǒng)的開(kāi)發(fā)方法和流程。進(jìn)一步熟悉工程數(shù)據(jù)的處理方法、自動(dòng)繪圖的實(shí)現(xiàn)方法以及軟件的接口方法。</p><p>　　任務(wù)：完成“圓柱螺旋拉伸彈簧設(shè)計(jì)系統(tǒng)”的開(kāi)發(fā)，根據(jù)該系

7、 統(tǒng)能進(jìn)行簡(jiǎn)單的圓柱螺旋拉伸彈簧自動(dòng)設(shè)計(jì)。</p><p>　　要求：1、完成所有設(shè)計(jì)資料的程序處理，建立有關(guān)設(shè)計(jì)參數(shù)數(shù)據(jù)文件。</p><p>　　2、完成圓柱螺旋拉伸彈簧設(shè)計(jì)系統(tǒng)的設(shè)計(jì)、計(jì)算、分析程序。</p><p>　　3、完成系統(tǒng)界面設(shè)計(jì)、文檔設(shè)計(jì)。</p><p>　　4、完成課程設(shè)計(jì)說(shuō)明書(shū)。</p><p&

8、gt;<b>　　系統(tǒng)結(jié)構(gòu)框圖</b></p><p>　　系統(tǒng)可以根據(jù)彈簧的不同旋向情況，選擇不同形式拉伸彈簧，通過(guò)計(jì)算得出選用的標(biāo)準(zhǔn)件的參數(shù)，并對(duì)彈簧進(jìn)行校核，選擇合適的值，利用script腳本文件，自動(dòng)加載Autolisp文件到AUTOCAD中，繪制出所選擇的圖形，實(shí)現(xiàn)了一鍵操作。</p><p><b>　　程序流程圖：</b></

9、p><p>　　四、程序設(shè)計(jì)關(guān)鍵技術(shù)</p><p>　　（1）通過(guò)VB或者Access建立數(shù)據(jù)庫(kù)</p><p><b>　　通過(guò)VB建立數(shù)據(jù)庫(kù)</b></p><p>　　打開(kāi)VB，進(jìn)入“外接程序（A）”，打開(kāi)“可視化數(shù)據(jù)管理（V）”，單擊左上方“文件”，選擇新建Access數(shù)據(jù)庫(kù)，</p><p&g

10、t;　　選擇新建表可進(jìn)入如下圖所示界面，進(jìn)行數(shù)據(jù)輸入。</p><p><b>　　2.</b></p><p>　?。?）VB程序開(kāi)發(fā)部分</p><p>　?。?）通過(guò)預(yù)估的工作極限載荷對(duì)數(shù)據(jù)庫(kù)進(jìn)行查詢，比對(duì)，取到與預(yù)估值最接近的值作為標(biāo)準(zhǔn)的工作極限載荷Pj</p><p>　　方法：載荷載入Microsoft DA

11、O 3.6 Object Library</p><p>　　Pj0 = Pn / 0.8（Pj0為預(yù)估值）</p><p>　　Dim Source As String '數(shù)據(jù)庫(kù)文件名</p><p>　　Source = "TH.mdb"</p><p>　　Dim conn1 As ADODB.Connect

12、ion</p><p>　　Set conn1 = New ADODB.Connection</p><p>　　conn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Source</p><p>　　conn1.Open</p>

13、<p>　　Set rst1 = New ADODB.Recordset</p><p>　　Dim mysql As String</p><p>　　mysql = "select * from A"</p><p>　　rst1.Open mysql, conn1, 3, 2</p><p>　　rst1

14、.MoveFirst</p><p>　　Do Until rst1!工作極限載荷Pj >= Pj0 '直到找到比插入數(shù)據(jù)小的數(shù)當(dāng)中最小的數(shù)</p><p>　　rst1.MoveNext</p><p><b>　　Loop</b></p><p>　　Pj = Pj1（比較得出的最接近工作極限載荷值）&

15、lt;/p><p>　　（2）通過(guò)索引Pj獲得其他彈簧參數(shù)值（工作極限載荷下的單圈變形量fj，單圈剛度Pd，初拉力Po，材料直徑d，彈簧中徑D）</p><p>　　D = rst1!彈簧中徑D</p><p>　　F = rst1!工作極限載荷下的單圈變形量fj</p><p>　　Pd = rst1!單圈剛度Pd</p><

16、;p>　　Po = rst1!初拉力Po</p><p>　　D0 = rst1!材料直徑d</p><p>　　Pj1 = rst1!工作極限載荷Pj</p><p><b>　?。?）模塊接口技術(shù)</b></p><p>　　〈1〉VB、Access接口技術(shù)</p><p>　　Dim

17、Source As String</p><p>　　Source = "××.mdb"</p><p>　　Dim conn1 As ADODB.Connection</p><p>　　Set conn1 = New ADODB.Connection</p><p>　　conn1.Connecti

18、onString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Source</p><p>　　conn1.Open</p><p>　　Set rst1 = New ADODB.Recordset</p><p>　　Dim mysql As String</p>

19、<p>　　mysql = "select * from A"</p><p>　　rst1.Open mysql, conn1, 3, 2</p><p>　　rst1.MoveFirst</p><p>　　Do Until rst1! ××××</p><p>　　

20、rst1.MoveNext</p><p><b>　　Loop</b></p><p>　　×× = rst1! ××××</p><p>　　×× = rst1! ×××× </p>&l

21、t;p>　　×× = rst1! ××××</p><p>　　××= rst1! ××××</p><p><b>　　…</b></p><p>　　〈2〉VB、CAD接口技術(shù) </p><p&g

22、t;　　th = Shell("C:\Program Files\AutoCAD 2004\acad.exe /b e:\spring.scr", 1)</p><p>　　“C:\Program Files\AutoCAD 2004\acad.exe” ：本電腦上CAD安裝位置</p><p>　　“e:\spring.scr” ：腳本位置 </p>

23、<p><b>　　五、設(shè)計(jì)舉例</b></p><p>　　1．確定所要求設(shè)計(jì)螺旋拉伸彈簧的相關(guān)參數(shù)</p><p>　　最大拉力Pn=600N</p><p>　　最小拉力P1=500N</p><p>　　工作行程h=12mm</p><p>　　最大中徑d≦60mm</p&

24、gt;<p><b>　　旋向：右旋</b></p><p><b>　　2.運(yùn)行程序</b></p><p><b>　　3.輸入?yún)?shù)</b></p><p>　　最大拉力Pn=600N</p><p>　　最小拉力P1=500N</p><

25、p>　　工作行程h=12mm</p><p>　　最大中徑d≦60mm</p><p><b>　　旋向：右旋</b></p><p>　　彈簧材料切變模量：一般鋼絲04油淬火碳素彈簧鋼絲TB/T5103</p><p><b>　　彈簧類型：Ⅲ類</b></p><p&g

26、t;　　彈簧端部鉤型：L1型，半圓鉤環(huán)</p><p><b>　　3.得到計(jì)算結(jié)果</b></p><p><b>　　4.校驗(yàn)</b></p><p>　　5.用AutoCAD繪制彈簧</p><p>　　六、課程設(shè)計(jì)的體會(huì)和建議</p><p>　　為期兩周的“圓柱螺旋

27、拉伸彈簧設(shè)計(jì)系統(tǒng)”的設(shè)計(jì)已經(jīng)步入尾聲，我從中學(xué)到了很多課堂以外的知識(shí)，也加深了對(duì)以前知識(shí)的理解和對(duì)團(tuán)隊(duì)合作重要性的認(rèn)識(shí)。</p><p>　　這次我主要是完成“圓柱螺旋拉伸彈簧設(shè)計(jì)系統(tǒng)”設(shè)計(jì)計(jì)算部分的程序設(shè)計(jì)。通過(guò)此次對(duì)VB程序有了一個(gè)更加深刻的理解，對(duì)于如何建立數(shù)據(jù)庫(kù)、如何從數(shù)據(jù)庫(kù)中調(diào)用數(shù)據(jù)、怎樣才能有一個(gè)友好的用戶界面以及對(duì)彈簧的工作原理、計(jì)算校核都有了更深入的理解，為以后的發(fā)展打下了堅(jiān)實(shí)的基礎(chǔ)。</p

28、><p>　　通過(guò)課程設(shè)計(jì)，使我深深體會(huì)到，對(duì)于團(tuán)隊(duì)合作的項(xiàng)目，一個(gè)人無(wú)法勝任，合作顯得非常重要。通過(guò)此次課程設(shè)計(jì)，我對(duì)ＣＡＤ二次開(kāi)發(fā)有了一個(gè)整體的理解，達(dá)到了預(yù)期目標(biāo)，也相信會(huì)對(duì)我以后的事業(yè)發(fā)展會(huì)有很大的幫助。</p><p><b>　　七、參考文獻(xiàn)</b></p><p>　　1.崔洪斌，等，計(jì)算機(jī)輔助設(shè)計(jì)基礎(chǔ)及應(yīng)用[M],清華大學(xué)出版社，2