以下是一个数控车床刀尖补偿的编程实例：
G54 G17 G40 G49 G80 G90 -- 设置工作坐标系为G54，并清除刀具半径补偿、取消编程模式、直线差补偿，以及绝对编程模式
G21 -- 设置单位为毫米
T0101 -- 选择工具刀号为T0101
M06 -- 自动刀具更换
S1500 M03 -- 设置主轴转速为1500转/分钟，并启动主轴
G00 X100. Y100. -- 快速移动到X坐标100、Y坐标100的位置
G43 H01 Z10. -- 启用刀具长度补偿，并设置刀具长度补偿偏置为H01，并将Z轴定位到10的位置
M08 -- 启动冷却液开关
G01 Z-5. F200. -- 线性插补，将Z轴移动到-5的位置，进给速度为200毫米/分钟
G41 D01 X50. Y50. F100. -- 启用刀具半径补偿，将刀具半径补偿偏置设为D01，以及将X坐标和Y坐标设为50，并设置进给速度为100毫米/分钟
X60. Y60. -- 将X坐标和Y坐标设为60
X70. Y70. -- 将X坐标和Y坐标设为70
G02 X100. Y100. R10. -- 以顺时针方向进行圆弧插补，终点坐标为X100、Y100，半径为10
G40 -- 取消刀具半径补偿
G00 Z10. -- 快速移动到Z轴10的位置
M09 -- 关闭冷却液开关
M05 -- 停止主轴
M30 -- 程序结束