【正文】 Else: count = 0 End If ElseIf ye 0 Then 39。*******步長(zhǎng) If L = 0 Then L = 1 = L End If If L 0 Then L = Abs(L) = L End If xe = x1 x0 ye = y1 y0 n = CInt(Abs(xe) / L) + CInt(Abs(ye) / L) 39。 《機(jī)床數(shù)控技術(shù)》課程設(shè)計(jì) 說(shuō)明書(shū) 班級(jí) :0511105 學(xué)號(hào) :0511105 姓名： 指導(dǎo)教師： 時(shí)間： 2021 年 1 月 地點(diǎn)：明故宮校區(qū)計(jì)算中心 目 錄 一、簡(jiǎn)要說(shuō)明 3 二、設(shè)計(jì)目的和 任 務(wù) 3 三、設(shè)計(jì)要求 3 四 .插補(bǔ)原理及流程圖設(shè)計(jì) 4 五 .變量說(shuō)明 6 六．程序界面及運(yùn)行截圖 6 七 . 源程序代碼 7 八參考文獻(xiàn) 18 一、簡(jiǎn)要說(shuō)明 插補(bǔ) （ Interpolation） 在數(shù)控機(jī)床中，刀具不能嚴(yán)格地按照要求加工的曲線 運(yùn)動(dòng)，只能用折線軌跡逼近所要加工的曲線。*******終點(diǎn) y1 = Val() L = Val() 39。***********Ｙ軸插補(bǔ) If ye 0 Then 39。*****************************換算后的起點(diǎn)，終點(diǎn)坐標(biāo) qy = y0 b zx = x1 a zy = y1 b u = 1 If qx = 0 And qy 0 Then Call danbuddashun1(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) ElseIf qx 0 And qy = 0 Then Call danbuddashun2(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) ElseIf qx = 0 And qy 0 Then Call danbuddashun3(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) ElseIf qx 0 And qy = 0 Then Call danbuddashun4(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) End If End Sub Private Sub danbuddashun1(ByVal qx, ByVal qy, ByVal zx, ByVal zy, ByVal r, ByVal L, a, b, ByVal n, u, count1, count2) i = qx 39。***********************４象限 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 For m = 1 To n 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 End If If flag1 = 0 Then 39。 三、設(shè)計(jì)要求 （ 1） 具有數(shù)據(jù)輸入界面，如起點(diǎn)、終點(diǎn)、圓心、半徑及插補(bǔ)步長(zhǎng)等； （ 2） 具有插補(bǔ)過(guò)程的動(dòng)態(tài)顯示功能，如單步插補(bǔ)、連續(xù)插補(bǔ)； （ 3） 適當(dāng)?shù)木幊陶Z(yǔ)言，詳細(xì)的程序設(shè)計(jì)流程圖，變量說(shuō)明、源程序； （ 4） 插補(bǔ)的步長(zhǎng)可調(diào)。 插補(bǔ)計(jì)算就是數(shù)控裝置根據(jù)輸入的基本數(shù)據(jù)，通過(guò)計(jì)算，把工件輪廓的形狀描述出來(lái)，邊計(jì)算邊根據(jù)計(jì)算結(jié)果向各 坐標(biāo)發(fā)出進(jìn)給脈沖，對(duì)應(yīng)每個(gè)脈沖，機(jī)床在響應(yīng)的坐標(biāo)方向上移動(dòng)一個(gè)脈沖當(dāng)量的距離，從而將工件加工出所需要輪廓的形狀。*************Ｙ負(fù)向 i = 0 j = 0 i1 = 0 j1 = 0 For a = 1 To n j1 = j L (x0, j + y0)(x0, j1 + y0), RGB(255, 0, 0) j = j1 Next a End If flag1 = 1 End If If ye = 0 Then 39。*************x負(fù)向 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 fla