cad課程設計---圓柱螺旋拉伸彈簧

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

2、　　學生姓名： </b></p><p><b>　　學號： </b></p><p>　　設計日期：2013年1月16日</p><p><b>　　目錄</b></p><p>　　一、課題名稱和要求------------------------------------------

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

4、--------------4</p><p>　　四、程序設計關鍵技術的闡述----------------------------------------------------5</p><p>　　五、設計舉例------------------------------------------------------------------------------9</p&g

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

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

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

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

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

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

11、O 3.6 Object Library</p><p>　　Pj0 = Pn / 0.8（Pj0為預估值）</p><p>　　Dim Source As String '數據庫文件名</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 '直到找到比插入數據小的數當中最小的數</p><p>　　rst1.MoveNext</p><p><b>　　Loop</b></p><p>　　Pj = Pj1（比較得出的最接近工作極限載荷值）&

15、lt;/p><p>　?。?）通過索引Pj獲得其他彈簧參數值（工作極限載荷下的單圈變形量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）模塊接口技術</b></p><p>　　〈1〉VB、Access接口技術</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接口技術 </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>　　五、設計舉例</b></p><p>　　1．確定所要求設計螺旋拉伸彈簧的相關參數</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.輸入參數</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.得到計算結果</b></p><p><b>　　4.校驗</b></p><p>　　5.用AutoCAD繪制彈簧</p><p>　　六、課程設計的體會和建議</p><p>　　為期兩周的“圓柱螺旋

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

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