加工中心宏程序自动刻字工件编号和时间

1、系统时间变量

FANUC系统为：#3011

默认格式为XXXXXXXX，如20221208，中间没有连接符，若需连接符可根据函数匹配添加。

2、子程序

将0-9数字的铣削加工分别编制子程序，通过数字匹配对应的程序进行顺序加工。

3、案例

O1000 主程序
(PROGRAM NAME )
(DATE, Day-Month-Year )
G0G17G40G49G80G90
(TOOL - 11 DIA. OFF. - 11 LEN. - 11 DIA. - 1.)
(刻字前面不变的)
T1M6；
G65 P1200；（调用刻字子程序,刻字:000~999）
M5；
G91G28Z0.M9；
G28X0.Y0.；
M30；
%

%
O1200 刻字子程序
T1M6
#1=0 ;定义计数常数
#2=19.5 ;定义字符起始偏移(X方向)
#3=2.0 ;字间距(X方向)
#4=#5221 ;记录当前G54坐标系X的机器坐标
#10=#4+#2 ;第一个字的坐标
WHILE[#1 LT 3]DO1
G90 G10 L2 P01 X#10
IF [#1 NE 0]GOTO5
G65 P1201 ;刻第一个字
GOTO5
IF [#1 NE 1]GOTO5
G65 P1202 ;刻第二个字
GOTO5
IF [#1 NE 2]GOTO5
G65 P1203 ;刻第三个字
N5 #5=#[101+#1] ;计数第几个字

N10 #10=#10+#3 ;下一个字的X坐标
N20 #1=#1+1. ;计数加1
END1
G90 G10 L2 P01 X#4 ;写回G54坐标系X的机器坐标
M99
%

%
O1201 ;刻第一个变字
#1=#101 ;下面程序是判断刻0~9中的哪个字符
IF [#1 NE 0]GOTO10
G65 P0010
G53
GOTO100
N10 IF [#1 NE 1]GOTO20
G65 P0001
G53
GOTO100
N20 IF [#1 NE 2]GOTO30
G65 P0002
GOTO100
N30 IF [#1 NE 3]GOTO40
G65 P0003
GOTO100
N40 IF [#1 NE 4]GOTO50
G65 P0004
GOTO100
N50 IF [#1 NE 5]GOTO60
G65 P0005
GOTO100
N60 IF [#1 NE 6]GOTO70
G65 P0006
GOTO100
N70 IF [#1 NE 7]GOTO80
G65 P0007
GOTO100
N80 IF [#1 NE 8]GOTO90
G65 P0008
GOTO100
N90 IF [#1 NE 9]GOTO100
G65 P0009
GOTO200
N200 M99
%

%
O1202 刻第二个变字
#1=#102 ;下面程序是判断刻0~9中的哪个字符
IF [#1 NE 0]GOTO10
G65 P10
GOTO100
N10 IF [#1 NE 1]GOTO20
G65 P1
GOTO100
N20 IF [#1 NE 2]GOTO30
G65 P2
GOTO100
N30 IF [#1 NE 3]GOTO40
G65 P3
GOTO100
N40 IF [#1 NE 4]GOTO50
G65 P4
GOTO100
N50 IF [#1 NE 5]GOTO60
G65 P5
GOTO100
N60 IF [#1 NE 6]GOTO70
G65 P6
GOTO100
N70 IF [#1 NE 7]GOTO80
G65 P7
GOTO100
N80 IF [#1 NE 8]GOTO90
G65 P8
GOTO100
N90 IF [#1 NE 9]GOTO100
G65 P9
#102=0
#101=#101+1. GOTO200
N100 #102=#102+1.
N200 M99
%

%
O1203 ;刻第三个变字
#1=#103 ;下面程序是判断刻0~9中的哪个字符
IF [#1 NE 0]GOTO10
G65 P10
GOTO300
N10 IF [#1 NE 1]GOTO20
G65 P1
GOTO300
N20 IF [#1 NE 2]GOTO30
G65 P2
GOTO300
N30 IF [#1 NE 3]GOTO40
G65 P3
GOTO300
N40 IF [#1 NE 4]GOTO50
G65 P4
GOTO300
N50 IF [#1 NE 5]GOTO60
G65 P5
GOTO300
N60 IF [#1 NE 6]GOTO70
G65 P6
GOTO300
N70 IF [#1 NE 7]GOTO80
G65 P7
GOTO300
N80 IF [#1 NE 8]GOTO90
G65 P8
GOTO300
N90 IF [#1 NE 9]GOTO300
G65 P9
#2=#102
#103=0
IF [#2 NE 9] GOTO200

#102=0
#101=#101+1.
GOTO400
N200 #102=#102+1.
GOTO N400
N300 #103=#103+1.
N400 M99
%