固化成子程序——以后按一次循环启动就完事：把下面内容输进程序文件，命名为 L100.SPF（或任意名），存在循环子程序目录里：

L100.SPF  （对矩形工件自动建 G54）

G90 G40 G17

MSG("请用寻边器先碰 X 左侧，然后按 NC-Start")

STOPRE

R1=$AA_IM[X]            ;左侧

MSG("再碰 X 右侧，然后按 NC-Start")

STOPRE

R2=$AA_IM[X]            ;右侧

MSG("再碰 Y 前侧，然后按 NC-Start")

STOPRE

R4=$AA_IM[Y]            ;前侧

MSG("再碰 Y 后侧，然后按 NC-Start")

STOPRE

R5=$AA_IM[Y]            ;后侧

R3=(R1+R2)/2            ;X 中心

R6=(R4+R5)/2            ;Y 中心

$P_UIFR[1,X,TR]=R3      ;写 G54-X

$P_UIFR[1,Y,TR]=R6      ;写 G54-Y

MSG("G54 已对中完成，X 中心=",R3," Y 中心=",R6)

M17；

以后只要装刀、对刀，主程序里写一句

L100

按一次循环启动，系统会一步步提示，四下敲完自动把 G54 写进去。