分享FANUC系统半自动分中宏程序

法兰克系统，在没有雷尼绍的情况下，大家是否都是用相对坐标归零？然后还要计算，最后实现分中？下面的程序本人已经过实践，不是什么高科技，但是加工效率有显著提升（只是有点费启动按键）。
感兴趣的朋友可以参考下:       

%
O0003 
M6T2
M3S300
G0G90G54X0Y0
M1
(X) 
N154#1=#5021
M1
#2=#5021
#3=[#1+#2]/2
#5221=#3
M1
(Y) 
N1111#4=#5022 
M1
#5=#5022
#6=[#4+#5]/2
#5222=#6
M1
M30 

（下面的这些是自动输入各刀具补偿   对应刀号N检索即可  避免手动输入出错）

N1#11001=#5023
M30 
N2#11002=#5023
M30 
N3#11003=#5023
M30 
N4#11004=#5023
M30 
N5#11005=#5023
M30 
N6#11006=#5023
M30 
N7#11007=#5023
M30 
N8#11008=#5023
M30 
N9#11009=#5023
M30 
N10#11010=#5023 
M30 
N11#11011=#5023 
M30 
N12#11012=#5023 
M30 
N13#11013=#5023 
M30 
N14#11014=#5023 
M30 
N15#11015=#5023 
M30 
N16#11016=#5023 
M30 
N17#11017=#5023 
M30 
N18#11018=#5023 
M30 
N19#11019=#5023 
M30 
N20#11020=#5023 
M30 
N21#11021=#5023 
M30 
%