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

1、南通大學(xué)CAD課程設(shè)計說明書-設(shè)計計算部分的程序設(shè)計設(shè)計題目：圓柱螺旋拉伸彈簧學(xué)院：機械工程學(xué)院班級：機092學(xué)生姓名：李寧學(xué)號：0910012048設(shè)計日期：2013年1月16日目錄一、課題名稱和要求-3二、系統(tǒng)結(jié)構(gòu)框圖-3三、程序流程圖-4四、程序設(shè)計關(guān)鍵技術(shù)的闡述-5五、設(shè)計舉例-9六、課程設(shè)計的體會和建議-8七、參考文獻-8一、 設(shè)計課題題目：圓柱螺旋拉伸彈簧設(shè)計系統(tǒng)。目的：通過“圓柱螺旋拉伸彈簧設(shè)計系統(tǒng)”的開發(fā)，進一步掌握和理解一般CAD系統(tǒng)的開發(fā)方法和流程。進一步熟悉工程數(shù)據(jù)的處理方法、自動繪圖的實現(xiàn)方法以及軟件的接口方法。任務(wù)：完成“圓柱螺旋拉伸彈簧設(shè)計系統(tǒng)”的開發(fā)，根據(jù)該系統(tǒng)能

2、進行簡單的圓柱螺旋拉伸彈簧自動設(shè)計。要求：1、完成所有設(shè)計資料的程序處理，建立有關(guān)設(shè)計參數(shù)數(shù)據(jù)文件。 2、完成圓柱螺旋拉伸彈簧設(shè)計系統(tǒng)的設(shè)計、計算、分析程序。 3、完成系統(tǒng)界面設(shè)計、文檔設(shè)計。4、完成課程設(shè)計說明書。二、 系統(tǒng)結(jié)構(gòu)框圖圓柱螺旋拉伸彈簧設(shè)計系統(tǒng)系統(tǒng)設(shè)計VB編程繪圖AutoLisp編程開始界面計算界面幫助界面輸入已知條件計算繪圖參數(shù)及設(shè)計參數(shù)（輸出）校核彈簧校驗合格校驗不合格接口技術(shù)返回計算界面CAD繪制彈簧系統(tǒng)可以根據(jù)彈簧的不同旋向情況，選擇不同形式拉伸彈簧，通過計算得出選用的標(biāo)準(zhǔn)件的參數(shù)，并對彈簧進行校核，選擇合適的值，利用script腳本文件，自動加載Autolisp文件到A

3、UTOCAD中，繪制出所選擇的圖形，實現(xiàn)了一鍵操作。三、 程序流程圖：輸入已知條件最大拉力Pn、最小拉力P1、工作行程h和最大中徑d根據(jù)條件選擇合適的材料從而確定彈性切邊模量G，根據(jù)循環(huán)作用次數(shù)選擇合適的彈簧類型以及彈簧旋向。點擊計算，算出彈簧的基本的參數(shù)計算失?。?）彈簧材料不合適。2）最小拉力小于初拉力計算成功，進行校核校驗合格校驗不合格CAD出圖重新計算四、程序設(shè)計關(guān)鍵技術(shù)（1）通過VB或者Access建立數(shù)據(jù)庫通過VB建立數(shù)據(jù)庫 打開VB，進入“外接程序（A）”，打開“可視化數(shù)據(jù)管理（V）”，單擊左上方“文件”，選擇新建Access數(shù)據(jù)庫，選擇新建表可進入如下圖所示界面，進行數(shù)據(jù)輸入。

4、2.（2）VB程序開發(fā)部分（1）通過預(yù)估的工作極限載荷對數(shù)據(jù)庫進行查詢，比對，取到與預(yù)估值最接近的值作為標(biāo)準(zhǔn)的工作極限載荷Pj方法：載荷載入Microsoft DAO 3.6 Object LibraryPj0 = Pn / 0.8（Pj0為預(yù)估值）Dim Source As String '數(shù)據(jù)庫文件名Source = "TH.mdb"Dim conn1 As ADODB.ConnectionSet conn1 = New ADODB.Connectionconn1.ConnectionString = "Provider=Microsoft.Jet.O

5、LEDB.4.0;Data Source=" & Sourceconn1.OpenSet rst1 = New ADODB.RecordsetDim mysql As Stringmysql = "select * from A"rst1.Open mysql, conn1, 3, 2rst1.MoveFirst Do Until rst1!工作極限載荷Pj >= Pj0 '直到找到比插入數(shù)據(jù)小的數(shù)當(dāng)中最小的數(shù)rst1.MoveNextLoopPj = Pj1（比較得出的最接近工作極限載荷值）（2）通過索引Pj獲得其他彈簧參數(shù)值（工作極限載荷

6、下的單圈變形量fj，單圈剛度Pd，初拉力Po，材料直徑d，彈簧中徑D）D = rst1!彈簧中徑D F = rst1!工作極限載荷下的單圈變形量fj Pd = rst1!單圈剛度Pd Po = rst1!初拉力Po D0 = rst1!材料直徑d Pj1 = rst1!工作極限載荷Pj（3）模塊接口技術(shù)1VB、Access接口技術(shù)Dim Source As StringSource = "××.mdb"Dim conn1 As ADODB.ConnectionSet conn1 = New ADODB.Connectionconn1.Connection

7、String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Sourceconn1.OpenSet rst1 = New ADODB.RecordsetDim mysql As Stringmysql = "select * from A"rst1.Open mysql, conn1, 3, 2rst1.MoveFirst Do Until rst1!×××× rst1.MoveNextLoop×× = rst1!×&#

8、215;×××× = rst1!×××××× = rst1!××××××= rst1!××××2VB、CAD接口技術(shù)th = Shell("C:Program FilesAutoCAD 2004acad.exe /b e:spring.scr", 1)“C:Program FilesAutoCAD 2004acad.exe” ：本電腦上CAD安裝位置“e:spring.scr”

9、 ：腳本位置 五、設(shè)計舉例1確定所要求設(shè)計螺旋拉伸彈簧的相關(guān)參數(shù)最大拉力Pn=600N最小拉力P1=500N工作行程h=12mm最大中徑d60mm旋向：右旋2.運行程序3.輸入?yún)?shù)最大拉力Pn=600N最小拉力P1=500N工作行程h=12mm最大中徑d60mm旋向：右旋彈簧材料切變模量：一般鋼絲04油淬火碳素彈簧鋼絲TB/T5103彈簧類型：類彈簧端部鉤型：L1型，半圓鉤環(huán)3.得到計算結(jié)果4.校驗5.用AutoCAD繪制彈簧六、課程設(shè)計的體會和建議為期兩周的“圓柱螺旋拉伸彈簧設(shè)計系統(tǒng)”的設(shè)計已經(jīng)步入尾聲，我從中學(xué)到了很多課堂以外的知識，也加深了對以前知識的理解和對團隊合作重要性的認識。這次我主要是完成“圓柱螺旋拉伸彈簧設(shè)計系統(tǒng)”設(shè)計計算部分的程序設(shè)計。通過此次對VB程序有了一個更加深刻的理解，對于如何建立數(shù)據(jù)庫、如何從數(shù)據(jù)庫中調(diào)用數(shù)據(jù)、怎樣才能有一個友好的用戶界面以及對彈簧的工作原理、計算校核都有了更深入的理解，為以后的發(fā)展打下了堅實的基礎(chǔ)。通過課程設(shè)計，使我深深體會到，對于團隊合作的項目，一個人無法勝任，合作顯得非常重要。通過此次課程設(shè)計，我對二次開發(fā)有了一個整體的理解，達到了預(yù)期目標(biāo)，也相信會