機床數(shù)控課設-插補原理及流程圖設計-文庫吧資料
2025-06-11 17:46本頁面
【正文】 = L And Abs(j zyy) = L Then jrx = jrx m i1 = i L jry = jry m j1 = j L yichu = 1 ElseIf jrx = m And Abs(i zxx) = L Then jrx = jrx m i1 = i L yichu = 1 ElseIf jry = m And Abs(j zyy) = L Then jry = jry m j1 = j L yichu = 1 End If If yichu = 1 Then (i + a, j + b)(i1 + a, j1 + b), RGB(255, 0, 0) yichu = 0 End If i = i1 j = j1 jvx = Abs(j) jvy = Abs(i) Wend If Abs(i zx) = L Or Abs(j zy) = L Then If i 0 Then i = i L (i + a, j + b)(i1 + a, j1 + b), RGB(255, 0, 0) End If If Abs(i zx) = L Or Abs(j zy) = L Then u = u + 1 Call LXddashun3(i, j, zx, zy, r, L, a, b, n, u) End If End If End Sub Private Sub danbuddashun(ByVal x0, ByVal y0, ByVal x1, ByVal y1, ByVal r, ByVal L, a, b, ByVal n, count1, count2) qx = x0 a 39。************第３象限插補 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 If count = n Then For m = 1 To count Step 1 If f = 0 Then i1 = i L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f Abs(ye) ElseIf f 0 Then j1 = j L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m Else: count = 0 End If ElseIf xe 0 And ye 0 Then 39。******************第１象限插補 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 If count = n Then For m = 1 To count Step 1 If f = 0 Then i1 = i + L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f Abs(ye) ElseIf f 0 Then j1 = j + L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m Else: count = 0 End If ElseIf xe 0 And ye 0 Then 39。*************x負向 i = 0 j = 0 i1 = 0 j1 = 0 If count = n Then For a = 1 To count i1 = i L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 Next a Else: count = 0 End If End If flag1 = 1 End If If flag1 = 0 Then 39。*************x軸插補 If xe 0 Then 39。*************Ｙ正向 i = 0 j = 0 i1 = 0 j1 = 0 If count = n Then For a = 1 To count j1 = j + L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) j = j1 Next a Else: count = 0 End If ElseIf ye 0 Then 39。************逐點法單步插補 Static c
畢業(yè)設計相關推薦
鄂ICP備17016276號-1