【正文】 線 連 續(xù) 插 補 ： 2. 直 線 單 步 插 補 ： 弧 連 續(xù) 插 補 ： 4. 圓 弧 單 步 插 補 ： 七．程序代碼節(jié) 選 直線 Dim x0, y0, x1, y1, L, xe, ye As Single Dim n As Integer x0 = Val() 39。 （ 3） 掌握逐點比較法和 DDA 法插補的軟件實現(xiàn)基礎(chǔ)。 DA14—— DDA 法插補第 14 象限順圓弧 （ 1） 了解連續(xù)軌跡控制數(shù)控系統(tǒng)的組成原理。 二、設(shè)計目的 課設(shè)題目： 插補計算就是數(shù)控裝置根據(jù)輸入的基本數(shù)據(jù)，通過計算，把工件輪廓的形狀描述出來，邊計算邊根據(jù)計算結(jié)果向各 坐標(biāo)發(fā)出進給脈沖，對應(yīng)每個脈沖，機床在響應(yīng)的坐標(biāo)方向上移動一個脈沖當(dāng)量的距離，從而將工件加工出所需要輪廓的形狀。也可以說，已知曲線上的某些數(shù)據(jù)，按照某種算法計算已知點之間的中間點的方法，也稱為“數(shù)據(jù)點的密化”。 《機床數(shù)控技術(shù)》課程設(shè)計 說明書 班級 :0511105 學(xué)號 :0511105 姓名： 指導(dǎo)教師： 時間： 2021 年 1 月 地點：明故宮校區(qū)計算中心 目 錄 一、簡要說明 3 二、設(shè)計目的和 任 務(wù) 3 三、設(shè)計要求 3 四 .插補原理及流程圖設(shè)計 4 五 .變量說明 6 六．程序界面及運行截圖 6 七 . 源程序代碼 7 八參考文獻 18 一、簡要說明 插補 （ Interpolation） 在數(shù)控機床中，刀具不能嚴(yán)格地按照要求加工的曲線 運動，只能用折線軌跡逼近所要加工的曲線。 插補（ interpolation）定義：機床數(shù)控系統(tǒng)依照一定方法確定刀具運動軌跡的過程。數(shù)控裝置根據(jù)輸入的零件程序的信息，將程序段所描述的曲線的起點、終點之間的空間進行數(shù)據(jù)密化，從而形成要求的輪廓軌跡，這種“數(shù)據(jù)密化”機能就稱為“插補”。 插補的原理和算法很多，根據(jù)數(shù)控系統(tǒng)輸出到伺服驅(qū)動裝置的信號的不同，插補方法可歸納為基準(zhǔn)脈沖插補和數(shù)據(jù)采樣插補兩種類型。 PL4—— 逐點比較法插補第 4 象限直線 （ 2） 了解逐點比較法和 DDA 法插補直線和圓弧的基本 原理。 三、設(shè)計要求 （ 1） 具有數(shù)據(jù)輸入界面，如起點、終點、圓心、半徑及插補步長等； （ 2） 具有插補過程的動態(tài)顯示功能，如單步插補、連續(xù)插補； （ 3） 適當(dāng)?shù)木幊陶Z言，詳細(xì)的程序設(shè)計流程圖，變量說明、源程序； （ 4） 插補的步長可調(diào)。*******起點 y0 = Val() 39。*******終點 y1 = Val() L = Val() 39。*******終點判別 flag1 = 0 If xe = 0 Then 39。*************Ｙ正向 i = 0 j = 0 i1 = 0 j1 = 0 For a = 1 To n j1 = j + L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) j = j1 Next a ElseIf ye 0 Then 39。********X軸 If xe 0 Then 39。*************X負(fù)向 i = 0 j = 0 i1 = 0 j1 = 0 For a = 1 To n i1 = i L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 Next a End If flag1 = 1 End If If xe 0 And ye 0 Then 39。*********************** 2象限 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 ElseIf xe 0 And ye 0 Then 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)