【正文】 刃上的切削力應(yīng)按確定。、。（11）拉刀其他部分。 Public Sub lixiaobin4()Dim a As Double a = Val() If 3 a ThenMsgBox 符合拉刀加工要求，請繼續(xù)運行 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ù)運行ElseMsgBox 未滿足拉刀加工要求，請重新填入End IfEndSub 校驗?zāi)K4. 應(yīng)用實例 在AutoCAD中，選擇“工具”|“宏”|“VBA管理器”菜單項，系統(tǒng)會彈出“VBA管理器”對話框，在“VBA管理器”對話框中，單擊“加載”按鈕，在系統(tǒng)彈出的“打開VBA工程”對話框中，選擇所要加載的VBA工程，單擊“打開” 管理器 在VBA集成開發(fā)環(huán)境中，選擇“工具”|“宏”菜單項，示的“宏”對話框。 UserForm1窗體 點擊OK，界面進(jìn)入下一個選擇圖幅窗體， 選擇圖幅窗體 單擊確定后進(jìn)入UserForm2標(biāo)題攔窗體如下，根據(jù)實際情況填寫下面窗體。既是加速國民經(jīng)濟(jì)發(fā)展和國防現(xiàn)代化的一項關(guān)鍵性高新技術(shù)，也是進(jìn)一步向現(xiàn)代集成制造系統(tǒng) CCIMS: Contemporary Integrated Manufacturing System)發(fā)展的重要技術(shù)基礎(chǔ)。通過多次實例的使用證明，該系統(tǒng)基本上能滿足拉刀的工作部分設(shè)計及設(shè)計圖形的繪制。 ，實現(xiàn)了系統(tǒng)界面設(shè)計，以及二維模型、二維工程圖的一體化設(shè)計表達(dá)能力。但限于各種條件的限制，該系統(tǒng)目前還不是很完善，需要進(jìn)一步工作的方向是: ，有的參數(shù)是借鑒于間接經(jīng)驗初取的，隨著我國現(xiàn)代設(shè)計技術(shù)的發(fā)展和應(yīng)用，圓孔拉刀結(jié)構(gòu)尺寸參數(shù)設(shè)計的科學(xué)性、合理性需要進(jìn)一步提高。幾個月以來，正是在王老師的鼓勵和督促下，使我在個人修養(yǎng)、工作素質(zhì)、業(yè)務(wù)能力等各個方面都得到了很大的進(jìn)步和提高，在此向?qū)熗跤羞h(yuǎn)表示最誠摯的謝意。學(xué)位論文原創(chuàng)性聲明 本人鄭重聲明：所呈交的學(xué)位論文，是本人在導(dǎo)師的指導(dǎo)下進(jìn)行的研究工作所取得的成果。學(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)益。本聲明的法律后果由本人承擔(dān)。本人愿意按照學(xué)校要求提交學(xué)位論文的印刷本和電子版，同意學(xué)校保存學(xué)位論文的印刷本和電子版，或采用影印、數(shù)字化或其它復(fù)制手段保存設(shè)計（論文）；同意學(xué)校在不以營利為目的的前提下，建立目錄檢索與閱覽服務(wù)系統(tǒng)，公布設(shè)計（論文）的部分或全部內(nèi)容，允許他人依法合理使用。本次畢業(yè)設(shè)計大概持續(xù)了半年，現(xiàn)在終于到結(jié)尾了。沒有他們的幫助，我將無法順利完成這次設(shè)計。再次對周巍老師表示衷心的感謝。四年的大學(xué)生活就快走入尾聲，我們的校園生活就要劃上句號，心中是無盡的難舍與眷戀。學(xué)友情深，情同兄妹。是他們在我畢業(yè)的最后關(guān)頭給了我們巨大的幫助與鼓勵，給了我很多解決問題的思路，在此表示衷心的感激。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。在我的十幾年求學(xué)歷程里，離不開父母的鼓勵和支持，是他們辛勤的勞作，無私的付出，為我創(chuàng)造良好的學(xué)習(xí)條件，我才能順利完成完成學(xué)業(yè)，感激他們一直以來對我的撫養(yǎng)與培育?；厥姿哪?，取得了些許成績，生活中有快樂也有艱辛。另外，我還要感謝大學(xué)四年和我一起走過的同學(xué)朋友對我的關(guān)心與支持，與他們一起學(xué)習(xí)、生活，讓我在大學(xué)期間生活的很充實，給我留下了很多難忘的回憶。郭謙功老師淵博的知識、嚴(yán)謹(jǐn)?shù)淖黠L(fēng)和誨人不倦的態(tài)度給我留下了深刻的印象。經(jīng)過這次畢業(yè)設(shè)計，我的能力有了很大的提高，比如操作能力、分析問題的能力、合作精神、嚴(yán)謹(jǐn)?shù)墓ぷ髯黠L(fēng)等方方面面都有很大的進(jìn)步。作者簽名: 二〇一〇年九月二十日致 謝時間飛逝，大學(xué)的學(xué)習(xí)生活很快就要過去，在這四年的學(xué)習(xí)生活中，收獲了很多，而這些成績的取得是和一直關(guān)心幫助我的人分不開的。作者簽名: 二〇一〇年九月二十日盡我所知，除文中已經(jīng)注明引用的內(nèi)容外，本設(shè)計（論文）不含任何其他個人或集體已經(jīng)發(fā)表或撰寫過的作品成果。對本文的研究做出重要貢獻(xiàn)的個人和集體，均已在文中以明確方式注明并表示感謝。感謝我的家人在生活上的關(guān)懷和照顧。參考文獻(xiàn)1. 2000 應(yīng)用與開發(fā)技巧[M].科學(xué)出版社，1999年.2. 2006 使用教程[M].電子工業(yè)出版社，2005，9.3. [J]. 航空制造技術(shù)，2002年8月。，并為后續(xù)CAD等功能的擴(kuò)展奠定基礎(chǔ)，為同類設(shè)計提供借鑒。 ，分析選取了結(jié)構(gòu)參數(shù)，實現(xiàn)尺寸參數(shù)計算自動化。利用Visual Basic ，實現(xiàn)了拉刀設(shè)計過程中的設(shè)計計算、二維造型、二維工程圖生成等，同時完成了系統(tǒng)集成，初步建立了拉刀數(shù)字化設(shè)計平臺。根據(jù)拉刀的實際情況輸入內(nèi)容：1. 材料：W18Cr4V2. 熱處理：切削部HRC62663. 4. ，點擊確定，用戶選擇技術(shù)要求插入的點。 進(jìn)入窗體后，選擇UserForm1，輸入對應(yīng)的參數(shù)，單位都是mm。（12）計算和校驗拉刀總長粗切齒與過渡齒的長度 粗切齒與校準(zhǔn)齒的長度總長為最后取。過渡齒與精切齒切除的余量為則粗切齒齒數(shù)為（第一個粗切齒齒升量為零）粗切齒與過渡齒，精切齒共切除余量為mm，需增加一個精切齒，調(diào)整個精切齒的齒升量。、拉床允許的拉力為由上述可知，拉削力，則，拉床載荷校驗合格。(9) 校驗拉刀強(qiáng)度與拉床載荷。前后齒分屑槽應(yīng)交錯排列。 滿足的校驗條件。精切齒與過渡齒取。(6) 容屑槽。(5) 拉削余量：。步驟為：（1） 拉刀材料：。（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。在創(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é)果更新塊參照的屬性值。 標(biāo)題欄窗體 屬性的提取和編輯標(biāo)題欄塊參照的屬性，都必須首先獲得標(biāo)題欄塊參照，然后使用GetAttributes方法獲得塊參照的屬性集合，通過該集合中的元素獲得或編輯屬性值。)ptpick = (, 請指定插入點)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ù)量、圖紙等。并利用VBA控件的互連性將兩個窗體相連，在按下繪制圖形按鈕后自動彈出技術(shù)要求輸入窗體。該樣式控制著標(biāo)注的特征，如顏色、文字樣式和線形比例等，它不支持厚度信息。工程零件圖的尺寸自動標(biāo)注仍然是一個值得研究的重要課題。 根據(jù)已確定的齒距P和槽深h，即可按有關(guān)資料查出容屑槽的各尺寸。切屑層的縱剖面積F切屑層為 式中ac——切屑厚度（mm），對于普通拉屑式拉刀， ；對于綜合拉屑式拉刀，； = 拉屑長度。由于切屑卷曲不緊密，故應(yīng)使容屑槽的有效容積V槽大于切屑體積V屑，即容屑系數(shù)K應(yīng)為。（2） 齒背為曲線的槽形： 由前刀面與兩個圓弧組成這種槽形有利于卷屑，適用于拉屑韌性材料。故切屑寬度較大的拉刀，在切屑齒的切屑刃上都要做出交錯分布的分屑槽，將切屑分成許多小段。最后一個精切齒重磨后因其直徑減小了，于是第一個校準(zhǔn)齒就變?yōu)樾碌淖詈笠粋€精切齒，以后再重磨后，如此類推。為了便于制造，校準(zhǔn)齒的前角、齒距與齒形均可做成與精切齒相同。 添加過程對話框在該輔助設(shè)計系統(tǒng)中，基準(zhǔn)函數(shù)就是與系統(tǒng)提供的方法參數(shù)一致的函數(shù)，其他的函數(shù)均調(diào)用基準(zhǔn)函數(shù)創(chuàng)建對象，創(chuàng)建Addline基準(zhǔn)函數(shù)代碼為： Public Function addline(ByVal ptst As Variant, ByVal pten As Variant) As AcadLine 39。Getpointar函數(shù)根據(jù)一點以及未知點相對于已知點的極坐標(biāo)，計算未知點的直角坐標(biāo)，其實現(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為已知的基點，length,angle為未知點相對于已知點的極坐標(biāo)，length * Cos(angle)即為未知點相對于已知點在X方向移動的距離，length * Sin(angle)為未知點相對于已知點在Y方向移動的距離。 創(chuàng)建點的基本函數(shù)。（1）以下為參數(shù)計算的一些程序代碼。其中各頁面大量使用拉TEXT和LABEL控件,通過LABERL控件來對數(shù)據(jù)說明，利用TEXT控件來進(jìn)行數(shù)據(jù)的輸入、輸出，直觀、簡便。 參數(shù)畫圖 以下是是設(shè)計拉刀過程的圖框。 （2）校準(zhǔn)部 有幾個校準(zhǔn)齒其直徑都相同，基本上等于拉屑后的孔徑，它們起校準(zhǔn)與修光作用，并作為精切齒的后備齒。數(shù)據(jù)輸出框是將計算機(jī)計算的相關(guān)數(shù)據(jù)輸入到對應(yīng)的欄目。