【正文】 。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。是他們在我畢業(yè)的最后關(guān)頭給了我們巨大的幫助與鼓勵，給了我很多解決問題的思路，在此表示衷心的感激。在我的十幾年求學(xué)歷程里，離不開父母的鼓勵和支持，是他們辛勤的勞作，無私的付出，為我創(chuàng)造良好的學(xué)習(xí)條件，我才能順利完成完成學(xué)業(yè)，感激他們一直以來對我的撫養(yǎng)與培育。學(xué)友情深，情同兄妹?；厥姿哪?，取得了些許成績，生活中有快樂也有艱辛。四年的大學(xué)生活就快走入尾聲，我們的校園生活就要劃上句號，心中是無盡的難舍與眷戀。另外，我還要感謝大學(xué)四年和我一起走過的同學(xué)朋友對我的關(guān)心與支持，與他們一起學(xué)習(xí)、生活，讓我在大學(xué)期間生活的很充實(shí)，給我留下了很多難忘的回憶。再次對周巍老師表示衷心的感謝。郭謙功老師淵博的知識、嚴(yán)謹(jǐn)?shù)淖黠L(fēng)和誨人不倦的態(tài)度給我留下了深刻的印象。沒有他們的幫助，我將無法順利完成這次設(shè)計。經(jīng)過這次畢業(yè)設(shè)計，我的能力有了很大的提高，比如操作能力、分析問題的能力、合作精神、嚴(yán)謹(jǐn)?shù)墓ぷ髯黠L(fēng)等方方面面都有很大的進(jìn)步。本次畢業(yè)設(shè)計大概持續(xù)了半年，現(xiàn)在終于到結(jié)尾了。作者簽名: 二〇一〇年九月二十日致 謝時間飛逝，大學(xué)的學(xué)習(xí)生活很快就要過去，在這四年的學(xué)習(xí)生活中，收獲了很多，而這些成績的取得是和一直關(guān)心幫助我的人分不開的。本人愿意按照學(xué)校要求提交學(xué)位論文的印刷本和電子版，同意學(xué)校保存學(xué)位論文的印刷本和電子版，或采用影印、數(shù)字化或其它復(fù)制手段保存設(shè)計（論文）；同意學(xué)校在不以營利為目的的前提下，建立目錄檢索與閱覽服務(wù)系統(tǒng)，公布設(shè)計（論文）的部分或全部內(nèi)容，允許他人依法合理使用。作者簽名: 二〇一〇年九月二十日本聲明的法律后果由本人承擔(dān)。盡我所知，除文中已經(jīng)注明引用的內(nèi)容外，本設(shè)計（論文）不含任何其他個人或集體已經(jīng)發(fā)表或撰寫過的作品成果。學(xué)位論文作者（本人簽名）： 年 月 日學(xué)位論文出版授權(quán)書本人及導(dǎo)師完全同意《中國博士學(xué)位論文全文數(shù)據(jù)庫出版章程》、《中國優(yōu)秀碩士學(xué)位論文全文數(shù)據(jù)庫出版章程》(以下簡稱“章程”)，愿意將本人的學(xué)位論文提交“中國學(xué)術(shù)期刊（光盤版）電子雜志社”在《中國博士學(xué)位論文全文數(shù)據(jù)庫》、《中國優(yōu)秀碩士學(xué)位論文全文數(shù)據(jù)庫》中全文發(fā)表和以電子、網(wǎng)絡(luò)形式公開出版，并同意編入CNKI《中國知識資源總庫》，在《中國博碩士學(xué)位論文評價數(shù)據(jù)庫》中使用和在互聯(lián)網(wǎng)上傳播，同意按“章程”規(guī)定享受相關(guān)權(quán)益。對本文的研究做出重要貢獻(xiàn)的個人和集體，均已在文中以明確方式注明并表示感謝。學(xué)位論文原創(chuàng)性聲明 本人鄭重聲明：所呈交的學(xué)位論文，是本人在導(dǎo)師的指導(dǎo)下進(jìn)行的研究工作所取得的成果。感謝我的家人在生活上的關(guān)懷和照顧。幾個月以來，正是在王老師的鼓勵和督促下，使我在個人修養(yǎng)、工作素質(zhì)、業(yè)務(wù)能力等各個方面都得到了很大的進(jìn)步和提高，在此向?qū)熗跤羞h(yuǎn)表示最誠摯的謝意。參考文獻(xiàn)1. 2000 應(yīng)用與開發(fā)技巧[M].科學(xué)出版社，1999年.2. 2006 使用教程[M].電子工業(yè)出版社，2005，9.3. [J]. 航空制造技術(shù)，2002年8月。但限于各種條件的限制，該系統(tǒng)目前還不是很完善，需要進(jìn)一步工作的方向是: ，有的參數(shù)是借鑒于間接經(jīng)驗(yàn)初取的，隨著我國現(xiàn)代設(shè)計技術(shù)的發(fā)展和應(yīng)用，圓孔拉刀結(jié)構(gòu)尺寸參數(shù)設(shè)計的科學(xué)性、合理性需要進(jìn)一步提高。，并為后續(xù)CAD等功能的擴(kuò)展奠定基礎(chǔ)，為同類設(shè)計提供借鑒。 ，實(shí)現(xiàn)了系統(tǒng)界面設(shè)計，以及二維模型、二維工程圖的一體化設(shè)計表達(dá)能力。 ，分析選取了結(jié)構(gòu)參數(shù)，實(shí)現(xiàn)尺寸參數(shù)計算自動化。通過多次實(shí)例的使用證明，該系統(tǒng)基本上能滿足拉刀的工作部分設(shè)計及設(shè)計圖形的繪制。利用Visual Basic ，實(shí)現(xiàn)了拉刀設(shè)計過程中的設(shè)計計算、二維造型、二維工程圖生成等，同時完成了系統(tǒng)集成，初步建立了拉刀數(shù)字化設(shè)計平臺。既是加速國民經(jīng)濟(jì)發(fā)展和國防現(xiàn)代化的一項關(guān)鍵性高新技術(shù)，也是進(jìn)一步向現(xiàn)代集成制造系統(tǒng) CCIMS: Contemporary Integrated Manufacturing System)發(fā)展的重要技術(shù)基礎(chǔ)。根據(jù)拉刀的實(shí)際情況輸入內(nèi)容：1. 材料：W18Cr4V2. 熱處理：切削部HRC62663. 4. ，點(diǎn)擊確定，用戶選擇技術(shù)要求插入的點(diǎn)。 UserForm1窗體 點(diǎn)擊OK，界面進(jìn)入下一個選擇圖幅窗體， 選擇圖幅窗體 單擊確定后進(jìn)入UserForm2標(biāo)題攔窗體如下，根據(jù)實(shí)際情況填寫下面窗體。 進(jìn)入窗體后，選擇UserForm1，輸入對應(yīng)的參數(shù)，單位都是mm。 Public Sub lixiaobin4()Dim a As Double a = Val() If 3 a ThenMsgBox 符合拉刀加工要求，請繼續(xù)運(yùn)行 ElseMsgBox 未滿足拉刀加工要求，請重新填入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 符合拉刀加工要求，請繼續(xù)運(yùn)行ElseMsgBox 未滿足拉刀加工要求，請重新填入End IfEndSub 校驗(yàn)?zāi)K4. 應(yīng)用實(shí)例 在AutoCAD中，選擇“工具”|“宏”|“VBA管理器”菜單項，系統(tǒng)會彈出“VBA管理器”對話框，在“VBA管理器”對話框中，單擊“加載”按鈕，在系統(tǒng)彈出的“打開VBA工程”對話框中，選擇所要加載的VBA工程，單擊“打開” 管理器 在VBA集成開發(fā)環(huán)境中，選擇“工具”|“宏”菜單項，示的“宏”對話框。（12）計算和校驗(yàn)拉刀總長粗切齒與過渡齒的長度 粗切齒與校準(zhǔn)齒的長度總長為最后取。（11）拉刀其他部分。過渡齒與精切齒切除的余量為則粗切齒齒數(shù)為（第一個粗切齒齒升量為零）粗切齒與過渡齒，精切齒共切除余量為mm，需增加一個精切齒，調(diào)整個精切齒的齒升量。、。、拉床允許的拉力為由上述可知，拉削力，則，拉床載荷校驗(yàn)合格。綜合式拉刀粗切齒的切削厚度為齒升量的一倍，1mm長度刀刃上的切削力應(yīng)按確定。(9) 校驗(yàn)拉刀強(qiáng)度與拉床載荷。(8) 前柄部形狀和尺寸。前后齒分屑槽應(yīng)交錯排列。，當(dāng)最小直徑時，弧形分屑槽槽數(shù)。 滿足的校驗(yàn)條件。則而容屑槽深，所以，校驗(yàn)合格。精切齒與過渡齒取。粗切齒與過渡齒齒距為取精切齒與與校準(zhǔn)齒齒距（用角標(biāo)表示精切齒的參數(shù)）② 容屑槽形狀及尺寸采用曲線齒背。(6) 容屑槽。最小孔徑，拉削余量為齒升量。(5) 拉削余量：。，取粗切齒后角倒棱寬，精切齒后角校準(zhǔn)齒。步驟為：（1） 拉刀材料：。如果當(dāng)前處在創(chuàng)建模式，就創(chuàng)建標(biāo)題欄；如果處在修改模式，就根據(jù)當(dāng)前對話框中的參數(shù)值對標(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兩個自定義過程分別用于創(chuàng)建和修改標(biāo)題欄。（2）在窗體初始化時（Initialize事件），根據(jù)當(dāng)前工作模式來設(shè)置窗體的標(biāo)題欄，或者進(jìn)行他的初始化工作，其相關(guān)代碼為：Private Sub UserForm_Initialize()根據(jù)工作模式修改對話框的標(biāo)題If = True Then = 創(chuàng)建標(biāo)題欄Else = 修改標(biāo)題欄End If將圖形中的屬性值顯示在對應(yīng)的文本框中If = False ThenDim objblkref As AcadBlockReferenceSet objblkref = gettitlebar39。 依照工程圖的生成模塊，在工程中插入一窗體，在其中放置如圖4所示的控件，各個文本框的名稱分別修改為txtdwgname,txtdwgscale, txtdwgserial, txtdesigner ,txtdesigndate,txtaudit,txtauditdate和txtdesigncorp,兩個命令按鈕的名稱分別修改為cmdok和cmdcancel。在創(chuàng)建模式中，對話框的標(biāo)題是“創(chuàng)建標(biāo)題欄”，要完成創(chuàng)建“標(biāo)題欄”塊定義的創(chuàng)建和對應(yīng)的塊參照的插入；在修改模式中，對話框的標(biāo)題欄是“修改標(biāo)題欄”，要獲得當(dāng)前標(biāo)題欄中屬性值并顯示在對話框中，并能根據(jù)用戶修改的結(jié)果更新塊參照的屬性值。判斷當(dāng)前的操作是創(chuàng)建還是修改標(biāo)題欄的依據(jù)，就是圖形中是否已經(jīng)存在“標(biāo)題欄”塊參照，如果已經(jīng)存在，那么當(dāng)前就是在編輯模式。 標(biāo)題欄窗體 屬性的提取和編輯標(biāo)題欄塊參照的屬性，都必須首先獲得標(biāo)題欄塊參照，然后使用GetAttributes方法獲得塊參照的屬性集合，通過該集合中的元素獲得或編輯屬性值。通常需要人工逐項輸入標(biāo)題欄的各項內(nèi)容，很費(fèi)時間。)ptpick = (, 請指定插入點(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īng)完成，請檢查圖紙，謝謝End Sub標(biāo)題欄作為工程圖紙的一個重要組成部分，一般包括件號、設(shè)計和審核人員姓名、零件名稱及數(shù)量、圖紙等。當(dāng)選定點(diǎn)后，系統(tǒng)會自動將技術(shù)要求填到相應(yīng)的位置。并利用VBA控件的互連性將兩個窗體相連，在按下繪制圖形按鈕后自動彈出技術(shù)要求輸入窗體。以下是標(biāo)注的一些程序代碼：Dim dimobj3 As AcadDimAlignedDim location3(0 To 2) As DoubleDim point6(0 To 2) As DoubleDim point7(0 To 2) As Doublepoint6(0) = pp2(0)point6(1) = pp2(1)point6(2) = 0point7(0) = pp6(0)point7(1) = pp6(1)point7(2) = 0location3(0) = point5(0)location3(1) = point5(1) + 28location3(2) = 0Set dimobj3 = _ (point6, point7, loc