公差計算機輔助查找的研究
時間:2011-04-19 22:23:19 來源:未知
計算機輔助公差設計(Computer-Aided Tolerancing，CAT)，就是在機械產(chǎn)品的設計、加工、裝配、檢驗等過程中。利用計算機對產(chǎn)品及其霉部件的尺寸和公差進行并行優(yōu)化選擇和監(jiān)控，力圖用最低的成本，設計并制造出滿足用戶精度要求的產(chǎn)品,CAT也是實現(xiàn)CAD和CAM集成的核心技術之一，但CAT技術遠遠落后CAD/CAM及共集成技術，已成為影響設計和制造信息集成的瓶頸環(huán)節(jié)。
國際生產(chǎn)下程學會(CIRP)原主席R.Weill曾撰文指出：CAD/CAM信息集成主要是公差信息的集成，如不加以解決，CAD/CAM集成就難以實現(xiàn)。楊叔子院上也曾指出：公差設計在機械產(chǎn)品設計中占有重要的地位，但公差分析和設計的研究遠遠落后于CAD、CAM自身的研究，使其無法與目前的CAD/CAM集成、CIMS的發(fā)展相適應，從而已成為制約它們進一步發(fā)展的一大關鍵所在。
現(xiàn)代化的機械工業(yè)，首先要求機械零件只有互換性，才能實現(xiàn)高效、專業(yè)化的生產(chǎn)。互換性不但促進了自動化生產(chǎn)的發(fā)展，也有利于降低生產(chǎn)成本，提高生產(chǎn)質量。
表 公差庫樣式
基本尺寸
F6
F7
F8
H7
H8
H9
0-3
+12/+6
+16/+6
+20/+6
+10/0
+14/0
+25/0
6-10
+18/+10
+22/+10
+28/+10
+12/0
+18/0
+30/0
10-14
+22/+13
+28/+13
+35/+13
+15/0
+22/0
+36/0
14-18
+27/+16
+34/+16
+43/+16
+18/0
+27/0
+43/0
18-24
+33/+20
+41/+20
+53/+20
+21/0
+33/0
+52/0
1 計算機輔助公差查找實例
零部件在幾何參數(shù)方面的互換性體現(xiàn)在公差制上。公差由標準公差和基本偏差組成，基本偏差是用來確定公差帶相對于零線位置的上偏差或下偏差。基本偏差是國標使公差帶位置標準化的唯一指標，根據(jù)基本偏差代號(簡稱為公差代號)來確定，孔的公差代號用大寫字母來表示，軸的公差代號用小寫字母來表示。在編制工藝文件時，公差的查找往往需要翻手冊，是造成工藝編制效率不高的重要原因。采用數(shù)據(jù)庫和SQL語句查詢機制實現(xiàn)公差的實時查找，免去了翻手冊之苦。通過Access的二維數(shù)據(jù)庫，把公差表搬入計算機中。上表是庫結構圖例。
公差查找查詢模塊的流程圖如下：
公差查找查詢模塊的流程圖
公差查詢摸塊的入口參數(shù)有三個—一基本尺寸、公差代號、公差等級。查詢的結果由查詢模塊出口參數(shù)-基本尺寸、公差代號、上偏差和下偏差表示。下面是部分代碼：
Private Sub mnu公差查找_Click()
#p#分頁標題#e#
js=InputBox("請輸入基本尺寸及公差代號："，"公差查找")
If js="" Then
Exit Sub:End If
Set mDbCAPP=DBEngine.OpenDatabase("C"&"公差庫.mdb")
h= len (js)
For m=1 to 8
str = Mid(js,m,1)
If Asc (str)> 96 Then
Set rs = mDbCAPP.OpenRecordset("軸尺寸公差庫",dbOpen.Dynaset)
cc = Left(js,m-1)
ph = Right(js,h-m+1):Exit For
Elself Asc(str$) >64 And Asc (str$) < 97 Then
Set rs = mDbCAPP.OpenRecordset("孔尺寸公差庫",dbOpenDynaset)
cc = Left(js,m-1)
ph = Right(js,h-m+1)
Exit For:End If:Next m
rs.MoveLast
k=rs.RecordCount
For j=1 To k
rs.AbsolutePosition=j
jbc=rs.基本尺寸
g= Len(jbc)
For i= 1 To 9
gt=Mid(jbc,i,1)
if gt="." Then
dy =Left(jbc,i-1)
xd = Right(jbc,g-i)
End If
If cc > dy And cc < = xd Then
Exit For:End If:Next i
If cc > dy And cc < = xd Then
Exit For
End If:Next j:n=0
Do Until rs.Fields(n).Name=ph
n= n + 1: Loop
rs.FindFirst"基本尺寸=" & Trim (jbc) & ""
MsgBox "Ø"+js+"公差="+gc
End Sub
2 結論
通過尺寸公差的計算機輔助查找，說明了一種方法——尺寸公差、形位公差通過數(shù)據(jù)庫和軟件實現(xiàn)數(shù)字化。進一步講，可以實現(xiàn)設計手冊的電子化，提高設計效率。