【正文】 Dim dimd As AcadDimAlignedDim dimdpoint1(2) As DoubleDim dimdpoint2(2) As DoubleDim dimlocation1(2) As Doubledimdpoint1(0) = zstp(0): dimdpoint1(1) = zstp(1) + da / 2: dimdpoint1(2) = 0dimdpoint2(0) = zstp(0): dimdpoint2(1) = zstp(1) da / 2: dimdpoint2(2) = 0dimlocation1(0) = zstp(0) 40: dimlocation1(1) = zstp(1): dimlocation1(2) = 0Set dimd = (dimdpoint1, dimdpoint2, dimlocation1) = 5 = 5If = True Then d1 = d2 dimdpoint1(0) = zstp(0): dimdpoint1(1) = zstp(1) + d1 / 2: dimdpoint1(2) = 0dimdpoint2(0) = zstp(0): dimdpoint2(1) = zstp(1) d1 / 2: dimdpoint2(2) = 0dimlocation1(0) = zstp(0) 20: dimlocation1(1) = zstp(1): dimlocation1(2) = 0Set dimd = (dimdpoint1, dimdpoint2, dimlocation1) = 5 = 5dimdpoint1(0) = zstp(0): dimdpoint1(1) = zstp(1) da / 2: dimdpoint1(2) = 0dimdpoint2(0) = zstp(0) + bb: dimdpoint2(1) = zstp(1) da / 2: dimdpoint2(2) = 0dimlocation1(0) = zstp(0) + bb / 2: dimlocation1(1) = zstp(1) da / 2 10: dimlocation1(2) = 0Set dimd = (dimdpoint1, dimdpoint2, dimlocation1) = 5 = 5dimdpoint1(0) = lgujcp(2): dimdpoint1(1) = lgujcp(3) + 2: dimdpoint1(2) = 0dimdpoint2(0) = lgujcp(4): dimdpoint2(1) = lgujcp(5) + 2: dimdpoint2(2) = 0dimlocation1(0) = lgujcp(4) + 10: dimlocation1(1) = lgujcp(3) + dd / 2 10: dimlocation1(2) = 0Set dimd = (dimdpoint1, dimdpoint2, dimlocation1) = 5 = 5dimdpoint1(0) = lgujcp(4) + 2 jcb / 2: dimdpoint1(1) = lgujcp(5): dimdpoint1(2) = 0dimdpoint2(0) = lgujcp(6) + 2 jcb / 2: dimdpoint2(1) = lgujcp(7) dd / 2 Sqr(dd ^ 2 / 4 jcb ^ 2 / 4): dimdpoint2(2) = 0dimlocation1(0) = lgujcp(4) + da / 2 + 10: dimlocation1(1) = lgujcp(4) + 10: dimlocation1(2) = 0Set dimd = (dimdpoint1, dimdpoint2, dimlocation1) = 5 = 5Dim circp(2) As Double, cirfp(2) As DoubleDim dimdiam As AcadDimDiametriccircp(0) = cenp(0) df / 2 * Cos(pi / 4): circp(1) = cenp(1) + df / 2 * Sin(pi / 4): circp(2) = 0cirfp(0) = cenp(0) + df / 2 * Cos(pi / 4): cirfp(1) = cenp(1) df / 2 * Sin(pi / 4): cirfp(2) = 0Set dimdiam = (circp, cirfp, 30) = 5 = 5 = Truecircp(0) = cenp(0) + dd / 2 * Cos(pi / 4): circp(1) = cenp(1) + dd / 2 * Sin(pi / 4): circp(2) = 0cirfp(0) = cenp(0) dd / 2 * Cos(pi / 4): cirfp(1) = cenp(1) dd / 2 * Sin(pi / 4): cirfp(2) = 0Set dimdiam = (circp, cirfp, da / 2) = 5 = 5 = TrueZoomAllEnd Sub齒輪gear2：…………………………………………Dim ins(2) As Double Dim cline1, cline2, cline3, cline4 As AcadLineDim circleda, circled2, circled0, circled0d, circled3, circled3d, circleko, circledz, dircledf As AcadCircleDim layercen As AcadLayer, layergear As AcadLayer, layerpou As AcadLayer, layerdim As AcadLayerDim nameg As StringDim utilobj As VariantOn Error Resume Nextins(0) 。參考文獻(xiàn)[1] ：國(guó)防工業(yè)出版社，2004.[2]張帆，鄭立楷， ：清華大學(xué)出版社，2004.[3]濮良貴，[M].：高等教育出版社，2006.[4]孫恒,陳作模,[M].：高等教育出版社，2006.[5]王玉錕 任衛(wèi)紅 茅艷 [M].北京:清華大學(xué)出版社，[6]張帆 鄭立楷 VBA 開(kāi)發(fā)精彩實(shí)例教程[M].北京：清華大學(xué)出版社，[7]中國(guó)機(jī)械CAD論壇 Basic與AutoCAD二次開(kāi)發(fā)[M].北京：清華大學(xué)出版社，[9] Basic程序設(shè)計(jì)與應(yīng)用案例[M]. 北京：高等教育出版社，.[10][D].鄂州：鄂州大學(xué)建筑工程學(xué)院，2007.致謝在此次畢業(yè)設(shè)計(jì)的過(guò)程中，本人得到了葉老師的精心指導(dǎo)，正是因?yàn)槔蠋熃o提供了大量的資料和相關(guān)的知識(shí)，我才能完成此次設(shè)計(jì)。運(yùn)用本系統(tǒng)進(jìn)行設(shè)計(jì)，用戶只需輸入原始數(shù)據(jù)，便可完成設(shè)計(jì)，避免了因?yàn)橛?jì)算錯(cuò)誤造成的設(shè)計(jì)失誤和成本損失，大大提高了設(shè)計(jì)者的工作效率，縮短了設(shè)計(jì)周期。本設(shè)計(jì)中KFβ的值由擬合的方程計(jì)算所得，雖然結(jié)果與實(shí)際相比誤差較小，當(dāng)還是造成法面模數(shù)值變小。19＇12＂中心距134mm134法面模數(shù)mt22在進(jìn)行齒面彎曲疲勞強(qiáng)度計(jì)算時(shí)，經(jīng)分析影響分度圓直徑的各個(gè)參數(shù)，最后發(fā)現(xiàn)造成的誤差的主要原因是齒向載荷分配系數(shù)KHβ相對(duì)較小，從而導(dǎo)致載荷系數(shù)K變小，根據(jù)分度圓校正公式可知，分度圓直徑就會(huì)變小。見(jiàn)表41和表42。實(shí)例：設(shè)計(jì)帶式輸送機(jī)減速器的高速級(jí)齒輪傳動(dòng)。圖410 參數(shù)化繪圖窗體先畫(huà)在A3圖紙畫(huà)小齒輪如圖411。窗體中間添加了一個(gè)Frame控件，里面加了四個(gè)Textbox控件用于填寫(xiě)技術(shù)要求，用戶也可以使用默認(rèn)的技術(shù)要求，只需要單擊這個(gè)Frame控件里面Commandbutton1控件（即“參考技術(shù)要求”）即可。到這一步結(jié)束，齒輪設(shè)計(jì)部分已經(jīng)完全結(jié)束了，見(jiàn)圖49。在窗體的下方添加了兩個(gè)ComboBox控件，里面的內(nèi)容都是“左旋”和“右旋”。有公共參數(shù)，包括中心距a，傳動(dòng)比i，法面模數(shù)mn，端面模數(shù)mt，法面壓力角αn，螺旋角β，其中法面壓力角αn默認(rèn)為20176。計(jì)算出來(lái)的中心距通常都不是整數(shù)，需要進(jìn)行圓整，當(dāng)用戶單擊“中心距修正”的控件時(shí)，系統(tǒng)自動(dòng)進(jìn)行圓整并將結(jié)果顯示出來(lái)。并且這里的分度圓直徑是由齒面接觸疲勞強(qiáng)度計(jì)算所得到的，法面模數(shù)是由齒根彎曲疲勞強(qiáng)度計(jì)算所得到的。為了方便程序的試運(yùn)行，將窗體中所有的Textbox的Text屬性都設(shè)置了默認(rèn)數(shù)值，齒輪精度等級(jí)默認(rèn)為7，并且默認(rèn)為不進(jìn)行齒面硬化處理。本設(shè)計(jì)只考慮了精度6級(jí)以后的設(shè)計(jì)，所以ComboBox里添加了的內(nèi)容的只有6，7，8，9，10，11，12級(jí)。當(dāng)選擇了材料和熱處理的方式時(shí)，便會(huì)將對(duì)應(yīng)的最大硬度值賦給scrollbar的max，最小值賦給scrollbar的min。見(jiàn)圖46。如果用戶輸入的數(shù)值不在提示的范圍內(nèi)，則會(huì)出現(xiàn)錯(cuò)誤提示。當(dāng)optionbutton1選中時(shí)（也就是原動(dòng)機(jī)選擇電動(dòng)機(jī)時(shí)），如果選擇OptionButton5（即是載荷狀態(tài)選擇均與平穩(wěn)）， = 1，也就是KA=1，從而實(shí)現(xiàn)了使用系數(shù)的確定。 工況和齒輪布置界面使用系數(shù)KA是由載荷狀態(tài)和原動(dòng)機(jī)共同決定的，參考材料[3]表102上共有四種載荷狀態(tài)和四種原動(dòng)機(jī)，則一共有16種狀態(tài)，對(duì)應(yīng)著16個(gè)使用系數(shù)值，只有當(dāng)載荷狀態(tài)和原動(dòng)機(jī)都確定了，使用系數(shù)才會(huì)確定。圖44初始參數(shù)輸入窗體這個(gè)窗體用于一系列的設(shè)計(jì)初始參數(shù)的輸入，有輸入功率，主動(dòng)輪轉(zhuǎn)數(shù)，傳動(dòng)比，工作年數(shù)，年工作天數(shù)和每天工作小時(shí)數(shù)。 歡迎使用斜齒輪參數(shù)化設(shè)計(jì)系統(tǒng)界面圖43 歡迎使用斜齒輪參數(shù)化設(shè)計(jì)系統(tǒng)窗體第一個(gè)窗體是登陸界面，與設(shè)計(jì)程序沒(méi)有直接關(guān)系。（5）添加命名按鈕（Commandbutton）控件。用于顯示一個(gè)可打開(kāi)或關(guān)閉的選項(xiàng)，并且同一組只可選中一個(gè)選項(xiàng)。（2）添加文本框（TextBox）控件。工具箱在工具欄里，其中含有許多可視化的控制對(duì)象（控件），用戶可以在工具箱中選取所需的控件，并將其添加到窗體中，以繪制所需的圖形界面。VBA IDE界面見(jiàn)圖42。d11是分度圓直徑，是通過(guò)齒面接觸疲勞強(qiáng)度極限計(jì)算所得，mn是法面模數(shù)，是通過(guò)齒根彎曲疲勞強(qiáng)度計(jì)算所得。圖41 基于AutoCAD/VBA斜齒輪參數(shù)化設(shè)計(jì)的主程序框圖該框圖中變量名為：P為齒輪傳動(dòng)功率，i為傳動(dòng)比，n1為小輪轉(zhuǎn)速，t代表齒輪工作工作時(shí)間。第七個(gè)窗體將得到一系列的設(shè)計(jì)結(jié)果顯示出來(lái)，并且選擇齒輪旋向。第三個(gè)窗體是選擇載荷狀態(tài)和原動(dòng)機(jī)以確定使用系數(shù)KA，選擇齒輪布置方式以確定齒寬系數(shù)Φd。nn = (Φd Z1 / )2/(1 +Φd Z1/ + (Φd Z1/)2)且KFβ= KHβnn。 按齒面接觸疲勞強(qiáng)度計(jì)算時(shí)齒向載荷分布系數(shù)KHβ由參考資料[3]圖1013可知，圓柱齒輪的KHβ的大小與齒輪在軸上的布置情況、齒輪的精度等級(jí)、齒輪寬度b等因素有關(guān)，這個(gè)表格很大很麻煩，作者通過(guò)分析數(shù)據(jù)實(shí)現(xiàn)了通過(guò)方程來(lái)表達(dá)KHβ與其它因素之間的定量關(guān)系，方程擬合的精度比較高，誤差很小，滿足一般的設(shè)計(jì)要求。Ft/b≥100N/mm100N/mm精度等級(jí)二組56785級(jí)或更低表面硬化處理KHα≥KFα未經(jīng)表面硬化處理KHα≥KFα雖然表32只介紹了8級(jí)及以下精度等級(jí)的齒輪的齒間載荷分配系數(shù)，但根據(jù)作者查的資料顯示，當(dāng)齒輪精度等級(jí)為9級(jí)或者9級(jí)以上時(shí)。在圖35上曲線上取三個(gè)點(diǎn)分別為（，）、（，）、（25，），將這些坐標(biāo)帶入方程中，可解出a= ,b= ,c= ,得到了區(qū)域系數(shù)ZH與螺旋角β的方程：經(jīng)作者多次取點(diǎn)校正，該曲線擬合所得方程的精度很高，已滿足一般齒輪設(shè)計(jì)精度要求。部分程序如下：………………………………If εβ 1 Thenεβ = 1ElseEnd IfIf β= 30 ThenYβ = 1 εβ * β/ 120ElseYβ = 1 * εβEnd If ………………………………由圖可知，當(dāng)齒輪的法面壓力角αn=20176。得到了當(dāng)β30176。部分程序如下： ………………………………If = HT250 Or = HT300 Or = HT350 Then If N1 0 And N1 = 100000 Then KHN1 = If N1 100000 And N1 = 2000000 Then KHN1 = * (Log(N1) / Log(10)) + If N1 2000000 Then KHN1 = * (Log(N1) / Log(10)) + End If ………………………………螺旋角影響系數(shù)Yβ值的大小僅和螺旋角β（此文中β均為角度制）以及縱向重合度εβ的大小有關(guān)，如圖34。例如，“HT250”、HT300”、“HT350”對(duì)應(yīng)的折線就是圖中的3號(hào)線。同理，其他的材料的接觸疲勞強(qiáng)度極限和彎曲疲勞強(qiáng)度極限值也是類似的方法。圖32 調(diào)制處理的碳鋼、合金鋼的接觸疲勞強(qiáng)度極限就以40Cr(調(diào)制)為例，闡述這種方法，由參考資料[3]表101，40Cr(調(diào)制)的硬度值