【導(dǎo)讀】的精度，這就很難保證產(chǎn)品的質(zhì)量和經(jīng)濟(jì)性；在軸的設(shè)計(jì)中．計(jì)算和繪圖是并行的，這就需要不斷地修改圖形，過程麻煩，工作量大。統(tǒng)，以適應(yīng)設(shè)計(jì)的發(fā)展趨勢，提高機(jī)械設(shè)計(jì)的效率。本設(shè)計(jì)旨在開發(fā)一個軸類零件一體化輔助設(shè)計(jì)系統(tǒng)，以Access為底層數(shù)據(jù)庫，各段的精度設(shè)計(jì)，最后實(shí)現(xiàn)智能標(biāo)注。由此只要設(shè)計(jì)者根據(jù)軟件提示操作，輸入相應(yīng)。的生成，提高軸類零件的準(zhǔn)確度，減少設(shè)計(jì)時(shí)間，具有一定的實(shí)際指導(dǎo)意義。AutoCADActiveX/VBA的二次開發(fā)技術(shù).....

　　

【正文】 Y 兩個環(huán)境變量。其中第一個變量之值為＜ proeWildfire 安裝路徑＞ \i486_nt\obj\pro_m_msg． exe，如 C:\Program Files\proeWildfire \i486_nt\obj\pro_m_msg． exe。第二個變量之值為 proeWildfire 的安裝天津職業(yè)技術(shù)師范大學(xué) 2020屆本科生畢業(yè)設(shè)計(jì) 23 路徑。以上步驟都是必不可少的準(zhǔn) 備工作，缺少其中任何一個環(huán)節(jié)，都會導(dǎo)致鏈接的錯誤。 2） Pro/E 對象的訪問方法 。 對 Pro/E 內(nèi)部對象的訪問先要建立 Pro/VBAPI 應(yīng)用程序與 Pro/E 進(jìn)程之間的通訊，其前提是獲得當(dāng)前計(jì)算機(jī)系統(tǒng)中運(yùn)行的 Pro/E 對象標(biāo)識(相當(dāng)于 C++中的對象指針 )。通過該對象標(biāo)識才能進(jìn)一步調(diào)用該對象的方法 (函數(shù) )，獲得或設(shè)置其屬性值，從而實(shí)現(xiàn)對 Pro/E 內(nèi)部對象 (如模型、特征、視圖及參數(shù)等 )的控制。獲得 Pro/E 對象標(biāo)識有兩種方式 :1)Pro/VBAPI 應(yīng)用程序直接啟動Pro/E。2)Pro/VBAPI 應(yīng)用程序與已啟動的 Pro/E 連接。前一種方式調(diào)用 Pro/VBAPI 類型庫提供的 () 方 法 ， 后 一 種 方 式 調(diào) 用()方法， Start 方法中的第一個參數(shù)表示 Pro/E 包含路徑的可執(zhí)行程序名 (如 C:\Program Files\\bin\proe． exe)，第二個參數(shù)表示信息和菜單文件路徑，若不需要指定則用″ .″表示。 Pro/E 的可執(zhí)行文件 proe． exe 位于 Pro/E 安裝路徑下的“ \bin”文件夾，其安裝 路徑可通過讀取注冊表的鍵值得到，如 : Imports Dim ProE_InstallPath As String Dim getKey As RegistryKey getKey=(″ \SOFTWARE\\PTC\\ Pro/ENGINEER\Wildfire \\2020310″， False) ProE_InstallPath=(″ InstallDir″ )獲得 Pro/E 安裝路徑 4. 三維模型的派生與工程圖輸出 1） 參數(shù)的更新與產(chǎn)品三維模型的派生參數(shù)的更新是用新的設(shè)計(jì)參數(shù)值替換布局文件參數(shù)表的舊值。布局文件中的參數(shù)表按新的參數(shù)值更新之后，只要打開三維模型樣板文件，引用該布局文件的所有組件和零件，即將根據(jù)新的參數(shù)重新生成三維模型，將再生的三維模型另存后完成產(chǎn)品三維模型的派生。這里的派生是指在原有三維模型樣板的基礎(chǔ)上，由于設(shè)計(jì)參數(shù)的變更而再生的三維模型。 參數(shù)更新與模型派生的方法如下。 1) 打 開 布 局 文 件 更 新 參 數(shù) 表 。 先 調(diào) 用 RetrieveModelWithOpts() 和CurrentModel()方法打開布局文件并獲得當(dāng)前打開的布局文件的對象標(biāo)識 。再調(diào)用ListParams()方法獲得參數(shù)表，通過遍歷參數(shù)表按匹配的參數(shù)名賦予新值。 參數(shù)表的寫操作可直接利用 VBAPI 工具包 vbapiappls\vbparam\Parameter． vb文件中提供的自定義類實(shí)現(xiàn)。主要步驟為 :在 VB． Net集成開發(fā)環(huán)境下將 文件添加到項(xiàng)目文件中 。構(gòu)建類型名為 DataTable 的參數(shù)值數(shù)組 paramTable。調(diào)用天津職業(yè)技術(shù)師范大學(xué) 2020屆本科生畢業(yè)設(shè)計(jì) 24 Parameter 類的 saveModelParam()方法更新參數(shù)表。其中 DataTable 和 Parameter類已在 Parameter． vb文件中定義。 2)三維模型的再生與保存。調(diào)用 RetrieveModelWithOpts()方法打開模型文件并獲得當(dāng)前打開的模型的對象標(biāo)識，再調(diào)用 Regenerate()方法更新模型，最后調(diào)用Save()方法保存或調(diào)用 Copy()方法另存為派生的產(chǎn)品三維模型。其中 Regenerate()、Save()和 Copy ()均是 IpfcModel 類的方法。 IpfcModel 類的模型包括 Pro/E 組件、零件、布局和繪圖等不同 類型，利用 Type()方法獲得其類型后，分別與常數(shù)(組件 )、 (零件 )、(繪圖 )和 (布局 )進(jìn)行比較，以便判別在 Pro/E 進(jìn)程中打開的文件類型。 VB API 采用完全面向?qū)ο蟮木幊谭绞?，沒有對象指針，系統(tǒng)為用戶提供了大量的類和方法以供使用，使這些類和方法可以訪問 Pro/E 絕大多數(shù)的數(shù)據(jù)庫及 內(nèi)部應(yīng)用函數(shù)。在程序編寫的過程中，應(yīng)盡可能充分的發(fā)揮 VB 面向?qū)ο缶幊痰膬?yōu)勢，可采用一個通用的齒輪處理類實(shí)現(xiàn)各不同類型的齒輪模型的驅(qū)動，以減少程序代碼的編寫量。 對應(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ì)效益。因此 它是機(jī)械產(chǎn)品設(shè)計(jì)中十分重要的環(huán)節(jié)。精度設(shè)計(jì)的原則是在保證產(chǎn)品性能優(yōu)良的前提下 盡可能使產(chǎn)品的制造成本低，經(jīng)濟(jì)效益好。精度設(shè)計(jì)的內(nèi)容主要包容：尺寸精度設(shè)計(jì)、形狀和位置精度設(shè)計(jì)及表面粗糙度的設(shè)計(jì)三方面的內(nèi)容。這三方面的內(nèi)容并不是孤立的，而是相互關(guān)聯(lián)的。如零件的形狀和位置公差與尺寸公差之間存在著三種關(guān)系原則．即獨(dú)立原則，包容原則和最大實(shí)體原則。不同的工作性能，遵守不同 的原則。零件不同的尺寸