【正文】 對于及承受彎矩又承受扭矩的軸（轉(zhuǎn)軸）應(yīng)按彎扭合成強(qiáng)度條件進(jìn)行計(jì)算。 (2) 做出彎矩圖。其計(jì)算界面如圖 34所示： 圖 34按彎扭合成強(qiáng)度條件計(jì)算 【計(jì)算】按鈕的程序代碼： Dim Fh, Fv, a, L2, B, L3, L4, Fh1, Fh2, Fv1, Fv2, la, lb, α, d, b2, t2 A s New Single Dim Mh, Mv, M, p, n, T, W, σca, σ As New Single p = Val() n = Val() a = Val() Fh = Val() Fv = Val() σ = Val() α = Val() L2 = Val(結(jié)構(gòu) .) B = Val(結(jié)構(gòu) .) L3 = Val(結(jié)構(gòu) .) L4 = Val(結(jié)構(gòu) .) d = Val(結(jié)構(gòu) .) b2 = Val(結(jié)構(gòu) .) t2 = Val(結(jié)構(gòu) .) T = 9550000 * p / n 天津職業(yè)技術(shù)師范大學(xué) 2020屆本科生畢業(yè)設(shè)計(jì) 13 la = L2 + B + L3 / 2 a / 2 lb = L4 B / 2 + L3 / 2 Fh1 = Fh * lb / (la + lb) Fv1 = Fv * lb / (la + lb) Mh = Fh1 * la Mv = Fv1 * la M = (Mh + Mv) ^ W = PI * d * d * d / 32 b2 * t2 * (d t2) ^ / 2 / d σca = (M ^ 2 + (α * T) ^ 2) ^ / W If σca = σ Then = 安全 (強(qiáng)度滿足要求，設(shè)計(jì)完成 , , , ) Else = 不安全 (強(qiáng)度不滿足要求 ,請重新選擇參數(shù) , , , ) End If End Sub 對于精度要求較高的軸，我們還需對其進(jìn)行疲勞強(qiáng)度進(jìn)行校核?？箯澖孛嫦禂?shù) Wt = * d * d * d 39。對于不大重要的軸，也可作為最后計(jì)算結(jié)果。 軸的參數(shù)化設(shè)計(jì)主要是對二維圖形的基本尺寸中的各軸段長度及直徑 (、倒角及鍵槽 特征等的參數(shù)進(jìn)行設(shè)定，參數(shù)之間用關(guān)系進(jìn)行約束限定。利用 Pro/VBAPI 開發(fā)工具包和 Pro/E 參數(shù)化特征造型技術(shù)的支持，可以開發(fā)具有可重用性、可擴(kuò)展性和靈活的應(yīng)用模塊，實(shí)現(xiàn)產(chǎn)品數(shù)字模型的系列化設(shè)計(jì)。 采用 VB API 進(jìn)行二次開發(fā)的基本步驟和使用的主要類與方法如圖 39 所示。 三維模型的生成方式利用 Pro/VBAPI 應(yīng)用程序進(jìn)行系列化設(shè)計(jì)的三維模型主要有兩種生成方式 :第一種是采用工具包中提供的特征創(chuàng)建函數(shù)在 Pro/E 環(huán)境下直接創(chuàng)建三維模型 。兩種三維模型生成方式如 下 圖 310 所示。由于在 Pro/E 環(huán)境下構(gòu)建的三維模型已經(jīng)實(shí)現(xiàn)了組成特征的全約 束，因而通過參數(shù)來控制三維模型的形態(tài)變化和生成是比較容易的。系列化設(shè)計(jì)的某一組尺寸是互相獨(dú)立的設(shè)計(jì)參數(shù)，此參數(shù)作為用關(guān)系式約束的其他特征參數(shù)的自變量。由于在組件環(huán)境下創(chuàng)建的參數(shù)不能被下級零件或子裝配檢索，在零件或子裝配環(huán)境中創(chuàng)建的參數(shù)也不能為上級裝配環(huán)境檢索，因而不能采用僅對組件或零件有效的參數(shù)來控制三維模型。由于設(shè)計(jì)參數(shù)是一組與系列尺寸相關(guān)的變量，取值會在一定范圍內(nèi)發(fā)生變化。特征生成的中斷使錯(cuò)誤的查找較為困難，給程序的調(diào)試和維護(hù)帶來麻煩。因此，實(shí)現(xiàn)系列化設(shè)計(jì)的第一步是如何獲得設(shè)計(jì)參數(shù)。要以參數(shù)尺寸驅(qū)動(dòng)實(shí)現(xiàn)三維模型，創(chuàng)建正確的參數(shù)化基 本 模型非常重要。 如下 圖 312所示： 圖 312添加引用庫 在目標(biāo)計(jì)算機(jī)上使用 Pro/VBAPI 應(yīng)用程序之前，必須設(shè)置名 PRO_COMM_MSG_EXE和 PRO_DIRECTORY 兩個(gè)環(huán)境變量。 2） Pro/E 對象的訪問方法 。2)Pro/VBAPI 應(yīng)用程序與已啟動(dòng)的 Pro/E 連接。這里的派生是指在原有三維模型樣板的基礎(chǔ)上，由于設(shè)計(jì)參數(shù)的變更而再生的三維模型。再調(diào)用ListParams()方法獲得參數(shù)表，通過遍歷參數(shù)表按匹配的參數(shù)名賦予新值。調(diào)用天津職業(yè)技術(shù)師范大學(xué) 2020屆本科生畢業(yè)設(shè)計(jì) 24 Parameter 類的 saveModelParam()方法更新參數(shù)表。其中 Regenerate()、Save()和 Copy ()均是 IpfcModel 類的方法。 對應(yīng) 代碼編寫： Imports pfcls Imports 【 鏈接 Pro/E 】按鈕程序代碼： Dim cac As CCpfcAsyncConnection cac = New CCpfcAsyncConnection asyncConnection = (d:\ptc\\bin\, .) Dim proeId As IpfcAsyncConnection proeId = (New CCpfcAsyncConnection).Connect(Nothing, Nothing, Nothing, Nothing) Button打開模型 .Enabled = True 【打開模型】按鈕程序代碼： descModel As IpfcModelDescriptor Dim options As IpfcRetrieveModelOptions Dim session As IpfcBaseSession Dim currentws As Object session = options = (New CCpfcRetrieveModelOptions).Create = False 天津職業(yè)技術(shù)師范大學(xué) 2020屆本科生畢業(yè)設(shè)計(jì) 25 (G:\畢業(yè)設(shè)計(jì) 黃登春 ) descModel = (New CCpfcModelDescriptor).Create(, Nothing, Nothing) = G:\畢業(yè)設(shè)計(jì) 黃登春 \軸 .prt model = (descModel, options) (model) currentws = () () Button更新模型 .Enabled = True 如圖 313所示 : 圖 313模型 【更新模型】按鈕程序代碼： Dim run As Parameter Dim paramTable As DataTable Dim i As Integer model = run = New Parameter() paramTable = () For i = 0 To 1 With (i) If .Item(name) = L1 Then 天津職業(yè)技術(shù)師范大學(xué) 2020屆本科生畢業(yè)設(shè)計(jì) 26 .Item(value) = End If If .Item(name) = L2 Then .Item(value) = End If If .Item(name) = B Then .Item(value) = End If If .Item(name) = L3 Then .Item(value) = End If If .Item(name) = L4 Then .Item(value) = End If If .Item(name) = L5 Then .Item(value) = End If If .Item(name) = C Then .Item(value) = End If If .Item(name) = A1 Then .Item(value) = End If If .Item(name) = A2 Then .Item(value) = End If If .Item(name) = DⅠ Then .Item(value) = End If If .Item(name) = DⅡ Then .Item(value) = End If If .Item(name) = DⅢ Then .Item(value) = 天津職業(yè)技術(shù)師范大學(xué) 2020屆本科生畢業(yè)設(shè)計(jì) 27 End If If .Item(name) = DⅣ Then .Item(value) = End If If .Item(name) = B1 Then .Item(value) = End If If .Item(name) = H1 Then .Item(value) = End If If .Item(name) = T1 Then .Item(value) = End If If .Item(name) = B2 Then .Item(value) = End If If .Item(name) = H2 Then .Item(value) = End If If .Item(name) = T2 Then .Item(value) = End If End With Next (, paramTable, False) (Nothing) = True 【精度設(shè)計(jì)】按鈕程序代碼： Private Sub Button3_Click_1(ByVal sender As , ByVal e As ) Handles Button精度設(shè)計(jì) .Click () () d1 = Val() 天津職業(yè)技術(shù)師范大學(xué) 2020屆本科生畢業(yè)設(shè)計(jì) 28 d2 = Val() d4 = Val() End Sub 軸的 精度設(shè)計(jì) 概述 精度設(shè)計(jì)是否 合 理，將直接影響機(jī)械產(chǎn)品的質(zhì)量、使用壽命及經(jīng)濟(jì)效益。這三方面的內(nèi)容并不是孤立的，而是相互關(guān)