【正文】 ，均使用variant類型的變量在函數(shù)之間交換點(diǎn)的坐標(biāo)數(shù)據(jù)。 Addline基準(zhǔn)函數(shù)的創(chuàng)建為，在窗體模塊中，選擇【插入/過程】菜單項(xiàng)，【添加過程】對話框，選擇【類型】為【函數(shù)】，【范圍】為【公用的】，在【名稱】文本框中輸入Addline，單擊【確定】按鈕，就在窗體模塊的通用段中添加了Addline函數(shù)。對程序中所需的變量及數(shù)組進(jìn)行定義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 校準(zhǔn)部的校準(zhǔn)齒無齒深量，只作校準(zhǔn)和修光作用，不做出分屑槽。重磨時只需重磨第一個切屑齒到最后一個精切齒的這部分刀齒。當(dāng)切屑忍性金屬時，若沒有分屑槽，則圓孔拉刀每個刀齒切下的金屬層是一個圓筒，它會套在容屑槽中，使清楚切屑十分困難，對拉屑 過程十分不利。（1） 齒背為直線的槽形：槽底有一圓弧，這種槽形簡單，容易制造，用于拉削脆性材料及一般鋼料。 決定容屑槽時要注意容屑條件。容屑槽縱剖面有效面積F槽可按下式近似計算式中h——容屑槽深度（mm）?？刹橛嘘P(guān)質(zhì)料。因此，除圖形繪制功能以外，尺寸標(biāo)注功能也是CAD系統(tǒng)的重要組成部分。AutoCAD在當(dāng)前圖層中繪制標(biāo)注，每一標(biāo)注都關(guān)聯(lián)著標(biāo)注樣式，這個標(biāo)注樣式可以是默認(rèn)的或自定義的。之所以采用技術(shù)要求分開的設(shè)計方案是因?yàn)?，用戶可以將所需的技術(shù)要求添入，再指定點(diǎn)將技術(shù)要求注明在圖紙上，使設(shè)計者有更大的選擇，讓圖形更合理。 技術(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(。而本文開發(fā)出的標(biāo)題欄自動生成模塊則不同，最大的優(yōu)點(diǎn)體現(xiàn)在通過交互界面，使用戶確定輸入標(biāo)題欄的各個屬性值后，即可直接生成標(biāo)題欄。編輯模式和創(chuàng)建模式用一個布爾類型的全局變量createmode來標(biāo)識，每次執(zhí)行程序都要判斷一下工作模式，根據(jù)工作模式來確定不同的操作。 （1）向工程中添加一個標(biāo)準(zhǔn)模塊，在屬性窗口中將其名稱修改為mdlmain,在其中添加啟動宏autotitlebar的定義和全局變量createmode的聲明： Public createmode As BooleanPublic Sub autotitlebar() createmode = TrueDim objblkref As AcadBlockReference For Each objblkref In If StrComp(, 標(biāo)題欄) = 0 Then createmode = False用于判斷當(dāng)前的工作模式，如果工作模式中存在標(biāo)題欄模塊，就令createmode = False，否則createmode = True Exit For End If Next objblkref End Sub從上面的程序中可以看出，判斷工作模式的依據(jù)是，在當(dāng)前圖形中是否存在名稱為“標(biāo)題欄”的塊參照。（4）Createtitlebar過程用于根據(jù)用戶在文本框中輸入的參數(shù)值，向圖形中添加標(biāo)題欄，其實(shí)現(xiàn)代碼為：Private Sub createtitlebar()If blkisexist(標(biāo)題欄) ThenGoTo insertblockEnd If（4）在“確定”按鈕的單擊事件中，調(diào)用的自定義函數(shù)modifytitlebar，用于修改標(biāo)題欄，其實(shí)現(xiàn)代碼為：Private Sub modifytitlebar()獲得標(biāo)題欄的塊參照Dim objblkref As AcadBlockReferenceSet objblkref = gettitlebarCall editattributes(objblkref)修改標(biāo)題欄的屬性值End Sub（12）在“取消”按鈕的單擊事件中，添加一個End語句，用于結(jié)束程序的執(zhí)行：Private Sub cmdcancel_Click() EndEnd Sub 下面用一個實(shí)例來校核一把拉刀是否合格：已知被拉孔直徑，拉前經(jīng)擴(kuò)孔加工，拉削長度L=36mm，拉床型號L6110，拉削材料45鋼，HB170~217。(4) 校準(zhǔn)齒直徑（以角標(biāo)X表示校準(zhǔn)齒的參數(shù)）式中——收縮量，取=，則=+=。取粗切齒齒升量為。粗切齒與過渡齒取。④校驗(yàn)同時工作齒數(shù)。槽寬為，當(dāng)直徑為，三角形分屑槽數(shù)為槽寬，槽深。選用Ⅱ型A式無周向定位面的圓柱形前柄，取，最小斷面處直徑為。柄部最小斷面處為危險斷面，直徑為，面積為拉應(yīng)力為，則，校驗(yàn)合格。后四齒齒升量小于粗切齒齒升量的1/2，為精切齒，而前三齒稱過渡齒。取前導(dǎo)部的直徑與長度，后導(dǎo)部的直徑與長度為，前柄端面至第一齒的距離，、取，則頸部直徑過渡錐長度取為拉刀直徑較小，不設(shè)后柄部。從宏列表中選擇本系統(tǒng)創(chuàng)建的alternation宏，單擊“遠(yuǎn)行”按鈕，執(zhí)行該宏。 標(biāo)題攔 單擊確定后系統(tǒng)進(jìn)入下一個界面UserForm6窗體。 本文研究的是圓體成形車刀工作部分設(shè)計模塊。 本文研究的主要結(jié)論 ，規(guī)劃了拉刀二維參數(shù)化設(shè)計系統(tǒng)的總體結(jié)構(gòu)，并選擇了先進(jìn)合理開發(fā)技術(shù)。 4，通過實(shí)例校核綜合輪切式圓孔拉刀，從而為改進(jìn)拉刀的設(shè)計提供了依據(jù)。 ，完善界面設(shè)計，提高自動化程度，使其成為集成的CAD/CAM/CAPP/CAE系統(tǒng)，更具有應(yīng)用價值。同時衷心的感謝我的母校南昌航空大學(xué)為我提供了這次畢業(yè)設(shè)計學(xué)習(xí)的機(jī)會。盡我所知，除文中已經(jīng)特別注明引用的內(nèi)容和致謝的地方外，本論文不包含任何其他個人或集體已經(jīng)發(fā)表或撰寫過的研究成果。論文密級：□公開 □保密（___年__月至__年__月）(保密的學(xué)位論文在解密后應(yīng)遵守此協(xié)議)作者簽名：_______ 導(dǎo)師簽名：______________年_____月_____日 _______年_____月_____日獨(dú) 創(chuàng) 聲 明本人鄭重聲明：所呈交的畢業(yè)設(shè)計(論文)，是本人在指導(dǎo)老師的指導(dǎo)下，獨(dú)立進(jìn)行研究工作所取得的成果，成果不存在知識產(chǎn)權(quán)爭議。 （保密論文在解密后遵守此規(guī)定）本次畢業(yè)設(shè)計是對我大學(xué)四年學(xué)習(xí)下來最好的檢驗(yàn)。首先，我要特別感謝我的知道郭謙功老師對我的悉心指導(dǎo)，在我的論文書寫及設(shè)計過程中給了我大量的幫助和指導(dǎo)，為我理清了設(shè)計思路和操作方法，并對我所做的課題提出了有效的改進(jìn)方案。其次，我要感謝大學(xué)四年中所有的任課老師和輔導(dǎo)員在學(xué)習(xí)期間對我的嚴(yán)格要求，感謝他們對我學(xué)習(xí)上和生活上的幫助，使我了解了許多專業(yè)知識和為人的道理，能夠在今后的生活道路上有繼續(xù)奮斗的力量。從這里走出，對我的人生來說，將是踏上一個新的征程，要把所學(xué)的知識應(yīng)用到實(shí)際工作中去。四年的風(fēng)風(fēng)雨雨，我們一同走過，充滿著關(guān)愛，給我留下了值得珍藏的最美好的記憶。老師們認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我