关于发那科系统自动分中宏程序
关于发那科系统自动分中宏程序
%
O001（）
#5201=0
#5202=0
#5203=0
#101=[？+15.]（X-L）长
#102=[？+15.]（Y-L）宽
#103=150（Z）
（手动碰边X方向右手边）
G0 G91 Z#103 （以下全部打单节执行）
#110=#5021
X-#101
Z-#103（手动碰边X方向）
#111=#5021
#112=[#111-#110]/2.0
X#112
#5221=#5021
（手动移动自Y面向人一边并碰边）
G0 G91 Z#103
#120=#5022
Y-#102
Z-#103（手动碰边Y方向）
Z#103
#121=#5022
#122=[#121-#120]/2.0
Y#122
#5222=#5022
G0 G91 G28 Z0.
G0 G90 G54 X0. Y0.
%
以上程序适合不能在边中间位置分中的工件
%
O001（）
#5201=0
#5202=0
#5203=0
#520=54（G54-G59）
#521=0（0-1）
#101=[？+15.]（X-L）长
#102=[？+15.]（Y-L）宽
#103=150（Z）
IF[#521 EQ 1] GOTO2
GOTO1
（手动碰边X方向右手边）
N1
G0 G91 Z#103 （以下全部打单节执行）
#110=#5021
X-#101
Z-#103（手动碰边X方向）
#111=#5021
#112=[#111-#110]/2.0
X#112
（手动移动自Y面向人一边并碰边）
G0 G91 Z#103
#120=#5022
Y-#102
Z-#103（手动碰边Y方向）
Z#103
#121=#5022
#122=[#121-#120]/2.0
Y#122
GOTO2
N2
IF[#520 EQ 54]GOTO10
IF[#520 EQ 55]GOTO11
IF[#520 EQ 56]GOTO12
IF[#520 EQ 57]GOTO13
IF[#520 EQ 58]GOTO14
IF[#520 EQ 59]GOTO15
GOTO9
N10
G10 P1X[#5021] Y[#5022]
N11
G10 P2 X[#5021] Y[#5022]
N12
G10 P3 X[#5021] Y[#5022]
N13
G10 P4 X[#5021] Y[#5022]
N14
G10 P5 X[#5021] Y[#5022]
N15
G10 P6X[#5021] Y[#5022]
GOTO9
N9
G0 G91 G28 Z0.
G0 G90 G#520 X0. Y0.
%
这个程序适合可以在边中间位置分中的工件
#520设置你所需要抄数的工件坐标系，直接修改为G54-G55
如果出现方向走反的情况，直接修改红色位置，负改正，正改负即可。
#101和#102“？”号处填写工件在机床上的X和Y尺寸，15是分中棒尺寸加大5
此程序以包含自动计算和抄数。
不懂宏程序者慎用切忌