记得前面有个帖子问如何能用程序清除零点偏置里的各坐标数据，省的手动逐一删除，有些麻烦，以下是我工作时用的程序，运行此程序便可将参数里零点偏置的各坐标数据归零：
$P_UFIR[1]=CTRANS(X,0,Y,0,Z,0,B,0);G54
$P_UFIR[2]=CTRANS(X,0,Y,0,Z,0,B,0);G55
$P_UFIR[3]=CTRANS(X,0,Y,0,Z,0,B,0);G56
$P_UFIR[4]=CTRANS(X,0,Y,0,Z,0,B,0);G57
M2
把该程序储存起来，用的时候调出来运行即可，可以试一下。