管材直線度檢測機系統設計畢業論文正-文庫吧在線文庫

　　

【正文】 + 1YYf ( q ) = T r u eYYj = 0d ( i , j ) = d ( q , j )j = N 2Nf ( i ) = T r u ed ( i , j ) = d ( i 1 , j )j = j + 1j = N 2YNj = 0Ni = i + 1i = N 1Y結 束NYNN 圖 21 流程圖 2 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 32 相應程序段如下（詳見附錄） Dim i, j, k, q As Integer Dim m, n As Integer m = N1 n = N2 k = 0 q = 0 39。 相應程序段如下（詳見附錄） Dim S(), Ang() As Single Dim h, r As Integer h = N1 r = N2 ReDim S(h), Ang(r) As Single For i = 0 To h S(i) = dis + distance * i ’截面所在位置 Next i For j = 0 To r Ang(j) = (360 / (N2 + 1)) * (j + 1) ’檢測點角度 Next j Open D:\ For Append As 2 For i = 0 To h For j = 0 To r Print 2, S(i)。 相應程序段如下（詳見附錄） ’定義每個截面的壁厚最小值，壁厚最大值，每個點的壁厚超 差量 Dim min_d(), max_error(), error00() As Single ReDim min_d(N1, 0), max_error(N1), error00(N1, N2) As Single 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 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的方法。 定義每個截面檢測的點數為 PiontNum，磨削時也按照每轉一圈磨 PiontNum 個點的方法。否則， Pmax = － 1。所有經磨削的點每磨削一次，壁厚超差量減去一次磨削量，然后繼續檢測壁厚是否達到要求，如果沒有繼續進行磨削。判斷是否需要磨削 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 三、生成加工程序 對于所有點是否需要磨削判斷完畢后，開始進行修磨。對于整圈磨削的截面，只需讓合金管轉動一圈即可。 對于檢測截面間的點進行修磨判斷時，可通過用與其接近的截面上角度對應相同的點來確定，如果該點離前一個截面接近，則用前一截面上 點的數據判斷，如果該點離后一個截面接近，則用后一個截面上點的數據判斷。 d(i, j) 39。從第一個數據正常的點開始，逐個判斷該點以后的數據是否異常，如果異常以前一點替代。如果截面異常，則 f(i)置為 True Else f(i) = False End If Next i If count2 = N1 \ 3 Then ’截面異常數超過 1/3表明合金管有問題 MsgBox 通知用戶該管存在問題 Else Call DataDealWith End If End Sub （ 2）數據處理二 沒有彈出對話框提示用戶合金管存在問題時，表明異常截面數少于三分之一，于是進行下一步數據處理。先取兩兩間的差值，之后取絕對值得到的三個數 S S S3，即為這三個偏差量，則 S1 = Abs(a(i, j) b(i, j)) S2 = Abs(b(i, j) c(i, j)) S3 = Abs(c(i, j) a(i, j)) 將兩兩數據間的偏差允許量設置為 ，則若三個偏差量均超過 ，則先將該點厚度置為 0；若三個偏差量均在 ，則取三次檢測值的平均值；若三個偏差量有一個在 ，則將對應的兩次檢測值取平均。讀取數據 Private Sub Command1_Click() Call GetParam Dim m, q1, q2 As Integer Dim S1, S2, S3 As Single Dim g() As Single ReDim a(N1, N2), b(N1, N2), c(N1, N2), d(N1, N2), g(10000, 2) As Single m = (N1 + 1) * (N2 + 1) 1 39。測量終點位置 distance = Val() 39。 假設循環次數為 m+1，則 m = (N1 + 1) * (N2 + 1) 1 每個點的三次檢測值，采用二維數組 g(10000,2)來存放， g（ 0,0）代表第一點的第一次檢測值， g（ 0,1）代表第一點的第二次檢測值， g（ 0,2）代表第一點的第三次檢測值， g（ 1,0）代表第二點的第一次檢測值，以此類推。每個點均有三次檢測值，分三行顯示。水內可能存在雜質或者合金管內外表面存在裂紋等，將會導致壁厚測量結果不準確，因此采取對單個截面測量完成后再測量兩次的方法，保證每個點有三次測量值，使 得最終結果更準確可信。 圖 17 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 15 4 檢測及加工程序設計 人機界面設計 一、合金 管參數設定 合金管進行壁厚檢測是通過等間距檢測若干截面，每個截面等角度間隔檢測若干點來實現的，所以需要確定測量起點和測量終點所在位置，單個截面內測量一個點后合金管轉動的角度，測量完一個截面后傳感器軸向移動的位移。 %，測量精度≤ %。同時將氣缸與磨頭固連，使得密封塊可由磨頭電機傳遞動力，從而軸向移動，使機構更精簡，避免電機過多。此外，根據互換性的原則，對于不同的合金管，可根據其管徑加工不同的密封塊與其對應。 圖 4 截面測量方法 圖 5 點測量方法 加工方案設計 由于只對合金管有限個截面進行壁厚數據采集，用這些截面的數據來反映整根管