数控加工代码的识别

为了完成数控加工程序仿真图形的生成，要求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，

ym)。利用矢量算法简单快捷的求出圆心坐标，其计算圆心的关键公式为：如果弧AB是G02的劣弧，如图3-8(a)所示，其圆心为02，此圆心02的坐标是:

如果弧AB是G02的优弧如图3-8(b)所示，其圆心为，此圆心Ch的坐标是:

本文采摘自“基于PMAC的加工中心开放式数控系统研究”，因为编辑困难导致有些函数、表格、图片、内容无法显示，有需要者可以在网络中查找相关文章！

本文由伯特利数控整理发表文章均来自网络仅供学习参考，转载请注明！

相关产品可查阅：介绍页（线轨加工中心）、介绍页（龙门加工中心）、介绍页（卧式加工中心）