这是螺补程序，你看是否能用。如有问题请告知。
%_N_PITCH_X_MPF
;$PATH=/_N_WKS_DIR/_N_RUN_X_WPD
$AA_ENC_COMP_STEP[0,X1]=100.0000
$AA_ENC_COMP_MIN[0,X1]=-800.0000
$AA_ENC_COMP_MAX[0,X1]=800.0000
$AA_ENC_COMP[0,0,X1]=0.0
$AA_ENC_COMP[0,1,X1]=0.0
$AA_ENC_COMP[0,2,X1]=0.0
$AA_ENC_COMP[0,3,X1]=0.0
$AA_ENC_COMP[0,4,X1]=0.0
$AA_ENC_COMP[0,5,X1]=0.0
$AA_ENC_COMP[0,6,X1]=0.0
$AA_ENC_COMP[0,7,X1]=0.0
$AA_ENC_COMP[0,8,X1]=0.0
$AA_ENC_COMP[0,9,X1]=0.0
$AA_ENC_COMP[0,10,X1]=0.
$AA_ENC_COMP[0,11,X1]=0.0
$AA_ENC_COMP[0,12,X1]=0.0
$AA_ENC_COMP[0,13,X1]=0.0
$AA_ENC_COMP[0,14,X1]=0.02
$AA_ENC_COMP[0,15,X1]=0.01
$AA_ENC_COMP[0,16,X1]=0.0
M30
%_N_PITCH_Y_MPF
;$PATH=/_N_WKS_DIR/_N_RUN_X_WPD
$AA_ENC_COMP_STEP[0,Y1]=100.0
$AA_ENC_COMP_MIN[0,Y1]=-1200.0
$AA_ENC_COMP_MAX[0,Y1]=0.0
$AA_ENC_COMP[0,0,Y1]=0.0
$AA_ENC_COMP[0,1,Y1]=0.0
$AA_ENC_COMP[0,2,Y1]=0.0
$AA_ENC_COMP[0,3,Y1]=0.0
$AA_ENC_COMP[0,4,Y1]=0.0
$AA_ENC_COMP[0,5,Y1]=0.0
$AA_ENC_COMP[0,6,Y1]=0.0
$AA_ENC_COMP[0,7,Y1]=0.012
$AA_ENC_COMP[0,8,Y1]=0.0
$AA_ENC_COMP[0,9,Y1]=0.0
$AA_ENC_COMP[0,10,Y1]=0.
$AA_ENC_COMP[0,11,Y1]=0.034
$AA_ENC_COMP[0,12,Y1]=0.0
M30
;$PATH=/_N_WKS_DIR/_N_RUN_X_WPD
$AA_ENC_COMP_STEP[0,Z1]=100
$AA_ENC_COMP_MIN[0,Z1]=-100.0
$AA_ENC_COMP_MAX[0,Z1]=0.0
$AA_ENC_COMP[0,0,Z1]=-0.0
$AA_ENC_COMP[0,1,Z1]=-0.0
$AA_ENC_COMP[0,2,Z1]=-0.0
$AA_ENC_COMP[0,3,Z1]=-0.0
$AA_ENC_COMP[0,4,Z1]=-0.0
$AA_ENC_COMP[0,5,Z1]=-0.0
$AA_ENC_COMP[0,6,Z1]=-0.0
$AA_ENC_COMP[0,7,Z1]=-0.0
$AA_ENC_COMP[0,8,Z1]=-0.0
$AA_ENC_COMP[0,9,Z1]=-0.0
$AA_ENC_COMP[0,10,Z1]=-0.0
$AA_ENC_COMP[0,11,Z1]=-0.0
$AA_ENC_COMP[0,12,Z1]=-0.0
$AA_ENC_COMP[0,13,Z1]=-0.00
$AA_ENC_COMP[0,14,Z1]=-0.004
$AA_ENC_COMP[0,15,Z1]=-0.003
$AA_ENC_COMP[0,16,Z1]=0.0
M30
%_N_RUN_X_MPF
;$PATH=/_N_WKS_DIR/_N_RUN_X_WPD
G90G94
G0X800
G91G0X1
X-1
G4F5
R5=1
AAA:
R3=1
XP:
G91G0X-100
STOPRE
R3=R3+1
STOPRE
G4F5
IF R3<16 GOTOB XP
G91G0X-1
X1
G4F5
R4=1
XN:
G91G0X100
STOPRE
R4=R4+1
STOPRE
G4F5
IF R4<16 GOTOB XN
X1
X-1
G4F5
R5=R5+1
IF R5<30 GOTOB AAA
M30
%_N_RUN_Y_MPF
;$PATH=/_N_WKS_DIR/_N_RUN_X_WPD
G90G94
G0Y0
G91G0Y1
Y-1
G4F5
R5=1
AAA:
R3=1
YP:
G91G0Y-100
STOPRE
R3=R3+1
STOPRE
G4F5
IF R3<13 GOTOB YP
G91G0Y-1
Y1
G4F5
R4=1
YN:
G91G0Y100
STOPRE
R4=R4+1
STOPRE
G4F5
IF R4<13 GOTOB YN
Y1
Y-1
G4F5
R5=R5+1
IF R5<30 GOTOB AAA
M30
%_N_RUN_Z_MPF
;$PATH=/_N_WKS_DIR/_N_RUN_X_WPD
G90G94
G0Z0
G91G0Z0.5
Z-0.5
G4F5
R5=1
AAA:
R3=1
ZP:
G91G0Z-100
STOPRE
R3=R3+1
STOPRE
G4F5
IF R3<11 GOTOB ZP
G91G0Z-0.5
Z0.5
G4F5
R4=1
ZN:
G91G0Z47.5
STOPRE
R4=R4+1
STOPRE
G4F5
IF R4<11 GOTOB ZN
Z0.5
Z-0.5
G4F5
R5=R5+1
IF R5<30 GOTOB AAA
M30