【正文】 To 8) As Double Dim annotationobject As lpoints(0) = ObjInsert(0) : lpoints(1) = ObjInsert(1) : lpoints(2) = 0 lpoints(3) = ObjInsert(0) : lpoints(4) = ObjInsert(1) + 20 : lpoints(5) = 0 lpoints(6) = ObjInsert(0) + 15 : lpoints(7) = ObjInsert(1) + 20 : lpoints(8) = 0 leaderobj = (lpoints, annotationobject, ) End Sub4 軟件功能展示及系統(tǒng)集成(1)進(jìn)入系統(tǒng) （2）選擇軸的類型（3）軸的各項(xiàng)參數(shù)輸入（4）進(jìn)行相應(yīng)的強(qiáng)度校核（5） 輸出Pro/E三維模型（6）進(jìn)行精度設(shè)計(jì)（7）退出基于Visual Basic 2005 的編釋執(zhí)行方式執(zhí)行時(shí)不需要代碼或執(zhí)行程序，當(dāng)然也就無(wú)法對(duì)程序進(jìn)行調(diào)試。， 連接起來(lái), 需要兩個(gè)步驟： , 編程環(huán)境中引用AutoCAD對(duì)象庫(kù)；其次編寫(xiě)VisualBasic .NET程序代碼, 創(chuàng)建AutoCAD對(duì)象， 啟動(dòng)運(yùn)行AutoCAD。傳統(tǒng)的設(shè)計(jì)方法中尺寸公差、形位公差和粗糙度標(biāo)準(zhǔn)需要參照手冊(cè)，這對(duì)于設(shè)計(jì)者來(lái)說(shuō)是極為繁瑣的，對(duì)于缺乏經(jīng)驗(yàn)的初學(xué)設(shè)計(jì)者來(lái)說(shuō)要時(shí)常翻閱。同傳統(tǒng)的數(shù)據(jù)對(duì)象層次不同。，.。鍵的類型有平鍵、半圓鍵、楔鍵、切向鍵等多種，其中以平鍵用的最多，本文只討論平鍵的連接。軸承配合的選擇應(yīng)綜合考慮作用在軸承上的負(fù)荷的類型、大小；軸承的類型和尺寸；軸和殼體孔的材料、結(jié)構(gòu)、工作環(huán)境、裝配要求等因素。零件間不同的配合性質(zhì)，也將導(dǎo)致不同的形位公差、尺寸公差和表面粗糙度的要求。對(duì)應(yīng)代碼編寫(xiě)：Imports pfclsImports 【鏈接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) = True【打開(kāi)模型】按鈕程序代碼： descModel As IpfcModelDescriptor Dim options As IpfcRetrieveModelOptions Dim session As IpfcBaseSession Dim currentws As Object session = options = (New CCpfcRetrieveModelOptions).Create = False (G:\畢業(yè)設(shè)計(jì)黃登春) descModel = (New CCpfcModelDescriptor).Create(, Nothing, Nothing) = G:\畢業(yè)設(shè)計(jì)黃登春\ model = (descModel, options) (model) currentws = () () = 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 .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) = 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 () () d1 = Val() d2 = Val() d4 = Val() End Sub精度設(shè)計(jì)是否合理，將直接影響機(jī)械產(chǎn)品的質(zhì)量、使用壽命及經(jīng)濟(jì)效益。調(diào)用Parameter類的saveModelParam()方法更新參數(shù)表。這里的派生是指在原有三維模型樣板的基礎(chǔ)上，由于設(shè)計(jì)參數(shù)的變更而再生的三維模型。2）Pro/E對(duì)象的訪問(wèn)方法。要以參數(shù)尺寸驅(qū)動(dòng)實(shí)現(xiàn)三維模型，創(chuàng)建正確的參數(shù)化基本模型非常重要。特征生成的中斷使錯(cuò)誤的查找較為困難，給程序的調(diào)試和維護(hù)帶來(lái)麻煩。由于在組件環(huán)境下創(chuàng)建的參數(shù)不能被下級(jí)零件或子裝配檢索，在零件或子裝配環(huán)境中創(chuàng)建的參數(shù)也不能為上級(jí)裝配環(huán)境檢索，因而不能采用僅對(duì)組件或零件有效的參數(shù)來(lái)控制三維模型。由于在Pro/E環(huán)境下構(gòu)建的三維模型已經(jīng)實(shí)現(xiàn)了組成特征的全約束，因而通過(guò)參數(shù)來(lái)控制三維模型的形態(tài)變化和生成是比較容易的。三維模型的生成方式利用Pro/VBAPI應(yīng)用程序進(jìn)行系列化設(shè)計(jì)的三維模型主要有兩種生成方式:第一種是采用工具包中提供的特征創(chuàng)建函數(shù)在Pro/E環(huán)境下直接創(chuàng)建三維模型。利用Pro/VBAPI開(kāi)發(fā)工具包和Pro/E參數(shù)化特征造型技術(shù)的支持，可以開(kāi)發(fā)具有可重用性、可擴(kuò)展性和靈活的應(yīng)用模塊，實(shí)現(xiàn)產(chǎn)品數(shù)字模型的系列化設(shè)計(jì)。對(duì)于不大重要的軸，也可作為最后計(jì)算結(jié)果。其計(jì)算界面如圖34所示：圖34按彎扭合成強(qiáng)度條件計(jì)算【計(jì)算】按鈕的程序代碼：Dim Fh, Fv, a, L2, B, L3, L4, Fh1, Fh2, Fv1, Fv2, la, lb, α, d, b2, t2 As 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() B = Val() L3 = Val() L4 = Val() d = Val() b2 = Val() t2 = Val() T = 9550000 * p / n 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)度不滿足要求,請(qǐng)重新選擇參數(shù), , , ) End If End Sub對(duì)于精度要求較高的軸，我們還需對(duì)其進(jìn)行疲勞強(qiáng)度進(jìn)行校核。(1)對(duì)于只承受彎矩的軸（心軸），應(yīng)按彎曲強(qiáng)度計(jì)算；對(duì)于及承受彎矩又承受扭矩的軸（轉(zhuǎn)軸）應(yīng)按彎扭合成強(qiáng)度條件進(jìn)行計(jì)算。因此軸的結(jié)構(gòu)設(shè)計(jì)是軸設(shè)計(jì)中的重要內(nèi)容。登陸界面如圖31所示。 AutoCAD ActiveX/VBA的二次開(kāi)發(fā)技術(shù)AutoCAD是目前全球使用最廣泛的一種工程圖形設(shè)計(jì)軟件。利用數(shù)據(jù)庫(kù)訪問(wèn)頁(yè)對(duì)象生成HTML文件，輕松構(gòu)建Internet/Intranet的應(yīng)用。它將一個(gè)應(yīng)用系統(tǒng)當(dāng)作是由一系列對(duì)象組成的，對(duì)每個(gè)對(duì)象它都定義一