西门子840D数控系统的排孔编程可以通过以下步骤进行：
安装编程软件
在PC上安装西门子840D钻孔编程模块，软件名称为Step7 Micro / Win。
网络连接
根据设备的连接结构，使用西门子的网络部署工具设置单元的网络连接。
配置参数
使用PC上的Step7 Micro / Win工具，连接Siemen总线，并根据不同的设备能力配置参数。
设置编程语言
使用Step7 Micro / Win工具，设置相应的编程语言，完成西门子总线上的钻孔编程。
定义直线打孔工具
使用TOOL CALL指令定义直线打孔工具，例如：
```plaintext
TOOL CALL "LINE PUNCH", 1, 0, 100, 0
```
其中，“LINE PUNCH”是工具名称，“1”是刀具编号，“0”是长度补偿号，“100”是刀具半径，“0”是刀具长度。
定义直线打孔轨迹
使用G81指令定义直线打孔轨迹，指定轨迹起点、终点和每个孔的坐标位置，以及孔深和进给速度等参数，例如：
```plaintext
G81 X100.0 Y100.0 Z-10.0 R2.0 F500.0
```
其中，“X100.0”和“Y100.0”是轨迹起点，“Z-10.0”是孔深，“R2.0”是每个孔的距离，“F500.0”是进给速度。
循环打孔
使用循环语句重复打孔，例如：
```plaintext
N10 G90 G00 X100.0 Y100.0 Z-10.0
N20 G17 G0 Z0 F500.0
N30 G17 G1 Z-10.0 F500.0
N40 G17 G1 Z-20.0 F500.0
N50 G3 X20 Y5 Z-20.0
```
其中，N10至N50表示循环的各个步骤，G90表示工件坐标系原点，G0表示快速定位到起始点，G17表示选择XY平面，G0表示快速定位到Z轴负方向，G1表示沿Z轴移动到指定深度，G3表示快速定位到指定坐标。
通过以上步骤，可以实现西门子840D数控系统的排孔编程。建议在实际编程过程中，根据具体的加工需求和机床配置，调整相应的参数和指令，以确保编程的准确性和有效性。