西门子840D系统的循环编程可以通过以下步骤进行：
确定循环类型
CYCLE81：用于中心钻孔循环，包含参数如退刀平面距离（RTP）、基准平面距离（RFP）、安全距离（SDIS）、最终钻孔深度（DP）和相对基准平面的最终钻孔深度（DPR）。
CYCLE82：用于钻锪沉孔循环，包含参数如退刀平面距离（RTP）、基准平面距离（RFP）、安全距离（SDIS）、最终钻孔深度（DP）、相对基准平面的最终钻孔深度（DPR）和沉孔直径（DTB）。
编写循环体
循环体包含需要重复执行的语句。例如，一个简单的钻孔循环可以包含移动刀具、钻孔和退刀等操作。
使用循环控制语句
可以使用FOR循环、WHILE循环等控制语句来编写多次循环的代码。首先确定循环次数，然后在循环语句中定义变量，用于记录当前循环次数。每次循环时，执行相应的操作，并将变量加1。循环条件判断变量是否达到设定的循环次数，如果未达到则继续执行循环，达到则跳出循环。
调用用户循环程序
西门子840D系统提供了专用的用户循环菜单，用户可以在此菜单下创建和调用用户循环程序（变量子程序）。这些程序可以不在主程序中声明而直接调用，提高编程效率。
子程序编程
对于复杂的加工操作，可以使用子程序编程。子程序可以包含一系列的操作，并通过M98指令调用。子程序的使用可以简化主程序的结构，提高代码的可读性和可维护性。
示例
```plaintext
O1234
N10
FOR i = 1 TO 12
N20
IF i = 1 THEN
G0 X0 Y0 Z100
END IF
N25
X = X + 1.0
N30
CYCLE81（10, 0, 3, -50）
N60
X = X + 1.0
N70
CYCLE81（10, 0, 3, -50）
N90
M99
```
在这个示例中，使用FOR循环控制12次钻孔操作，每次钻孔后刀具退回到安全距离，然后移动到下一个位置。
建议
在编写循环程序时，确保理解每个循环参数的意义，并根据实际需要设置合适的值。
使用子程序可以将复杂的操作封装起来，提高代码的模块化和可重用性。
循环控制语句的使用可以提高编程的灵活性和效率，确保循环能够正确执行到指定的次数。