【導(dǎo)讀】產(chǎn)品制造的中間橋梁。CAPP的使用可以大大縮短工藝設(shè)計(jì)周期，有利于工藝設(shè)計(jì)的最優(yōu)化和標(biāo)準(zhǔn)化，因此，世界很多國家都在大力研究CAPP平技術(shù)，CAPP技術(shù)的理論研究和實(shí)際應(yīng)用已經(jīng)蓬勃發(fā)展起來[1]。美國的國際性組織CAM-I于1976年開發(fā)的CAPP系統(tǒng)。經(jīng)過30多年的歷程，國內(nèi)外對CAPP技術(shù)已經(jīng)進(jìn)行了大量的探討與研究，無論。這樣，就產(chǎn)生了CAPP的廣義概念：即CAPP的一方。向集成化、網(wǎng)絡(luò)化、智能化發(fā)展是現(xiàn)代CAPP發(fā)展的必然趨勢。PDM、ERP、MIS等管理系統(tǒng)在不進(jìn)入CAPP系統(tǒng)的前提下可直接訪問工藝數(shù)據(jù)庫。性是建立CAPP系統(tǒng)工藝知識庫的目標(biāo)[5]。在此形勢下，CAPP系統(tǒng)的發(fā)展具有以下特點(diǎn)。各企業(yè)的工藝環(huán)境、管理模式千差萬別，CAPP系統(tǒng)要適應(yīng)各企業(yè)的具體情況。高其通用性，就要加強(qiáng)CAPP系統(tǒng)的工具化和工程化。開發(fā)CAPP系統(tǒng)時(shí)，應(yīng)將CAPP系統(tǒng)。促進(jìn)工藝設(shè)計(jì)規(guī)范化，從而規(guī)范CAPP. 使大部分企業(yè)使用的CAPP系統(tǒng)成為具有個(gè)性特征的主體相似的工程化產(chǎn)品。由CAD提供產(chǎn)品設(shè)計(jì)模型的特征信息。

　　

【正文】 ntalDeviation = (15) Case N FundamentalDeviation = (16) Case P FundamentalDeviation = (17) Case R FundamentalDeviation = (18) Case S FundamentalDeviation = (19) Case T FundamentalDeviation = (20) Case U FundamentalDeviation = (21) Case V FundamentalDeviation = (22) Case X FundamentalDeviation = (23) Case Y FundamentalDeviation = (24) Case Z FundamentalDeviation = (25) Case ZA FundamentalDeviation = (26) Case ZB FundamentalDeviation = (27) Case ZC FundamentalDeviation = (28) End Select Else MsgBox (沒有找到相關(guān)數(shù)據(jù) ) End If 第 Ⅰ 頁 共 Ⅰ 頁 txtFundamentalDeviationValue = FundamentalDeviation If FundamentalDeviationCode = H Then UpperDeviation = FundamentalDeviation LowerDeviation = UpperDeviation DimensionalTolerance = UpperDeviation txtLowerDeviation = LowerDeviation Else LowerDeviation = FundamentalDeviation UpperDeviation = FundamentalDeviation + DimensionalTolerance = UpperDeviation txtLowerDeviation = LowerDeviation End If End If End Sub Private Sub Form_Load() 39。設(shè)置軸、孔兩個(gè)單選框的初始狀態(tài)：未選擇 = False = False 39。設(shè)定公差等級列表供用戶選擇 IT1 IT2 IT3 IT4 IT5 IT6 IT7 IT8 IT9 IT10 IT11 IT12 IT13 IT14 IT15 IT16 IT17 IT18 End Sub Private Sub optAxis_Click() 39。設(shè)定軸的基本偏差代號 a 第 Ⅰ 頁 共 Ⅰ 頁 b c cd d e ef f fg g h j k m n p r s t u v x y z za zb zc End Sub Private Sub optHole_Click() 39。設(shè)定孔的基本偏差代號 A B C CD D E EF F FG G H J K M 第 Ⅰ 頁 共 Ⅰ 頁 N P R S T U V X Y Z ZA ZB ZC End Sub 形狀公差查詢窗口程序代碼： Option Explicit Private FL_Straightness As Single 39。定義變量，基本尺寸（直線度） Private FL_Evenness As Single 39。定義變量，基本尺寸（ 平面度） Private FD_Roundness As Single 39。定義變量，基本尺寸（圓度） Private FD_Cylindricity As Single 39。定義變量，基本尺寸（圓柱度） Private StraightnessGrade As String 39。定義變量，直線度公差等級 Private EvennessGrade As String 39。定義變量，平面度公差等級 Private RoundnessGrade As String 39。定義變量，圓度公差等級 Private CylindricityGrade As String 39。定義變量，圓柱度公差等級 Private Sub cboCylindricityGrade_Click() 39。通過組合框選定圓柱度公差等級 CylindricityGrade = End Sub Private Sub cboEvennessGrade_Click() 39。通過組合框選定圓度公差等級 EvennessGrade = End Sub Private Sub cboRoundnessGrade_Click() 39。通過組合框選定圓度公差等級 RoundnessGrade = End Sub Private Sub cboStraightnessGrade_Click() 39。通過組合框選定直線度公差等級 StraightnessGrade = 第 Ⅰ 頁 共 Ⅰ 頁 End Sub Private Sub cmdClear_Cylindricity_Click() = = End Sub Private Sub cmdClear_Evenness_Click() = = End Sub Private Sub cmdClear_Roundness_Click() = = End Sub Private Sub cmdClear_Straightness_Click() = = End Sub Private Sub cmdReturn_Cylindricity_Click() Unload frmFormTolerance End Sub Private Sub cmdReturn_Evenness_Click() Unload frmFormTolerance End Sub Private Sub cmdReturn_Roundness_Click() Unload frmFormTolerance End Sub Private Sub cmdReturn_Straightness_Click() Unload frmFormTolerance End Sub Private Sub cmdSearch_Cylindricity_Click() Dim conn As New 39。定義 ADODB 的 Connection 對象 Dim rs As New 39。定義 ADODB 的 Recordset 對象 第 Ⅰ 頁 共 Ⅰ 頁 Dim connstr As String 39。定義連接串 FD_Cylindricity = 39。打開直線度公差數(shù)據(jù)庫 connstr = provider = 。 data source= F:\AutoCAD 二次開發(fā) \減速器 \形狀公差值 .mdb = connstr connstr = adUseClient 39。從數(shù)據(jù)庫中選擇符合條件的數(shù)據(jù)：基本尺寸在給定范圍內(nèi) select * from 圓 柱 度 where FDimension_L amp。 FD_Cylindricity amp。 and FDimension_U = amp。 FD_Cylindricity amp。 , conn 39。據(jù)公差等級，顯示相應(yīng)公差數(shù)值 If 0 Then Select Case CylindricityGrade Case 1 = (2) Case 2 = (3) Case 3 = (4) Case 4 = (5) Case 5 = (6) Case 6 = (7) Case 7 = (8) Case 8 = (9) Case 9 = (10) Case 10 = (11) Case 11 = (12) Case 12 = (13) End Select Else MsgBox (沒有找到相關(guān)數(shù)據(jù) ) End If 39。關(guān)閉程序與數(shù)據(jù)庫的連接，關(guān)閉數(shù)據(jù)庫 第 Ⅰ 頁 共 Ⅰ 頁 Set rs = Nothing Set conn = Nothing End Sub Private Sub cmdSearch_Evenness_Click() Dim conn As New 39。定義 ADODB 的 Connection 對象 Dim rs As New 39。定義 ADODB 的 Recordset 對象