【正文】 m 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ì)效益。零件間不同的配合性質(zhì)，也將導(dǎo)致不同的形位公差、尺寸公差和表面粗糙度的要求。軸承配合的選擇應(yīng)綜合考慮作用在軸承上的負(fù)荷的類型、大小；軸承的類型和尺寸；軸和殼體孔的材料、結(jié)構(gòu)、工作環(huán)境、裝配要求等因素。鍵的類型有平鍵、半圓鍵、楔鍵、切向鍵等多種，其中以平鍵用的最多，本文只討論平鍵的連接。，.。同傳統(tǒng)的數(shù)據(jù)對象層次不同。傳統(tǒng)的設(shè)計(jì)方法中尺寸公差、形位公差和粗糙度標(biāo)準(zhǔn)需要參照手冊，這對于設(shè)計(jì)者來說是極為繁瑣的，對于缺乏經(jīng)驗(yàn)的初學(xué)設(shè)計(jì)者來說要時(shí)常翻閱。， 連接起來, 需要兩個(gè)步驟： , 編程環(huán)境中引用AutoCAD對象庫；其次編寫VisualBasic .NET程序代碼, 創(chuàng)建AutoCAD對象， 啟動運(yùn)行AutoCAD。h}%%v + + %%v + Call (zfc1, insertp1, directionp) Dim leaderobj As Dim lpoints(0 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)然也就無法對程序進(jìn)行調(diào)試。最后基本完成了預(yù)定目標(biāo)。盡管本系統(tǒng)存在著很多不足，但其功能全面、界面友好、操作方便、效率高等優(yōu)點(diǎn)是本精度設(shè)計(jì)系統(tǒng)所必需的。這樣對于普通使用者已經(jīng)足夠。創(chuàng)建AutoCAD對象，啟動的方法有很多種形式，由于CAD系統(tǒng)多個(gè)窗體需要調(diào)用AutoCAD對象變量，所以系統(tǒng)在全局模塊Module中定義AutoCAD對象變量，編寫公用子程序代碼, 各窗體均可通過調(diào)用子程序使用該變量。選擇負(fù)荷狀態(tài)和連接方式，單擊窗體中的【設(shè)計(jì)結(jié)果】按鈕，即可查詢對應(yīng)軸徑的極限偏差、表面粗糙度和形位公差的查詢。本系統(tǒng)中采用ADO控件連接Access數(shù)據(jù)庫。數(shù)據(jù)庫采用了Microsoft推出的Access數(shù)據(jù)庫，這是微軟集成到Office中的一個(gè)桌面數(shù)據(jù)庫，能夠快速方便的和Office的其他套件綜合使用。平鍵連接中，鍵是標(biāo)準(zhǔn)件，鍵與鍵槽的配合為基軸制，鍵寬只有一種公差帶h8。國家標(biāo)準(zhǔn)對軸承負(fù)荷的大小按徑向當(dāng)量動載荷Pr與徑向額定動載荷Cr比值分為輕負(fù)荷、正常負(fù)荷、重負(fù)荷。與重要零件(如齒輪)配合處，應(yīng)按齒輪的精度確定軸的精度。精度設(shè)計(jì)的原則是在保證產(chǎn)品性能優(yōu)良的前提下 盡可能使產(chǎn)品的制造成本低，經(jīng)濟(jì)效益好。2)三維模型的再生與保存。1)打開布局文件更新參數(shù)表。通過該對象標(biāo)識才能進(jìn)一步調(diào)用該對象的方法(函數(shù))，獲得或設(shè)置其屬性值，從而實(shí)現(xiàn)對Pro/E內(nèi)部對象(如模型、特征、視圖及參數(shù)等)的控制。需要Pro/E安裝VBAPI開發(fā)模塊才能對Pro/E中的對象進(jìn)行訪問，Pro/E對象包括組件、零件、繪圖、草繪、布局以及各類特征，要實(shí)現(xiàn)對Pro/E對象的訪問和控制，在Pro/VBAPI應(yīng)用程序的開發(fā)項(xiàng)目中必須包含對Pro/E類型庫的引用。由于這種方法不涉及對其他特征的依賴關(guān)系，在更新時(shí)出現(xiàn)參數(shù)取值邏輯錯(cuò)誤不會造成特征生成的失敗和中斷，從而保證了三維模型生成過程的完整，有利于特征生成錯(cuò)誤的發(fā)現(xiàn)、應(yīng)用程序的調(diào)試和維護(hù)。這樣既減少了參數(shù)表的重復(fù)創(chuàng)建，又實(shí)現(xiàn)了參數(shù)表的共享，如圖311所示。1)用關(guān)系式約束特征參數(shù)。前者不需要事先建立的三維模型樣板，直接由Pro/VBAPI應(yīng)用程序創(chuàng)建全新的三維模型。異步模式應(yīng)用程序的運(yùn)行過程如圖38所示：圖38 異步模式開發(fā)模式在上圖可以看出,異步模式二次開發(fā)過程中一個(gè)重要的核心問題是基礎(chǔ)模型的正確建立,這也是二次開發(fā)的前提條件。其界面如下圖36所示：圖36按扭轉(zhuǎn)強(qiáng)度?！居?jì)算】按鈕程序代碼：Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim p, n, d As New Single Dim T As New Single Dim Wt As New Single Dim τt As New Single Dim τ As New Single p = Val() n = Val() d = Val() τ = Val() T = 9550000 * p / n Wt = * d * d * d τt = T / Wt If τt = τ Then = 安全 (強(qiáng)度滿足要求，設(shè)計(jì)完成 , , , ) Else = 安全 (強(qiáng)度滿足要求，設(shè)計(jì)完成 , , , ) End If End Sub Pro/E的參數(shù)化設(shè)計(jì)Pro/E系統(tǒng)最典型的特點(diǎn)是參數(shù)化，體現(xiàn)參數(shù)化除使用尺寸參數(shù)控制模型外，還在尺寸間建立數(shù)學(xué)關(guān)系式，使其保持始終相對的大小，位置或約束條件，在零件模式下，系統(tǒng)允許建立特征之間的關(guān)系式，使零件中的不同特征產(chǎn)生關(guān)聯(lián)，此時(shí)創(chuàng)建的參數(shù)關(guān)系式或?yàn)榱慵P(guān)系式。在已知軸的外形、尺寸及載荷的基礎(chǔ)上，即可通過分析確定出一個(gè)或幾個(gè)危險(xiǎn)截面（這時(shí)不僅要考慮彎曲應(yīng)力和扭轉(zhuǎn)切應(yīng)力的大小，而且要考慮應(yīng)力集中和絕對尺寸等因素影響的程度），按式33求出計(jì)算安全系數(shù) ，即 (32)僅有法向應(yīng)力時(shí)，應(yīng)滿足 (33)僅有扭轉(zhuǎn)切應(yīng)力時(shí)，應(yīng)滿足 (34)為了把繁瑣的校核計(jì)算簡化，開發(fā)出其校核界面，通過輸入需要的參數(shù)和圖標(biāo)查詢即可得到校核結(jié)果。一般的軸用這種方法計(jì)算即可。軸設(shè)計(jì)的參數(shù)較多，我們就要考慮到這些參數(shù)錄入、選擇界面布局合理、清晰、簡潔，使人從整體角度看，一目了然、條理清晰、分類明確、主次關(guān)系安排合理。工作中既承受彎矩又承受扭矩的軸稱為轉(zhuǎn)軸，這類軸在各種機(jī)械中最為常見，如減速器所用到的軸。AutoCAD ActiveX技術(shù)提供了一種機(jī)制，該機(jī)制可使編程者通過編程手段從AutoCAD的內(nèi)部或外部來操縱AutoCAD。傳統(tǒng)模式的Pro/E 二次開發(fā)多是采用Pro/toolkit進(jìn)行的, 因?yàn)镻ro/toolkit以C語言為依托, 向用戶提供了大量針對Pro/E 底層資源調(diào)用的庫函數(shù)和頭文件。同時(shí)，這種基于面向?qū)ο蟮拈_發(fā)方式，使得開發(fā)應(yīng)用程序更為簡便。它結(jié)合了 Microsoft Jet Database Engine 和圖形用戶界面兩項(xiàng)特點(diǎn)，同時(shí)它是一個(gè)開放式的數(shù)據(jù)庫管理系統(tǒng)，它不僅能與Office套裝辦公軟件進(jìn)行數(shù)據(jù)資源共享，還可以與其他應(yīng)用程序共享。 (3).在VB ，需要首先聲明一個(gè)變量，然后才能對其賦值，這樣就需要寫兩行代碼?！‖F(xiàn)在VB7已經(jīng)支持類