国产香蕉在线观看,日韩欧美第一页,久久久国产精

72种无遮挡啪啪的姿势-天堂av电影-国产精品99999-老司机福利在线观看-久久久国产一区二区三区-黄页免费视频-日本大片在线观看-在线一区二区视频-久久久99精品-超碰天天干-丁香六月综合激情-夏目彩春娇喘呻吟高潮迭起-亚洲国产精品成人综合久久久-欧美国产一级片-大桥未久视频在线观看

數控加工代碼的識別

為了完成數控加工程序仿真圖形的生成，要求VB程序能識別數控代碼，比如G01直線插補、G03圓弧插補等，然后將程序轉入相應的指令模塊中，進行插補運算及顯示[36]。 數控加工中心中使用的典型語句模式為[36]:

N□□□G□□G□□G□□X±□□□Y±□□□Z±□□□I□□□J□□□K□□□F

□□S□□T□□M□□M□□

其中□代表一位十進制數字。

基于PMAC加工中心數控系統采取直接從能顯示數控代碼的文本框中讀取數控代碼，再進一步分析的方法。數控代碼的識別過程是：直接將文本框中的數控代碼讀入到字符竄變量中，然后根據數控加工代碼的每一行的結束標志”;”，來將其分割成一行一行的代碼，放入字符竄數組，再分析字符竄數組的每一個元素即每一行數控代碼[36]。在數控代碼的分析過程中，考慮到數控系統只是進行圖形仿真，所以在對代碼進行識別的時候，關鍵就是識別出G代碼、X代碼、R代碼等[36]。程序識別的關鍵語句如下：

t1 = Split (stra1， "；") '以符號“；”進行分行

i = 1

For i = 1 To UBound (t1) - 1

For nextchar = 8 To Len (t1 (i))

Select Case Mid (t1 (i)， nextchar， 1)

Case "G" '提取字母 G

lg = InStr(nextchar， t1(i)， "G"，1)

num = Mid (t1(i)，lg + 1，2)

Select Case num

Case "02" Text2.Text = "G02" n = 2

Case "01" n = 1

……

End Select

Case "X" '提取字母 X

j = InStr (t1 (i)，"X")

x(i) = Val(Mid(t1(i)，j + 1，3)) '提取 XY 后面的數值，放到數組 X(i),Y(i)里面

……

End Select

Next nextchar

Dim yanse

If n = "" ThenElseIf n = 1 Or n = 0 Then

If n = 0 Then yanse = vbGreen

Else yanse = vbBlack

End If

Call 直線(dqdx，dqdy，CDbl(x(i))，CDbl(y(i))，yanse) '調用直線插補子程序

dqdx = CDbl(x(i))

dqdy = CDbl(y(i))

Else If n = 2 Then

Call 圓弧(dqdx，dqdy，CDbl(x(i))，CDbl(y(i))，dRadius) '調用圓弧插補子程序

dqdx = CDbl(x(i))

dqdy = CDbl(y(i))

End If

Next i

2.圓弧插補R編程

在數控零件加工圖紙上，一般都用半徑R來表示圓弧，故R編程格式對于數控程序員來說是非常便利的[37]。但是，在數控系統內部必須知道圓心的坐標，才能進行圓弧插補[37]。因此，在R編程方式下，數控系統需要解決已知兩點的坐標和圓弧半徑，求解圓心坐標的問題[37]。影響圓心坐標的因素很多，如圓弧的長短、順時針走刀、逆時針走刀以及起止點的相對位置等，如圖3-8所示，假設已知圓弧半徑R、起點A(Xl，yi)和終點B(x2, y2),滿足條件的圓心有兩個OKXi, Y2),連接AB和ChCb,其交點坐標為M(xm，