1、南通大學(xué)CAD課程設(shè)計(jì)說(shuō)明書(shū)-設(shè)計(jì)計(jì)算部分的程序設(shè)計(jì)設(shè)計(jì)題目：圓柱螺旋拉伸彈簧學(xué)院：機(jī)械工程學(xué)院班級(jí)：機(jī)092學(xué)生姓名：李寧學(xué)號(hào)：0910012048設(shè)計(jì)日期：2013年1月16日目錄一、課題名稱(chēng)和要求-3二、系統(tǒng)結(jié)構(gòu)框圖-3三、程序流程圖-4四、程序設(shè)計(jì)關(guān)鍵技術(shù)的闡述-5五、設(shè)計(jì)舉例-9六、課程設(shè)計(jì)的體會(huì)和建議-8七、參考文獻(xiàn)-8一、 設(shè)計(jì)課題題目：圓柱螺旋拉伸彈簧設(shè)計(jì)系統(tǒng)。目的：通過(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)方法以及軟件的接口方法。任務(wù)：完成“圓柱螺旋拉伸彈簧設(shè)計(jì)系統(tǒng)”的開(kāi)發(fā)，根據(jù)該系統(tǒng)能

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

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

4、2.（2）VB程序開(kāi)發(fā)部分（1）通過(guò)預(yù)估的工作極限載荷對(duì)數(shù)據(jù)庫(kù)進(jìn)行查詢，比對(duì)，取到與預(yù)估值最接近的值作為標(biāo)準(zhǔn)的工作極限載荷Pj方法：載荷載入Microsoft DAO 3.6 Object LibraryPj0 = Pn / 0.8（Pj0為預(yù)估值）Dim Source As String '數(shù)據(jù)庫(kù)文件名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）通過(guò)索引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è)計(jì)舉例1確定所要求設(shè)計(jì)螺旋拉伸彈簧的相關(guān)參數(shù)最大拉力Pn=600N最小拉力P1=500N工作行程h=12mm最大中徑d60mm旋向：右旋2.運(yùn)行程序3.輸入?yún)?shù)最大拉力Pn=600N最小拉力P1=500N工作行程h=12mm最大中徑d60mm旋向：右旋彈簧材料切變模量：一般鋼絲04油淬火碳素彈簧鋼絲TB/T5103彈簧類(lèi)型：類(lèi)彈簧端部鉤型：L1型，半圓鉤環(huán)3.得到計(jì)算結(jié)果4.校驗(yàn)5.用AutoCAD繪制彈簧六、課程設(shè)計(jì)的體會(huì)和建議為期兩周的“圓柱螺旋拉伸彈簧設(shè)計(jì)系統(tǒng)”的設(shè)計(jì)已經(jīng)步入尾聲，我從中學(xué)到了很多課堂以外的知識(shí)，也加深了對(duì)以前知識(shí)的理解和對(duì)團(tuán)隊(duì)合作重要性的認(rèn)識(shí)。這次我主要是完成“圓柱螺旋拉伸彈簧設(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ǔ)。通過(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ì)