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

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

2、　　學(xué)生姓名： </b></p><p><b>　　學(xué)號： </b></p><p>　　設(shè)計日期：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è)計關(guān)鍵技術(shù)的闡述----------------------------------------------------5</p><p>　　五、設(shè)計舉例------------------------------------------------------------------------------9</p&g

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

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

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

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

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

10、t;　　選擇新建表可進入如下圖所示界面，進行數(shù)據(jù)輸入。</p><p><b>　　2.</b></p><p>　?。?）VB程序開發(fā)部分</p><p>　　（1）通過預(yù)估的工作極限載荷對數(shù)據(jù)庫進行查詢，比對，取到與預(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ù)庫文件名</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>　?。?）通過索引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>　　（3）模塊接口技術(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è)計舉例</b></p><p>　　1．確定所要求設(shè)計螺旋拉伸彈簧的相關(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.運行程序</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.得到計算結(jié)果</b></p><p><b>　　4.校驗</b></p><p>　　5.用AutoCAD繪制彈簧</p><p>　　六、課程設(shè)計的體會和建議</p><p>　　為期兩周的“圓柱螺旋

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

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