【正文】 老師們認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我收益匪淺。從這里走出，對我的人生來說，將是踏上一個新的征程，要把所學的知識應(yīng)用到實際工作中去。首先，我要特別感謝我的知道郭謙功老師對我的悉心指導，在我的論文書寫及設(shè)計過程中給了我大量的幫助和指導，為我理清了設(shè)計思路和操作方法，并對我所做的課題提出了有效的改進方案。（保密論文在解密后遵守此規(guī)定）論文密級：□公開 □保密（___年__月至__年__月）(保密的學位論文在解密后應(yīng)遵守此協(xié)議)作者簽名：_______ 導師簽名：______________年_____月_____日 _______年_____月_____日獨 創(chuàng) 聲 明本人鄭重聲明：所呈交的畢業(yè)設(shè)計(論文)，是本人在指導老師的指導下，獨立進行研究工作所取得的成果，成果不存在知識產(chǎn)權(quán)爭議。同時衷心的感謝我的母校南昌航空大學為我提供了這次畢業(yè)設(shè)計學習的機會。 4，通過實例校核綜合輪切式圓孔拉刀，從而為改進拉刀的設(shè)計提供了依據(jù)。 本文研究的是圓體成形車刀工作部分設(shè)計模塊。從宏列表中選擇本系統(tǒng)創(chuàng)建的alternation宏，單擊“遠行”按鈕，執(zhí)行該宏。后四齒齒升量小于粗切齒齒升量的1/2，為精切齒，而前三齒稱過渡齒。選用Ⅱ型A式無周向定位面的圓柱形前柄，取，最小斷面處直徑為。④校驗同時工作齒數(shù)。取粗切齒齒升量為。（4）Createtitlebar過程用于根據(jù)用戶在文本框中輸入的參數(shù)值，向圖形中添加標題欄，其實現(xiàn)代碼為：Private Sub createtitlebar()If blkisexist(標題欄) ThenGoTo insertblockEnd If（4）在“確定”按鈕的單擊事件中，調(diào)用的自定義函數(shù)modifytitlebar，用于修改標題欄，其實現(xiàn)代碼為：Private Sub modifytitlebar()獲得標題欄的塊參照Dim objblkref As AcadBlockReferenceSet objblkref = gettitlebarCall editattributes(objblkref)修改標題欄的屬性值End Sub（12）在“取消”按鈕的單擊事件中，添加一個End語句，用于結(jié)束程序的執(zhí)行：Private Sub cmdcancel_Click() EndEnd Sub 下面用一個實例來校核一把拉刀是否合格：已知被拉孔直徑，拉前經(jīng)擴孔加工，拉削長度L=36mm，拉床型號L6110，拉削材料45鋼，HB170~217。編輯模式和創(chuàng)建模式用一個布爾類型的全局變量createmode來標識，每次執(zhí)行程序都要判斷一下工作模式，根據(jù)工作模式來確定不同的操作。 技術(shù)要求輸入框 以下為數(shù)據(jù)要求輸入模塊的代碼：Public Function addmtext(ByVal ptinsert As Variant, ByVal width As Double, ByVal text As String) As AcadMTextSet addmtext = (ptinsert, width, text) = heightEnd FunctionPrivate Sub CommandButton1_Click()Dim ptpick As VariantDim ptinsert(2) As Double, ptinsert1(2) As Double, ptinsert2(2) As Double, ptinsert3(2) As Double, ptinsert4(2) As Double, ptinsert5(2) As DoubleDim a As StringDim a1 As StringDim a2 As StringDim a3 As StringDim a4 As StringDim a5 As StringDim ob As LongDim cb As LongDim bs As LongDim sc As Longob = Asc({)cb = Asc(})bs = Asc(\)fs = Asc(/)sc = Asc(。AutoCAD在當前圖層中繪制標注，每一標注都關(guān)聯(lián)著標注樣式，這個標注樣式可以是默認的或自定義的?？刹橛嘘P(guān)質(zhì)料。 決定容屑槽時要注意容屑條件。當切屑忍性金屬時，若沒有分屑槽，則圓孔拉刀每個刀齒切下的金屬層是一個圓筒，它會套在容屑槽中，使清楚切屑十分困難，對拉屑 過程十分不利。對程序中所需的變量及數(shù)組進行定義Dim rr1(0 To 2) As DoubleDim rr2(0 To 2) As DoubleDim rr3(0 To 2) As DoubleDim rr4(0 To 2) As DoubleDim rr5(0 To 2) As DoubleDim rr6(0 To 2) As DoubleDim rr7(0 To 2) As DoubleDim rr8(0 To 2) As DoubleDim rr9(0 To 2) As DoubleDim rr10(0 To 2) As DoubleDim rr11(0 To 2) As DoubleDim rr12(0 To 2) As DoubleDim rr13(0 To 2) As DoubleDim rr14(0 To 2) As DoubleDim rr15(0 To 2) As DoubleDim rr16(0 To 2) As DoubleDim rr17(0 To 2) As DoubleDim rr18(0 To 2) As DoubleDim rr19(0 To 2) As DoubleDim rr20(0 To 2) As DoubleDim rr21(0 To 2) As DoubleDim rr22(0 To 2) As Double從窗體中獲得用戶輸入的數(shù)據(jù)的程序如下：rr1(0) = P(31) + (J g) / 2rr1(1) = P(32) (J g) / 2rr1(2) = 0rrr = (J g) / Sqr(2)StartAngleInRadian1 = 45 * / 180EndAngleInRadian1 = 135 * / 180Set arcobj1 = (rr1, rrr, StartAngleInRadian1, EndAngleInRadian1) = 輪廓線rr2(0) = rr1(0) + Jrr2(1) = rr1(1)rr2(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian2 = 45 * / 180EndAngleInRadian2 = 135 * / 180Set arcobj2 = (rr2, rrr, StartAngleinradian2, EndAngleInRadian2) = 輪廓線rr3(0) = rr1(0) + 2 * Jrr3(1) = rr1(1)rr3(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian3 = 45 * / 180EndAngleInRadian3 = 135 * / 180Set arcobj3 = (rr3, rrr, StartAngleinradian3, EndAngleInRadian3) = 輪廓線rr4(0) = rr1(0) + 5 * Jrr4(1) = rr1(1)rr4(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian4 = 45 * / 180EndAngleInRadian4 = 135 * / 180Set arcobj4 = (rr4, rrr, StartAngleinradian4, EndAngleInRadian4)rr5(0) = rr1(0) + 6 * Jrr5(1) = rr1(1)rr5(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian5 = 45 * / 180EndAngleInRadian5 = 135 * / 180Set arcobj5 = (rr5, rrr, StartAngleinradian5, EndAngleInRadian5)rr6(0) = rr1(0) + 7 * Jrr6(1) = rr1(1)rr6(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian6 = 45 * / 180EndAngleInRadian6 = 135 * / 180Set arcobj6 = (rr6, rrr, StartAngleinradian6, EndAngleInRadian6)rr7(0) = rr1(0) + 8 * Jrr7(1) = rr1(1)rr7(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian7 = 45 * / 180EndAngleInRadian7 = 135 * / 180Set arcobj7 = (rr7, rrr, StartAngleinradian7, EndAngleInRadian7)rr8(0) = rr1(0) + 9 * Jrr8(1) = rr1(1)rr8(2) = 0rrr = (J g) / Sqr(2)StartAngleinradian8 = 45 * / 180EndAngleInRadian8 = 135 * / 180Set arcobj8 = (rr8, rrr, StartAngleinradian8, EndAngleInRadian8)End sub 校準部的校準齒無齒深量，只作校準和修光作用，不做出分屑槽。函數(shù)的返回值為variant，在本系統(tǒng)中所有的程序中，均使用variant類型的變量在函數(shù)之間交換點的坐標數(shù)據(jù)。用戶只需按照提示輸入相應(yīng)的參數(shù)就即可。 圓孔拉刀兩端做有帶保護錐的中心孔，作為制造與重磨時的基準。數(shù)據(jù)輸入框是用戶輸入數(shù)據(jù)的各種文本框，用戶可以將已知的拉刀相關(guān)數(shù)據(jù)輸入對應(yīng)的欄目。但其設(shè)計、制造難度較大，成本較高。VBA語言于VB語言較為相似，學習簡單、容易掌握，同時可以很好的利用它的面向?qū)ο蠡幊烫卣?，可以較好的完成本次設(shè)計。另外，VLISP還提供了工具用于發(fā)布獨立的應(yīng)用程序。ARX程序與AutoCAD、Windows之間均采用Windows消息傳遞機制直接通訊。利用AUTOCAD為設(shè)計平臺，利用VBA對AUTOCAD進行二次開發(fā)。 4 .VisualLISP VisualLISP已經(jīng)被完整地集成到AutoCAD 2000中，她為開發(fā)者提供了嶄新的、增強的集成開發(fā)環(huán)境，一改過去在AutoCAD中內(nèi)嵌AtuoLISP運行引擎的機制，這樣開發(fā)者可以直接使用AutoCAD中的對象和反應(yīng)器，進行更底層的開發(fā)。其缺點是繼承了LISP語言的編程規(guī)則而導致繁多的括號。（2）建立符合自己要求的菜單文件，一般可在AutoCAD原菜單文件內(nèi)添加自己的內(nèi)容，對于AutoCAD2000版本還可增加部分菜單文件，然后經(jīng)交互方式加入到系統(tǒng)中去。 2. 開發(fā)工具的選擇 開發(fā)平臺的選擇 CAD系統(tǒng)軟件包括CAD設(shè)計軟件、CAE分析軟件、CAM數(shù)控加工軟件、CAPP工藝軟件、PDM/PLM協(xié)同管理軟件等。 這些主要關(guān)鍵技術(shù)隨著21世紀先進制造技術(shù)的發(fā)展及新的生產(chǎn)模式的出現(xiàn)，會不斷地對CAD/CAM集成系統(tǒng)提出新的要求，其關(guān)鍵技術(shù)內(nèi)容會產(chǎn)生某些變化，但集成化、智能化、網(wǎng)絡(luò)化及可視化仍然為CAD/CAM系統(tǒng)的發(fā)展的主要方向。 5多學科多功能綜合產(chǎn)品設(shè)計技術(shù) 機電產(chǎn)品的開發(fā)設(shè)計不僅用到機械科學的理論與知識(力學、材料、工藝等)，而且還用到電磁學、光學、控制理論等，不僅要考慮技術(shù)因素，還要考慮經(jīng)濟、心理、環(huán)境、衛(wèi)生及社會等方面因素。CAD技術(shù)的發(fā)展與應(yīng)用水平成為衡量的科學技術(shù)現(xiàn)代化和工業(yè)現(xiàn)代化的重要標志之一。隨著計算機技術(shù)的發(fā)展，將其引入拉刀領(lǐng)域中來解決常規(guī)刀具設(shè)計所存在的一系列問題具有普遍意義。作者簽名： 日期： 年 月 日導師簽名： 日期： 年 月 日1. 緒論 論文研究背景及意義 隨著CAD技術(shù)的發(fā)展，工程師們已經(jīng)習慣的二維設(shè)計正在被三維設(shè)計所取代，這一過程可稱為設(shè)計方法的一場革命。作 者 簽 名：　　 　 　　日　 期：　　 　 　　 指導教師簽名：　　 　 　　 日　　期：　　 　 　　 使用授權(quán)說明本人完全了解 大學關(guān)于收集、保存、使用畢業(yè)設(shè)計（論文）的規(guī)定，即：按照學校要求提交畢業(yè)設(shè)計（論文）的印刷本和電子版本；學校有權(quán)保存畢業(yè)設(shè)計（論文）的印刷本和電子版，并提供目錄檢索與閱覽服務(wù)；學校可以采用影印、縮印、數(shù)字化或其它復制手段保存論文；在不以贏利為目的前提下，學?？梢怨颊撐牡牟糠只蛉績?nèi)容。作者簽名：　　 　 　　 日　 期：　　 　 　　 學位論文原創(chuàng)性聲明本人