公差計(jì)算機(jī)輔助查找的研究
時(shí)間:2011-04-19 22:23:19 來(lái)源:未知
計(jì)算機(jī)輔助公差設(shè)計(jì)(Computer-Aided Tolerancing，CAT)，就是在機(jī)械產(chǎn)品的設(shè)計(jì)、加工、裝配、檢驗(yàn)等過(guò)程中。利用計(jì)算機(jī)對(duì)產(chǎn)品及其霉部件的尺寸和公差進(jìn)行并行優(yōu)化選擇和監(jiān)控，力圖用最低的成本，設(shè)計(jì)并制造出滿足用戶精度要求的產(chǎn)品,CAT也是實(shí)現(xiàn)CAD和CAM集成的核心技術(shù)之一，但CAT技術(shù)遠(yuǎn)遠(yuǎn)落后CAD/CAM及共集成技術(shù)，已成為影響設(shè)計(jì)和制造信息集成的瓶頸環(huán)節(jié)。
國(guó)際生產(chǎn)下程學(xué)會(huì)(CIRP)原主席R.Weill曾撰文指出：CAD/CAM信息集成主要是公差信息的集成，如不加以解決，CAD/CAM集成就難以實(shí)現(xiàn)。楊叔子院上也曾指出：公差設(shè)計(jì)在機(jī)械產(chǎn)品設(shè)計(jì)中占有重要的地位，但公差分析和設(shè)計(jì)的研究遠(yuǎn)遠(yuǎn)落后于CAD、CAM自身的研究，使其無(wú)法與目前的CAD/CAM集成、CIMS的發(fā)展相適應(yīng)，從而已成為制約它們進(jìn)一步發(fā)展的一大關(guān)鍵所在。
現(xiàn)代化的機(jī)械工業(yè)，首先要求機(jī)械零件只有互換性，才能實(shí)現(xiàn)高效、專業(yè)化的生產(chǎn)。互換性不但促進(jìn)了自動(dòng)化生產(chǎn)的發(fā)展，也有利于降低生產(chǎn)成本，提高生產(chǎn)質(zhì)量。
表 公差庫(kù)樣式
基本尺寸
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 計(jì)算機(jī)輔助公差查找實(shí)例
零部件在幾何參數(shù)方面的互換性體現(xiàn)在公差制上。公差由標(biāo)準(zhǔn)公差和基本偏差組成，基本偏差是用來(lái)確定公差帶相對(duì)于零線位置的上偏差或下偏差。基本偏差是國(guó)標(biāo)使公差帶位置標(biāo)準(zhǔn)化的唯一指標(biāo)，根據(jù)基本偏差代號(hào)(簡(jiǎn)稱為公差代號(hào))來(lái)確定，孔的公差代號(hào)用大寫字母來(lái)表示，軸的公差代號(hào)用小寫字母來(lái)表示。在編制工藝文件時(shí)，公差的查找往往需要翻手冊(cè)，是造成工藝編制效率不高的重要原因。采用數(shù)據(jù)庫(kù)和SQL語(yǔ)句查詢機(jī)制實(shí)現(xiàn)公差的實(shí)時(shí)查找，免去了翻手冊(cè)之苦。通過(guò)Access的二維數(shù)據(jù)庫(kù)，把公差表搬入計(jì)算機(jī)中。上表是庫(kù)結(jié)構(gòu)圖例。
公差查找查詢模塊的流程圖如下：
公差查找查詢模塊的流程圖
公差查詢摸塊的入口參數(shù)有三個(gè)—一基本尺寸、公差代號(hào)、公差等級(jí)。查詢的結(jié)果由查詢模塊出口參數(shù)-基本尺寸、公差代號(hào)、上偏差和下偏差表示。下面是部分代碼：
Private Sub mnu公差查找_Click()
#p#分頁(yè)標(biāo)題#e#
js=InputBox("請(qǐng)輸入基本尺寸及公差代號(hào)："，"公差查找")
If js="" Then
Exit Sub:End If
Set mDbCAPP=DBEngine.OpenDatabase("C"&"公差庫(kù).mdb")
h= len (js)
For m=1 to 8
str = Mid(js,m,1)
If Asc (str)> 96 Then
Set rs = mDbCAPP.OpenRecordset("軸尺寸公差庫(kù)",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("孔尺寸公差庫(kù)",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 結(jié)論
通過(guò)尺寸公差的計(jì)算機(jī)輔助查找，說(shuō)明了一種方法——尺寸公差、形位公差通過(guò)數(shù)據(jù)庫(kù)和軟件實(shí)現(xiàn)數(shù)字化。進(jìn)一步講，可以實(shí)現(xiàn)設(shè)計(jì)手冊(cè)的電子化，提高設(shè)計(jì)效率。