Мы так упрощали программу, правда, это  при резьбонарезании с радиальной подачей.   N190 S500 T1212 N200 M3 N210 X70 Z4 N220 X67.6 L1 N230 G0 G95 X67.3 L1 N240 G0 G95 X67 L1 N250 G0 G95 X66.8 L1 N260 G0 G95 X66.6 L1 N270 G0 G95 X66.5 L1 N280 G0 G95 X66.4 L1 N290 G0 G95 X66.36 L1 N300 G0 G95 X66.36 L1 N310 G0 G95 Z500 M5 M1 N320 M2 L1 N340 G33 Z-13 K1.5 N350 G0 X70 N360 Z4 M22 !