【正文】 t, leaddimtext, leaddimtype)Dim leadpt1(8) As Doubleleadpt1(0) = zstp(0) + bb: leadpt1(1) = zstp(1) da / 2: leadpt1(2) = 0leadpt1(3) = zstp(0) + 4 + bb: leadpt1(4) = zstp(1) da / 2 30: leadpt1(5) = 0leadpt1(6) = zstp(0) + 20 + bb: leadpt1(7) = zstp(1) da / 2 30: leadpt1(8) = 0Set leaddimtext = NullSet leaderdimobj = (leadpt1, leaddimtext, leaddimtype)Dim leadpt3(8) As Doubleleadpt3(0) = ins(0) + jcb / 2: leadpt3(1) = ins(1) + dd / 2 + 8: leadpt3(2) = 0leadpt3(3) = ins(0) + jcb / 2 + 10: leadpt3(4) = ins(1) + dd / 2 + 8: leadpt3(5) = 0leadpt3(6) = ins(0) + jcb / 2 + 40: leadpt3(7) = ins(1) + dd / 2 + 8: leadpt3(8) = 0Set leaddimtext = NullSet leaderdimobj = (leadpt3, leaddimtext, leaddimtype)……………………………………tolerpt(0, 0) = zstp(0) + 20: tolerpt(0, 1) = zstp(1) + da / 2 + 20directpt(0, 0) = zstp(0): directpt(0, 1) = 0 tolerpt1, vbDouble, tolerpt(0, 0), tolerpt(0, 1), 0 directpt1, vbDouble, directpt(0, 0), directpt(0, 1), 0tolerstr(0) = ↗||ASet tolerobj = (tolerstr(0), tolerpt1, directpt1) = 5tolerstr(1) = ↗||A tolerpt(1, 0) = zstp(0) + 20 + bb: tolerpt(1, 1) = zstp(1) da / 2 30directpt(1, 0) = zstp(0) + 30 + bb: directpt(1, 1) = 0 tolerpt2, vbDouble, tolerpt(1, 0), tolerpt(1, 1), 0 directpt2, vbDouble, directpt(1, 0), directpt(1, 1), 0Set tolerobj = (tolerstr(1), tolerpt2, directpt2) = 5 = layerdimDim 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) 。本設(shè)計中齒輪寬度計算出來后用四舍五入圓整直徑得到最終值，而例題中特意將齒輪寬度值末尾數(shù)設(shè)為5或者0，所以導(dǎo)致齒輪寬度值略有不同。表41 設(shè)計過程中部分參數(shù)對比實例本設(shè)計系統(tǒng)分度圓直徑法面模數(shù)表42 部分最終參數(shù)對比實例本設(shè)計系統(tǒng)齒數(shù)小齒輪3131大齒輪9999分度圓直徑小齒輪大齒輪齒輪寬度小齒輪65mm64mm大齒輪70mm69mm螺旋角14176。圖412 大齒輪繪圖如圖所示，本設(shè)計在繪圖結(jié)束以后能夠?qū)崿F(xiàn)自動標(biāo)注尺寸和圓跳動，并且能夠自動顯示技術(shù)要求和標(biāo)題欄等。本設(shè)計圖紙幅面只添加了A0，A1，A2和A3四種圖紙，可以滿足一般的繪圖要求。程序運行到這個窗體，除了齒輪旋向，其他的參數(shù)都是已經(jīng)確定的。當(dāng)選擇的模數(shù)比強度計算得到的模數(shù)還要小時，系統(tǒng)會自動報錯，用戶需要重新選擇模數(shù),選擇的模數(shù)比計算得到的稍大即可，不宜過大。設(shè)計把“下一步”，即Commandbutton事件作為調(diào)用子程序的觸發(fā)事件。將材料和熱處理方式寫在一起的好處就是可以保證不會出現(xiàn)材料與熱處理方式不相符的情況。在窗體的右側(cè)有兩個Frame控件，分別命名為“小齒輪布置方式”和“齒寬系數(shù)選擇”，在上面的Frame中添加了3個optionbutton控件，下面的Frame控件中有一個Label控件和Textbox控件。這個窗體的代碼窗口比較簡單，只有簡單的幾個賦值語句。在布置窗體時，應(yīng)調(diào)整各個控件的大小和位置，使界面顯得緊湊美觀。如果想將TextBox中的值默認(rèn)為一個數(shù)，只需要在此控件的Text屬性中輸入該數(shù)值即可。屬性窗口在左下方，對應(yīng)的是界面中正顯示的窗體的屬性。σHlim和σFE分別代表齒輪的接觸疲勞強度極限和彎曲疲勞強度極限。第五個窗體是用于選擇齒輪精度，初選螺旋角和載荷系數(shù)，輸入接觸疲勞安全系數(shù)和彎曲疲勞安全系數(shù)。 按齒根彎曲疲勞強度計算時齒向載荷分布系數(shù)KFβ齒輪的KFβ可和KHβ之值、齒寬b與齒高h(yuǎn)之比b/h有關(guān)，見圖36。由于齒距誤差和彈性變形等原因，總載荷并不是按長度的比例在兩條接觸線之間均與分布的，所以有必要引入齒間載荷分配系數(shù)Kα.齒間載荷分配系數(shù)與齒輪精度等級和是否表面硬化處理有關(guān)，見表32。根據(jù)作者查到的文獻(xiàn)資料顯示，當(dāng)β30176。同理，運用這種方法我們可以找到當(dāng)N2000000時KHN1與N相關(guān)的方程。也就是兩個點（，σHlimmin）和（，σHlimmax）。由于齒輪的接觸疲勞強度極限σHlim和齒輪的彎曲疲勞強度極限σFE只和硬度值大小有關(guān)系，且基本上一階線性相關(guān)，所以一旦選擇了具體的硬度值，齒輪的接觸疲勞強度極限σHlim和齒輪的彎曲疲勞強度極限σFE也就隨之確定了。3 主要技術(shù)說明 Φd的程序?qū)崿F(xiàn)方法圓柱齒輪的齒寬系數(shù)Φd是由兩支撐相對于小齒輪的裝置狀況決定的，如表31。⑧按參考材料[3]圖1018取得彎曲疲勞壽命系數(shù)KFN，并計算彎曲疲勞許用應(yīng)力。⑦計算模數(shù)。⑩按參考材料[3]圖1026查的重合度εα=εα1+εα2。②計算小齒輪傳遞的轉(zhuǎn)矩T1。為了既能發(fā)揮斜齒輪的優(yōu)點，又不至于使軸向力過大，一般采用的螺旋角β=8176。VBA的優(yōu)點是可以很容易地使用Windows系統(tǒng)資源，使AutoCAD能容易地與其他Windows下的應(yīng)用軟件交互。另外其表達(dá)式的表示法也不易讓一般開發(fā)人員習(xí)慣和接受。（3）可創(chuàng)建功能強大的模塊級宏指令，宏名實質(zhì)上就是模塊的過程名。通過Automation，AutoCAD提供了可由Automation控制器（例如VB和Excel）進(jìn)行操作的可編程對象。CAD 能夠減輕設(shè)計人員的勞動，縮短設(shè)計周期和提高設(shè)計質(zhì)量。70年代，完整的CAD系統(tǒng)開始形成，后期出現(xiàn)了能產(chǎn)生逼真圖形的光柵掃描顯示器，推出了手動游標(biāo)、圖形輸入板等多種形式的圖形輸入設(shè)備，促進(jìn)了CAD技術(shù)的發(fā)展。整個設(shè)計過程是一項繁瑣、冗長而且需要認(rèn)真仔細(xì)完成的工作，任何一處差錯都能導(dǎo)致設(shè)計工作的失效。傳統(tǒng)的齒輪設(shè)計主要由設(shè)計人員查詢設(shè)計手冊中的數(shù)據(jù)表格、線圖來選擇參數(shù)，在這一過