宏程序往复车削的编程主要涉及设定车削的参数、计算车削路径的坐标点以及控制车削的移动。以下是一个简单的宏程序示例，用于往复车削一个矩形轮廓：
```fanuc
% O0001
G00 X0 Z150.
G98 24 = 80 （短轴半径， X 轴方向）
26 = 100 （长轴半径， Z 轴方向）
7 = 0.1 （Z 轴取点的间隔距离）
1 = 26 + 7 （Z 轴方向最大值， 假设为顶点）
23 = 3.15 （Z 轴方向最小值）
WHILE [1 GT 23] DO 1
1 = 1 - 7 （计算每次 Z 轴的坐标值）
IF [1 GT 23] GOTO 9
1 = 23 （最后一次把 Z 轴终点坐标赋值给1）
N9
3 = 2 * 24 * SQRT[1 - （1*1） / （26*26）] （X 轴坐标值计算， 此处按直径编程）
G01 X3 Z1 F100
END 1
M30 % ZX
```
解释
初始化
`G00 X0 Z150.`：将机床移动到起始位置（X=0, Z=150）。
`G98 24 = 80`：设置短轴半径为80（X轴方向）。
`26 = 100`：设置长轴半径为100（Z轴方向）。
`7 = 0.1`：设置Z轴取点的间隔距离为0.1。
`1 = 26 + 7`：计算Z轴方向的最大值（假设为顶点）。
`23 = 3.15`：设置Z轴方向的最小值。
循环车削
`WHILE [1 GT 23]`：当Z轴坐标大于或等于最小值时，继续循环。
`1 = 1 - 7`：计算每次Z轴的坐标值。
`IF [1 GT 23]`：如果Z轴坐标仍大于最小值，跳转到N9。
`1 = 23`：最后一次把Z轴终点坐标赋值给1。
`N9`：准备执行下一个循环。
`3 = 2 * 24 * SQRT[1 - （1*1） / （26*26）]`：计算X轴坐标值（按直径编程）。
`G01 X3 Z1 F100`：执行车削指令，移动到计算出的X和Z坐标，速度为100。
结束
`END 1`：结束循环。
`M30 % ZX`：机床回到初始位置，结束程序。
这个宏程序可以用于往复车削一个矩形轮廓，通过调整参数可以适应不同的车削需求。请根据实际车削的零件尺寸和形状调整相关参数。