管材直線度檢測機系統設計畢業論文正-資料下載頁

【導讀】鋼管是應用最廣泛的鋼材品種..它的質量直接影響到經濟效益及人員的生命安全。徑鋼管廣泛應用于冶金、石油及化工等行業，它的質量關系到工業設備的安全。由于鑄造、加工、為了隨時了解鋼管的狀態,必須定期檢測其直線度從而決定其是否可繼續使用。直線度誤差測量是幾何計量領域中的一個基本測量項目，它是平面度、平行度、垂直。尺寸精度、圓度、粗糙度被稱為影響產品質量的四大因素。但是從目前幾何量領域的情況來看。直線度誤差測量的技術水平已落后于其他三個項目。不斷出現新技術，新成果。展與產品質量的要求是不相適應的，因此有必要探測各種新方法。縱觀世界對直線度誤差的測量方法，可總結歸納為如下兩大類。處理得到被測對象的直線度誤差值。無直線基準測量主要采用誤差分離法。向,經數據處理求出被測零件的直線度誤差。光隙法是用刀口尺作為理想直線測量直線度誤差的一種方法。直線度誤差大小可通過測刀口與表面間光隙

　　

【正文】 合金管數控砂帶磨床測量系統設計 39 ’定義每個截面的最大壁厚點 Dim maxPoint() As Integer ReDim maxPoint(N1) As Integer ’定義所有截面中的最大壁厚超差量 Dim errormax As Single Dim XStartPosition As Single ’加工時磨頭運動起始點 XStartPosition = dis Dim du As Single du = 360 Dim p As Integer Dim r As Integer Dim PiontNum As Integer ’每圈磨削點數 PiontNum = N2 + 1 Dim GrindingPitch As Single ’螺 旋線的螺距 ’螺旋線螺距的計算與磨頭移動速度及 A 軸轉速的設置有關 GrindingPitch = FeedRateGX / FeedRateGA Dim workpiece_long As Single ’工作長度 workpiece_long = l dis ’工作長度 =終點－起點 ’找出每個截面的最小壁厚 For i = 0 To N1 min_d(i, 0) = d(i, 0) For j = 0 To N2 If min_d(i, 0) d(i, j) Then min_d(i, 0) = d(i, j) 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 40 End If Next j Next i ’求得每個截面所有點的超差量 For i = 0 To N1 For j = 0 To N2 error00(i, j) = d(i, j) min_d(i, 0) ’超 差量 =該點壁厚－壁厚最小值 Next j Next i ’找出每個截面的最大壁厚超差量 For i = 0 To N1 max_error(i) = error00(i, 0) For j = 0 To N2 If max_error(i) error00(i, j) Then max_error(i) = error00(i, j) maxPoint(i) = j ’獲取每個截面的最大壁厚點 End If Next j Next i ’找出所有截面中的最大壁厚超差量 errormax = max_error(0) For i = 0 To N1 If errormax max_error(i) Then 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 41 errormax = max_error(i) End If Next i 二、判斷截面是否需要磨削 對于某截面的磨削判斷可采用如圖 26的方法。 圖 26 如果某點壁厚超差量超出允許值，則該點需要磨削，否則無需修磨。由于只對合金管有限個截面進行壁厚數據采集，用這些截面的數據來反應整根管坯的壁厚情況。在進行壁厚修磨時，采用讓合金管轉動，磨頭移動，二者運動合成后按照螺旋線軌跡對工件表面進行磨削。 對于檢測截面間的點進行修磨判斷時，可通過用與其接近的截面上角度對應相同的點來確定，如果該點離前一個截面接近，則用前一截面上 點的數據判斷，如果該點離后一個截面接近，則用后一個截面上點的數據判斷。設定某點距離左端面的距離為currentX，檢測截面間距為 distance，通過用 round 函數四舍五入的方法確定該點所在截面為 f = Round(currentX / distance, 0)。 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 42 定義螺距為 GrindingPitch，則螺距 =磨頭移動速度 /A 軸轉速，即 GrindingPitch = FeedRateGX / FeedRateGA。合金管每轉動一圈，磨頭移動一個螺距，在管面上磨削過一圈螺旋線。 定義每個截面檢測的點數為 PiontNum，磨削時也按照每轉一圈磨 PiontNum 個點的方法。定義壁厚檢測的長度為 workpiece_long，則總的磨削點數為 sum = Round(workpiece_long * PiontNum / GrindingPitch)。 對于壁厚滿足要求的截面，磨頭應當抬起，因此采用變量 NoGrinding 來判斷某截面是否需要修磨。如果 NoGrinding=False，則需要磨削，此時繼續判斷該截面需要整圈還是部分磨削。對于整圈磨削的截面，只需讓合金管轉動一圈即可。 對于只需部分磨削的截面，通過搜索到 該截面壁厚最大點，然后從該點向兩側搜索，找到磨削起點 Pstart 和磨削終點 Pend，如圖 27所示。 圖 27 上圖中，由磨削起點和磨削終點可以確定兩個區間，因此必須找到壁厚超差的那個區間，可通過定義一個變量 Pmax 來確定。從 Pstart 點開始按照 A軸轉向轉動一個角度至下一點，若該點壁厚超差，則 Pmax = 1，表明按照這種轉向即可得到磨削區間。否則， Pmax = － 1。磨削過程中，磨削區間越來越小，當完成對該區間的磨削時，Pstart 點便與 Pend 點重 合。 相應程序段如下（詳見附錄） 39。判斷是否需要整圈磨削 For j = 0 To N2 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 43 If error00(sectionNo, j) = nominal_thickness / 2 Then FullGrinding = False End If Next j 39。判斷是否需要磨削 For j = 0 To N2 If error00(sectionNo, j) nominal_thickness / 2 Then NoGrinding = False End If Next j If (NoGrinding = False) Then ’找到壁厚最大點，搜索磨削起點和終點 j = maxPoint(sectionNo) Do While error00(sectionNo, j) = nominal_thickness / 2 PstartNo = j j = j + 1 If j = N2 Then j = 0 End If Loop j = maxPoint(sectionNo) Do While error00(sectionNo, j) = nominal_thickness / 2 PendNo = j 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 44 j = j 1 If j = 1 Then j = N2 End If Loop If PstartNo PendNo Then temp = PstartNo PstartNo = PendNo PendNo = temp End If End If If PstartNo = PendNo Then NoGrinding = True End If ’確定磨削區間 If error00(sectionNo, PstartNo + 1) nominal_thickness / 2 Then PmaxNo = 1 Else PmaxNo = 1 End If 三、生成加工程序 對于所有點是否需要磨削判斷完畢后，開始進行修磨。整根管坯壁厚磨削所需次數 p 可根據合金管壁厚最大點超差量 errormax、允許超差量 nominal_thickness重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 45 和單次磨頭磨削量 nominal_Gringding_quantity 來 確 定 ， 即 p = Int((errormaxnominal_thickness) / nominal_Gringding_quantity) 開始磨削時，磨頭定位到起始點 StartPosition，并把該點作為坐標原點。合金管轉動相應角度，磨頭軸向移動相應距離，完成對壁厚超差點的磨削。當某點不用磨削時磨頭抬起，移動至下一個待磨削點。所有經磨削的點每磨削一次，壁厚超差量減去一次磨削量，然后繼續檢測壁厚是否達到要求，如果沒有繼續進行磨削。 根據上述思想，繪制流程圖 5，如圖 28所示。 是 否 轉 過 一 圈需 要 通 磨u = 0該 點 所 在 截 面 是否 需 要 修 磨進 行 整 圈 磨 削磨 頭 抬 起對 待 磨 削 區 間 進 行磨 削u = u + 1r = r + 1u = s u mYNNYNYNYr = pY結 束 圖 28 流程圖 5 相應程序段如下（詳見附錄） ’整根合金管磨削所需次數 p = Int((errormax nominal_thickness) / nominal_Gringding_quantity) If p = 1 Then 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 46 p = 1 End If ’坐標原點位置 Print 100, TRANS XStartPosition= + Str(XStartPosition) Dim sum As Long ’總磨削點數 Dim currentX As Single ’當前點的坐標值 sum = Round(workpiece_long * PiontNum / GrindingPitch) Dim FullGringding As Boolean Dim NoGrinding As Boolean Dim u As Integer Dim Pmax As Integer Dim Pstart As Integer ’磨削起點 Dim Pend As Integer ’磨削終點 Dim delta As Integer Dim f As Integer ’磨削點所在截面 Dim currentAngle As Integer ’當前角度