【正文】 本設(shè)計最大的不足之處就是在Auto CAD界面自動繪圖時，齒輪零件圖的公差標(biāo)注不全而且不標(biāo)準。導(dǎo)致法面模數(shù)較小的原因是齒向載荷分配系數(shù)KFβ相對較小，從而導(dǎo)致從而導(dǎo)致載荷系數(shù)K變小，最終結(jié)果就是彎曲疲勞強度計算得到的法面模數(shù)變小。而且主要誤差是設(shè)計過程中的各種參數(shù)的誤差，最終結(jié)果之間誤差很小，可以忽略。窗體的右下方用于確定輪轂尺寸，對于齒輪來說，輪轂直徑一旦確定，輪轂高度和鍵槽寬度也就隨之確定了，所以用戶只要需要輸入輪轂直徑，見圖410。如果用戶沒有選擇齒輪旋向就直接單擊“下一步”，程序無法進行到下一個窗體，并且能夠自動報警，提醒用戶必須選擇齒輪旋向。 計算參數(shù)界面在上一個窗體中已經(jīng)將大小齒輪的各個尺寸參數(shù)計算完，并且已經(jīng)通過賦值語句將各個數(shù)值賦到這個窗體的各個Textbox中了，所以一進入本窗體，大小齒輪的各個參數(shù)就能立即顯示出。在窗體的上半部分將設(shè)計所得到的分度圓直徑d11和法面模數(shù)mn12顯示出來。 設(shè)計初始參數(shù)選擇界面這個窗體用于輸入一些設(shè)計原始參數(shù)，包括精度等級選擇，是否硬化處理，初選螺旋角，初選載荷系數(shù)，輸入接觸疲勞安全系數(shù)和彎曲疲勞安全系數(shù)。由于齒輪的接觸疲勞強度極限σHlim和齒輪的彎曲疲勞強度極限σFE只和硬度值大小有關(guān)系，且基本上一階線性相關(guān)，所以一旦選擇了具體的硬度值大小，齒輪的接觸疲勞強度極限σHlim和齒輪的彎曲疲勞強度極限σFE也就隨之確定了。當(dāng)在“原動機”和“載荷狀態(tài)”中各選中一個狀態(tài)時，便會在下面textbox中顯示出對應(yīng)的使用系數(shù)值。 初始參數(shù)輸入界面齒輪設(shè)計需要一些定量作為原始參數(shù)，包括傳動功率，轉(zhuǎn)數(shù)，傳動比和工作時間等，見圖44。初始條件的輸入和選擇過程中，有些變量只要在固定的幾個內(nèi)容中選擇即可，此時使用ComboBox控件可輕松實現(xiàn)這個功能。設(shè)置屬性窗口的Caption屬性，輸入對應(yīng)的文字，如“輸入功率”、“傳動比”等。用戶也可以在VBA IDE中調(diào)試和運行工程?？梢妶D41。第二個窗體是供初始參數(shù)輸入的窗體。部分程序如下：………………………………If ka * ftt / b 100 ThenIf = 1 ThenIf jingdu = 6 Thenkhα = kfα = ElseIf jingdu = 7 Thenkhα = kfα = ElseIf jingdu = 8 Thenkhα = kfα = ElseIf jingdu = 9 Thenkhα = kfα = End IfElseIf jingdu = 6 Thenkhα = 1kfα = 1ElseIf jingdu = 7 Thenkhα = kfα = ElseIf jingdu = 8 Thenkhα = kfα = ElseIf jingdu = 9 Thenkhα = kfα = End IfEnd IfElsekhα = kfα = End If………………………………、KFβ的程序?qū)崿F(xiàn)方法齒輪的齒向載荷分布系數(shù)Kβ可分為KHβ和KFβ，其中KHβ為按齒面接觸疲勞強度計算時用的系數(shù)，而KFβ為按齒根彎曲疲勞強度計算時的所用的系數(shù)。)首先可設(shè)出拋物線的方程為，方程中有三個未知參數(shù)，需要三個點的坐標(biāo)來求出這些個參數(shù)。可設(shè)，可帶入（，）和（，）此可以解得參數(shù)值a=，b=1。由圖33可知，當(dāng)應(yīng)力循環(huán)次數(shù)N的值的對數(shù)均與分布時，曲線為若干段直線構(gòu)成的折線，此時可用方程表示，曲線方程的格式為。此時只要確定齒輪的硬度值，接觸疲勞強度極限σHlim和齒輪的彎曲疲勞強度極限σFE只和硬度值也就確定了，并且顯示在窗體下面的文本框中。檢驗是否輸入數(shù)據(jù)ka = Val()φd = Val()msg1$ = 齒寬系數(shù)不在規(guī)定范圍之內(nèi)，請重新輸入！Title1$ = 輸入錯誤If TextBox10 = ThenMsgBox 請輸入齒寬系數(shù)！, vbOKOnly, 錯誤對話框ElseIf = True And (φd Or φd ) ThenMsgBox msg1$, 32, Title1$ElseIf = True And (φd Or φd ) ThenMsgBox msg1$, 32, Title1$ElseIf = True And (φd Or φd ) ThenMsgBox msg1$, 32, Title1$ElseEnd IfEnd Sub ……………………………………… 動載系數(shù)Kv值的實現(xiàn)方法動載系數(shù)Kv是由齒輪精度等級和速度共同決定的，如圖31。（2）按圓整后的中心距修正螺旋角，若螺旋角變化不多，則不需要對參數(shù)εα、Kβ、ZH等進行修正。⑤按參考材料[3]表105查取應(yīng)力校正系數(shù)YSa。⑤計算載荷系數(shù)K：按參考材料[3]表102確定使用系數(shù)KA。⑦按參考材料[3]圖1019取疲勞壽命系數(shù)。（4）初選小齒輪齒數(shù)，然后根據(jù)傳動比計算大齒輪齒數(shù)。（3） 斜齒輪的制造成本與直齒輪相同。從數(shù)據(jù)集成與共享的角度來說，VBA是一個AutoCAD應(yīng)用程序的集成開發(fā)環(huán)境。（7）能夠使用Win32 API提供的功能，建立應(yīng)用程序與操作系統(tǒng)之間的通信。 VBA的功能雖然主程序能開發(fā)的功能有多強大，與它所提供的對象體系有直接的關(guān)系，但VBA的強大的開發(fā)能力卻是不容質(zhì)疑。 AutoCAD ActiveX自動化技術(shù)簡介ActiveX自動化技術(shù)（ActiveX Automation）是微軟建立的標(biāo)準，基于COM的自動服務(wù)程序，是對象鏈接與嵌入（OLE:Object and Embed）的進一步發(fā)展，它允許的用戶在Windows應(yīng)用程序中通過暴露的對象控制另一個Windows應(yīng)用程序。計算機輔助設(shè)計指利用計算機及其圖形設(shè)備幫助設(shè)計人員進行設(shè)計工作，簡稱CAD。本文只介紹斜齒輪的計算機輔助設(shè)計系統(tǒng)的開發(fā)設(shè)計過程和繪圖過程。齒輪傳動形式很多，應(yīng)用廣泛，傳遞的功率可達數(shù)十千瓦，圓周速度可達200m/s。因而用計算機輔助設(shè)計（CAD）技術(shù)設(shè)計斜齒輪，不但非常實用，而且是非常必要的。80年代中期以來，CAD技術(shù)向標(biāo)準化、集成化、智能化方向發(fā)展。VBA是通過AutoCAD ActiveX Automation接口來建立和AutoCAD對象間的聯(lián)系。簡單地說，使用Automation可以將許多應(yīng)用程序的功能合并到單個應(yīng)用程序中。（5）具備完善的數(shù)據(jù)訪問和管理能力，通過DAO（數(shù)據(jù)訪問對象），可以對Access數(shù)據(jù)庫或其他外部數(shù)據(jù)庫（像dBase,FoxPro等）實現(xiàn)訪問與管理。作為AutoCAD的開發(fā)工具，VBA具有以下4個主要的優(yōu)勢：（1）可視化的編程環(huán)境。本設(shè)計只討論漸開線斜齒輪外嚙合的相關(guān)問題。對于外嚙合的斜齒輪傳動，正確的嚙合條件：αn1=αn2；mn1=mn2；β1=β2。④按參考材料[3]表106查材料的彈性影響系數(shù)ZE。②計算圓周速度。②根據(jù)縱向重合度，按參考材料[3]圖1028查的螺旋角影響系數(shù)。同時為了滿足齒面接觸疲勞強度，需按接觸疲勞強度算得的分度圓直徑d1來計算應(yīng)有的齒數(shù)。部分程序如下：…………………………Private Sub OptionButton9_Click () = — = End Sub …………………………如果用戶輸入的數(shù)值不在提示的范圍內(nèi)，則會出現(xiàn)錯誤提示。此時移動滾動條便會將所對應(yīng)的硬度值賦給下面的textbox中，此時用戶可以定量選擇硬度值。同理，其他的材料的接觸疲勞強度極限和彎曲疲勞強度極限值也是類似的方法。部分程序如下： ………………………………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。部分程序如下：………………………………If εβ 1 Thenεβ = 1ElseEnd IfIf β= 30 ThenYβ = 1 εβ * β/ 120ElseYβ = 1 * εβEnd If ………………………………由圖可知，當(dāng)齒輪的法面壓力角αn=20176。Ft/b≥100N/mm100N/mm精度等級二組56785級或更低表面硬化處理KHα≥KFα未經(jīng)表面硬化處理KHα≥KFα雖然表32只介紹了8級及以下精度等級的齒輪的齒間載荷分配系數(shù)，但根據(jù)作者查的資料顯示，當(dāng)齒輪精度等級為9級或者9級以上時。nn = (Φd Z1 / )2/(1 +Φd Z1/ + (Φd Z1/)2)且KFβ= KHβnn。第七個窗體將得到一系列的設(shè)計結(jié)果顯示出來，并且選擇齒輪旋向。d11是分度圓直徑，是通過齒面接觸疲勞強度極限計算所得，mn是法面模數(shù)，是通過齒根彎曲疲勞強度計算所得。工具箱在工具欄里，其中含有許多可視化的控制對象（控件），用戶可以在工具箱中選取所需的控件，并將其添加到窗體中，以繪制所需的圖形界面。用于顯示一個可打開或關(guān)閉的選項，并且同一組只可選中一個選項。 歡迎使用斜齒輪參數(shù)化設(shè)計系統(tǒng)界面圖43 歡迎使用斜齒輪參數(shù)化設(shè)計系統(tǒng)窗體第一個窗體是登陸界面，與設(shè)計程序沒有直接關(guān)系。 工況和齒輪布置界面使用系數(shù)KA是由載荷狀態(tài)和原動機共同決定的，參考材料[3]表102上共有四種載荷狀態(tài)和四種原動機，則一共有16種狀態(tài)，對應(yīng)著16個使用系數(shù)值，只有當(dāng)載荷狀態(tài)和原動機都確定了，使用系數(shù)才會確定。如果用戶輸入的數(shù)值不在提示的范圍內(nèi)，則會出現(xiàn)錯誤提示。當(dāng)選擇了材料和熱處理的方式時，便會將對應(yīng)的最大硬度值賦給scrollbar的max，最小值賦給scrollbar的min。為了方便程序的試運行，將窗體中所有的Textbox的Text屬性都設(shè)置了默認數(shù)值，齒輪精度等級默認為7，并且默認為不進行齒面硬化處理。計算出來的中心距通常都不是整數(shù)，需要進行圓整，當(dāng)用戶單擊“中心距修正”的控件時，系統(tǒng)自動進行圓整并將結(jié)果顯示出來。在窗體的下方添加了兩個ComboBox控件，里面的內(nèi)容都是“左旋”和“右旋”。窗體中間添加了一個Frame控件，里面加了四個Textbox控件用于填寫技術(shù)要求，用戶也可以使用默認的技術(shù)要求，只需要單擊這個Frame控件里面Commandbutton1控件（即“參考技術(shù)要求”）即可。實例：設(shè)計帶式輸送機減速器的高速級齒輪傳動。19＇12＂中心距134mm134法面模數(shù)mt22在進行齒面彎曲疲勞強度計算時，經(jīng)分析影響分度圓直徑的各個參數(shù)，最后發(fā)現(xiàn)造成的誤差的主要原因是齒向載荷分配系數(shù)KHβ相對較小，從而導(dǎo)致載荷系數(shù)K變小，根據(jù)分度圓校正公式可知，分度圓直徑就會變小。運用本系統(tǒng)進行設(shè)計，用戶只需輸入原始數(shù)據(jù)，便可完成設(shè)計，避免了因為計算錯誤造成的設(shè)計失誤和成本損失，大大提高了設(shè)計者的工作效率，縮短了設(shè)計周期。附錄：工況及齒輪布置：Private Sub CommandButton1_Click()Unload MeEnd SubPrivate Sub CommandButton2_Click()ka = Val()φd = Val()msg1$ = 齒寬系數(shù)不在規(guī)定范圍之內(nèi)，請重新輸入！Title1$ = 輸入錯誤If TextBox10 = ThenMsgBox 請輸入齒寬系數(shù)！, vbOKOnly, 錯誤對話框ElseIf = True And (φd Or φd ) ThenMsgBox msg1$, 32, Title1$ElseIf = True And (φd Or φd ) ThenMsgBox msg1$, 32, Title1$ElseIf = True And (φd Or φd ) ThenMsgBox msg1$, 32, Title1$ElseEnd IfEnd Sub……………………………………齒輪材料及特性：Private Sub ComboBox1_Click()If = HT250 Then = 170: = 241σHlim1min = 312: σHlim1max = 397σFE1min = 100: σFE1max = e1 = 118000…………………………………………If = 45（調(diào)制后表面淬火） Or = 40Cr（調(diào)制后表面淬火） Or = 20Cr（滲碳后淬火） Or = 20CrMnTi（滲碳后淬火） Or = 12Cr2Ni4（滲碳后淬火） Or = 20Cr2Ni4（滲碳后淬火） Then = HRCElse = HBSEnd IfEnd Sub……………………………………Private Sub ScrollBar1_Change() = σHlim1 = σHlim1min + ( ) * (σHlim1max σHlim1min) / ( )σFE1 = σFE1min + ( ) * (σFE1max σFE1min) / (