【正文】 鄭重聲明：所呈交的論文是本人在導(dǎo)師的指導(dǎo)下獨(dú)立進(jìn)行研究所取得的研究成果。工程師們將不再受從二維工程圖開始設(shè)計(jì)并表現(xiàn)設(shè)計(jì)思想的束縛，可能在不久的將來由蒙日創(chuàng)立的畫法幾何將退出歷史的舞臺(tái)，盡管目前許多設(shè)計(jì)人員，特別是老一代的設(shè)計(jì)人員還難以放棄，但CAD技術(shù)的發(fā)展使設(shè)計(jì)人員不得不這樣做。通過開發(fā)拉刀CAD系統(tǒng)，很大程度上提高了拉刀的設(shè)計(jì)效率，使拉刀設(shè)計(jì)、制造成本得到有效降低并較好地解決了常規(guī)拉刀設(shè)計(jì)所存在的周期長、標(biāo)準(zhǔn)化程度低、優(yōu)化性差、難管理較混亂的局面，并為其它刀具系統(tǒng)開發(fā)奠定了基礎(chǔ)，具有一定的指導(dǎo)意義，對(duì)工程實(shí)際應(yīng)用也具有較好的借鑒和作用?！　〗鼛啄陙?，隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，CAD技術(shù)已由發(fā)達(dá)國家向發(fā)展中國家擴(kuò)展，而且發(fā)展的勢(shì)頭非常迅猛．我國政府部門十分重視這一技術(shù)，已經(jīng)和科技界、工業(yè)界一起把CAD技術(shù)的應(yīng)用推廣當(dāng)作一件大事來抓，如果國家科工委實(shí)施了CIMS工程和CAD應(yīng)用工程，組建了全國性的CAD培訓(xùn)網(wǎng)絡(luò)；機(jī)械工業(yè)部把1997年定位“AD推廣年”將CAD推廣工作作為重中之重項(xiàng)目，目前正在組織實(shí)施“AD應(yīng)用1550工程”。機(jī)電產(chǎn)品的開發(fā)要進(jìn)行多目標(biāo)全性能的優(yōu)化設(shè)計(jì)，以追求機(jī)電產(chǎn)品動(dòng)靜熱特性、效率、精度、使用壽命、可靠性、制造成本與制造周期的最佳組合，研究重點(diǎn)是:并行工程及CAD/CAPP/CAM/CAE一體化設(shè)計(jì)技術(shù)。 8海量信息的存儲(chǔ)，管理和檢索技術(shù) 隨著CAD技術(shù)應(yīng)用的深入，所涉及的各種信息越來越多，如何快速，有效地對(duì)海量信息進(jìn)行存儲(chǔ)、管理和檢索，成為人們關(guān)注的焦點(diǎn)，傳統(tǒng)的關(guān)系型數(shù)據(jù)庫已難以適應(yīng)日益增長的數(shù)據(jù)管理的要求。 目前，在我國市場(chǎng)上銷售的各類CAD軟件中，最有代表性的CAD系統(tǒng)是美國Autodesk公司開發(fā)的具有三維功能的通用二維CAD繪圖軟件AutoCAD，是當(dāng)前最普及的二維CAD平臺(tái)軟件之一。（3），如在啟動(dòng)時(shí)立即裝入一些文件等。 2 .ADS ADS的全名是AutoCAD Development System，它是AutoCAD的C語言開發(fā)系統(tǒng)，ADS本質(zhì)上是一組可以用C語言編寫AutoCAD應(yīng)用程序的頭文件和目標(biāo)庫，它直接利用用戶熟悉的各種流行的C語言編譯器，將應(yīng)用程序編譯成可執(zhí)行的文件在AutoCAD環(huán)境下運(yùn)行，這種可以在AutoCAD環(huán)境中直接運(yùn)行的可執(zhí)行文件叫做ADS應(yīng)用程序。其特點(diǎn)為自身是AutoCAD 2000中默認(rèn)的代碼編輯工具；用它開發(fā)AutoLISP程序的時(shí)間被大大地縮短，原始代碼能被保密，以防盜版和被更改；能幫助大家使用ActiveX對(duì)象及其事件；使用了流行的有色代碼編輯器和完善的調(diào)試工具，使大家很容易創(chuàng)建和分析LISP程序的運(yùn)行情況。通過VBA的強(qiáng)大編程功能講設(shè)計(jì)做成設(shè)計(jì)模塊，并利用AUTOCAD的強(qiáng)大圖形輸出功能將拉刀設(shè)計(jì)圖輸出。ARX的“暴露性”參數(shù)顯示了用戶編程錯(cuò)誤的可能嚴(yán)重性。但它在速度、暴露性、功能和要求使用上比較弱，同時(shí)也存在編程錯(cuò)誤的潛在性。 3. 系統(tǒng)開發(fā) 本系統(tǒng)的總體功能目標(biāo)是實(shí)現(xiàn)圓孔拉刀的參數(shù)化計(jì)算機(jī)輔助設(shè)計(jì)。且長期以來拉刀的設(shè)計(jì)和管理仍然采用手工設(shè)計(jì)和人工管理，造成了大量的重復(fù)性勞動(dòng)，標(biāo)準(zhǔn)化程度低、設(shè)計(jì)優(yōu)化性差、周期長、難管理、易混亂、不能有效地利用現(xiàn)在科學(xué)技術(shù)成果。數(shù)據(jù)輸出框是將計(jì)算機(jī)計(jì)算的相關(guān)數(shù)據(jù)輸入到對(duì)應(yīng)的欄目。 參數(shù)畫圖 以下是是設(shè)計(jì)拉刀過程的圖框。（1）以下為參數(shù)計(jì)算的一些程序代碼。Getpointar函數(shù)根據(jù)一點(diǎn)以及未知點(diǎn)相對(duì)于已知點(diǎn)的極坐標(biāo)，計(jì)算未知點(diǎn)的直角坐標(biāo)，其實(shí)現(xiàn)代碼為：Public Function getpointar(ByVal ptbase As Variant, ByVal angle As Double, ByVal length As Double) As Variant Dim pt(0 To 2) As Double pt(0) = ptbase(0) + length * Cos(angle) pt(1) = ptbase(1) + length * Sin(angle) pt(2) = 0 getpointar = ptEnd Function 其中：ptbase為已知的基點(diǎn)，length,angle為未知點(diǎn)相對(duì)于已知點(diǎn)的極坐標(biāo)，length * Cos(angle)即為未知點(diǎn)相對(duì)于已知點(diǎn)在X方向移動(dòng)的距離，length * Sin(angle)為未知點(diǎn)相對(duì)于已知點(diǎn)在Y方向移動(dòng)的距離。為了便于制造，校準(zhǔn)齒的前角、齒距與齒形均可做成與精切齒相同。故切屑寬度較大的拉刀，在切屑齒的切屑刃上都要做出交錯(cuò)分布的分屑槽，將切屑分成許多小段。由于切屑卷曲不緊密，故應(yīng)使容屑槽的有效容積V槽大于切屑體積V屑，即容屑系數(shù)K應(yīng)為。 根據(jù)已確定的齒距P和槽深h，即可按有關(guān)資料查出容屑槽的各尺寸。該樣式控制著標(biāo)注的特征，如顏色、文字樣式和線形比例等，它不支持厚度信息。)ptpick = (, 請(qǐng)指定插入點(diǎn))ptinsert(0) = ptpick(0)ptinsert(1) = ptpick(1)ptinsert(2) = 0a = Chr(ob) + Chr(bs) + H7 + Chr(sc) + 技術(shù)要求 + Chr(cb)addmtext ptinsert, 1000, aptinsert1(0) = ptpick(0): ptinsert1(1) = ptinsert(1) 10: ptinsert1(2) = 0a1 = Chr(ob) + Chr(bs) + H5 + Chr(sc) + + Chr(cb)addmtext ptinsert1, 1000, a1ptinsert2(0) = ptinsert1(0): ptinsert2(1) = ptinsert1(1) 7: ptinsert2(2) = 0a2 = Chr(ob) + Chr(bs) + H5 + Chr(sc) + + Chr(cb)addmtext ptinsert2, 1000, a2ptinsert3(0) = ptinsert2(0): ptinsert3(1) = ptinsert2(1) 7: ptinsert3(2) = 0a3 = Chr(ob) + Chr(bs) + H5 + Chr(sc) + + Chr(cb)addmtext ptinsert3, 1000, a3ptinsert4(0) = ptinsert3(0): ptinsert4(1) = ptinsert3(1) 7: ptinsert4(2) = 0a4 = Chr(ob) + Chr(bs) + H5 + Chr(sc) + + Chr(cb)addmtext ptinsert4, 1000, a4ptinsert5(0) = ptinsert4(0): ptinsert5(1) = ptinsert4(1) 7: ptinsert5(2) = 0a5 = Chr(ob) + Chr(bs) + H5 + Chr(sc) + + Chr(cb)addmtext ptinsert5, 1000, a5ZoomAllUnload meMsgBox 設(shè)計(jì)已經(jīng)完成，請(qǐng)檢查圖紙，謝謝End Sub標(biāo)題欄作為工程圖紙的一個(gè)重要組成部分，一般包括件號(hào)、設(shè)計(jì)和審核人員姓名、零件名稱及數(shù)量、圖紙等。在創(chuàng)建模式中，對(duì)話框的標(biāo)題是“創(chuàng)建標(biāo)題欄”，要完成創(chuàng)建“標(biāo)題欄”塊定義的創(chuàng)建和對(duì)應(yīng)的塊參照的插入；在修改模式中，對(duì)話框的標(biāo)題欄是“修改標(biāo)題欄”，要獲得當(dāng)前標(biāo)題欄中屬性值并顯示在對(duì)話框中，并能根據(jù)用戶修改的結(jié)果更新塊參照的屬性值。步驟為：（1） 拉刀材料：。(6) 容屑槽。 滿足的校驗(yàn)條件。(9) 校驗(yàn)拉刀強(qiáng)度與拉床載荷。過渡齒與精切齒切除的余量為則粗切齒齒數(shù)為（第一個(gè)粗切齒齒升量為零）粗切齒與過渡齒，精切齒共切除余量為mm，需增加一個(gè)精切齒，調(diào)整個(gè)精切齒的齒升量。 進(jìn)入窗體后，選擇UserForm1，輸入對(duì)應(yīng)的參數(shù)，單位都是mm。利用Visual Basic ，實(shí)現(xiàn)了拉刀設(shè)計(jì)過程中的設(shè)計(jì)計(jì)算、二維造型、二維工程圖生成等，同時(shí)完成了系統(tǒng)集成，初步建立了拉刀數(shù)字化設(shè)計(jì)平臺(tái)。，并為后續(xù)CAD等功能的擴(kuò)展奠定基礎(chǔ)，為同類設(shè)計(jì)提供借鑒。感謝我的家人在生活上的關(guān)懷和照顧。盡我所知，除文中已經(jīng)注明引用的內(nèi)容外，本設(shè)計(jì)（論文）不含任何其他個(gè)人或集體已經(jīng)發(fā)表或撰寫過的作品成果。作者簽名: 二〇一〇年九月二十日致 謝時(shí)間飛逝，大學(xué)的學(xué)習(xí)生活很快就要過去，在這四年的學(xué)習(xí)生活中，收獲了很多，而這些成績的取得是和一直關(guān)心幫助我的人分不開的。郭謙功老師淵博的知識(shí)、嚴(yán)謹(jǐn)?shù)淖黠L(fēng)和誨人不倦的態(tài)度給我留下了深刻的印象?；厥姿哪?，取得了些許成績，生活中有快樂也有艱辛。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。是他們?cè)谖耶厴I(yè)的最后關(guān)頭給了我們巨大的幫助與鼓勵(lì)，給了我很多解決問題的思路，在此表示衷心的感激。四年的大學(xué)生活就快走入尾聲，我們的校園生活就要?jiǎng)澤暇涮?hào)，心中是無盡的難舍與眷戀。沒有他們的幫助，我將無法順利完成這次設(shè)計(jì)。本人愿意按照學(xué)校要求提交學(xué)位論文的印刷本和電子版，同意學(xué)校保存學(xué)位論文的印刷本和電子版，或采用影印、數(shù)字化或其它復(fù)制手段保存設(shè)計(jì)（論文）；同意學(xué)校在不以營利為目的的前提下，建立目錄檢索與閱覽服務(wù)系統(tǒng)，公布設(shè)計(jì)（論文）的部分或全部內(nèi)容，允許他人依法合理使用。學(xué)位論文作者（本人簽名）： 年 月 日學(xué)位論文出版授權(quán)書本人及導(dǎo)師完全同意《中國博士學(xué)位論文全文數(shù)據(jù)庫出版章程》、《中國優(yōu)秀碩士學(xué)位論文全文數(shù)據(jù)庫出版章程》(以下簡(jiǎn)稱“章程”)，愿意將本人的學(xué)位論文提交“中國學(xué)術(shù)期刊（光盤版）電子雜志社”在《中國博士學(xué)位論文全文數(shù)據(jù)庫》、《中國優(yōu)秀碩士學(xué)位論文全文數(shù)據(jù)庫》中全文發(fā)表和以電子、網(wǎng)絡(luò)形式公開出版，并同意編入CNKI《中國知識(shí)資源總庫》，在《中國博碩士學(xué)位論文評(píng)價(jià)數(shù)據(jù)庫》中使用和在互聯(lián)網(wǎng)上傳播，同意按“章程”規(guī)定享受相關(guān)權(quán)益。幾個(gè)月以來，正是在王老師的鼓勵(lì)和督促下，使我在個(gè)人修養(yǎng)、工作素質(zhì)、業(yè)務(wù)能力等各個(gè)方面都得到了很大的進(jìn)步和提高，在此向?qū)熗跤羞h(yuǎn)表示最誠摯的謝意。 ，實(shí)現(xiàn)了系統(tǒng)界面設(shè)計(jì)，以及二維模型、二維工程圖的一體化設(shè)計(jì)表達(dá)能力。既是加速國民經(jīng)濟(jì)發(fā)展和國防現(xiàn)代化的一項(xiàng)關(guān)鍵性高新技術(shù)，也是進(jìn)一步向現(xiàn)代集成制造系統(tǒng) CCIMS: Contemporary Integrated Manufacturing System)發(fā)展的重要技術(shù)基礎(chǔ)。 Public Sub lixiaobin4()Dim a As Double a = Val() If 3 a ThenMsgBox 符合拉刀加工要求，請(qǐng)繼續(xù)運(yùn)行 ElseMsgBox 未滿足拉刀加工要求，請(qǐng)重新填入End IfEnd SubPublic Sub lixiaobin6() Dim b As Double b = Val() Dim c As Double c = Val() Dim d As Double d = Val() If 20 = b And 10 * 10 ^ 4 = c Or 80 = b And 40 * 10 ^ 4 = c Or 20 b And 80 b And 10 * 10 ^ 4 = c ThenMsgBox 符合拉刀加工要求，請(qǐng)繼續(xù)運(yùn)行ElseMsgBox 未滿足拉刀加工要求，請(qǐng)重新填入End IfEndSub 校驗(yàn)?zāi)K4. 應(yīng)用實(shí)例 在AutoCAD中，選擇“工具”|“宏”|“VBA管理器”菜單項(xiàng)，系統(tǒng)會(huì)彈出“VBA管理器”對(duì)話框，在“VBA管理器”對(duì)話框中，單擊“加載”按鈕，在系統(tǒng)彈出的“打開VBA工程”對(duì)話框中，選擇所要加載的VBA工程，單擊“打開” 管理器 在VBA集成開發(fā)環(huán)境中，選擇“工具”|“宏”菜單項(xiàng)，示的“宏”對(duì)話框。、。(8) 前柄部形狀和尺寸。則而容屑槽深，所以，校驗(yàn)合格。最小孔徑，拉削余量為齒升量。如果當(dāng)前處在創(chuàng)建模式，就創(chuàng)建標(biāo)題欄；如果處在修改模式，就根據(jù)當(dāng)前對(duì)話框中的參數(shù)值對(duì)標(biāo)題欄的屬性進(jìn)行修改，其代碼為：Private Sub cmdok_Click()On Error Resume NextDim txt As ControlFor Each txt In If TypeOf txt Is TextBox ThenIf = ThenMsgBox 參數(shù)不能為空, vbCriticalExit SubEnd IfEnd IfNext txtIf createmode = True ThenCall createtitlebarElseCall modifytitlebarEnd IfEnd SubCreatetitlebar和modifytitlebar兩個(gè)自定義過程分別用于創(chuàng)建和修改標(biāo)題欄。判斷當(dāng)前的操作是創(chuàng)建還是修改標(biāo)題欄的依據(jù)，就是圖形中是否已經(jīng)存在“標(biāo)題欄”塊參照，如果已經(jīng)存在，那么當(dāng)前就是在編輯模式。當(dāng)選定點(diǎn)后，系統(tǒng)會(huì)自動(dòng)將技術(shù)要求填到相應(yīng)的位置。線性標(biāo)注包括對(duì)齊、旋轉(zhuǎn)和坐標(biāo)標(biāo)注。 容屑系數(shù)K的具體數(shù)值隨加工材料性質(zhì)和齒升量不同而異。 容屑槽按其深度不同又可