```
； 定义主程序名
O1000
； 选择刀具T1
T1
； 执行换刀命令M06
M06
； 快速定位到加工起点
G00 X-15.0 Z3.0
； 定义变量1，初值为0
1 = 0
； 使用WHILE循环，条件是1小于等于10
WHILE 1 <= 10
； 执行G92螺纹加工命令，每次加工深度为1，进给速度F1.5
G92 X-1 Z-5.0 F1.5
； 循环结束后，1增加0.5
1 = 1 + 0.5
END1
； 快速定位到X15.0的安全位置
G00 X15.0
```
这个宏程序首先定义了主程序名`O1000`，然后选择刀具`T1`并执行换刀命令`M06`。接着，它使用`G00`命令快速定位到加工起点`X-15.0 Z3.0`。然后定义一个变量`1`，初值为0。接下来使用`WHILE`循环，条件是`1`小于等于10，每次循环结束后`1`增加0.5。在循环内部执行`G92`螺纹加工命令，每次加工深度为`1`，进给速度`F1.5`。循环结束后，使用`G00`命令快速定位到`X15.0`的安全位置。