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