给管子钻孔的编程程序可以根据不同的编程语言和软件进行编写。以下是一个基于G代码的钻孔程序示例，适用于加工中心：
```gcode
% O0001 （加工中心钻孔编程示例）
G90 G54 G17 G40 G49 G80 ； 设置绝对坐标系、工作坐标系、平面选择、刀具半径补偿取消、切削参数取消
T1 M06 ； 更换刀具，刀具号为1
S2000 M03 ； 设定主轴转速为2000转/分钟，主轴正转
G00 X0 Y0 Z0 ； 快速定位到工件坐标原点
M08 ； 冷却液开启
G43 Z50 H01 ； 启用刀具长度补偿，刀具长度补偿号为1，刀具长度补偿值为50mm
G01 Z-5 F500 ； 在Z轴方向下降5mm，进给速率为500毫米/分钟
G81 X10 Y20 R5 F200 ； 钻孔循环，依次在X=10mm, Y=20mm的位置进行钻孔，循环R5mm，进给速率为200毫米/分钟
G80 ； 钻孔循环取消
G00 Z50 ； 提刀到安全高度
M09 ； 冷却液关闭
M30 ； 程序结束
```
解释
G90：
设置绝对坐标系。
G54：
设置工作坐标系。
G17：
选择平面。
G40：
取消刀具半径补偿。
G49：
取消切削参数。
G80：
取消循环。
T1 M06：
更换刀具，刀具号为1。
S2000 M03：
设定主轴转速为2000转/分钟，主轴正转。
G00 X0 Y0 Z0：
快速定位到工件坐标原点。
M08：
开启冷却液。
G43 Z50 H01：
启用刀具长度补偿，刀具长度补偿号为1，刀具长度补偿值为50mm。
G01 Z-5 F500：
在Z轴方向下降5mm，进给速率为500毫米/分钟。
G81 X10 Y20 R5 F200：
钻孔循环，依次在X=10mm, Y=20mm的位置进行钻孔，循环R5mm，进给速率为200毫米/分钟。
G80：
取消钻孔循环。
G00 Z50：
提刀到安全高度。
M09：
关闭冷却液。
M30：
程序结束。
建议
使用专用软件：如AutoCAD、Mastercam、SolidWorks等，这些软件可以通过绘图和参数设定等功能，辅助进行钻孔编程，提高编程的准确性和效率。
刀具补偿：在编程过程中，需要考虑刀具的实际直径和补偿值，以保证钻孔的准确尺寸。
路径规划：根据图纸和工艺要求，确定钻孔路径，确保路径避开工件边缘和其他特殊要求。
仿真验证：在实际操作前，可以使用仿真软件进行验证，确保程序的正确性。
通过以上步骤和示例代码，您可以为管子钻孔编写一个有效的编程程序。