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