修改宏程序钻孔的方法如下：
设置打孔的快捷键
执行 `Tools` -> `Customize…`。
在 `Keyboard and Mouse` 栏目下，删除 `Complete Routing` 的快捷键。
设置新的打孔快捷键，例如按 `OK` 后，设置成功。以后双击鼠标就可以进行打孔。
设置宏命令
在 `Customize` 界面中，选择 `Macro Files` 下的 `Macro Command Files` 的 `打开` 图标，调入宏命令文件。
在 `Keyboard and Mouse` 栏目下的 `Active/Macros` 中，可以看到调入的宏命令。
选中 `vl1-2`，设置其快捷键为 `1`，依次设置 `vl2-5`，`vl5-6` 的快捷键分别为 `2`，`3`。
关闭 `Customize` 界面，回到 `PCB` 设计界面，按快捷键 `1` 将过孔层对设置为 `top` 到 `art02`。这样在 `TOP` 层进行布线或双击打孔时，软件将自动切换到第二层，再双击时又自动切换到 `TOP` 层。
钻孔循环宏程序
初始位置：`8`
参考位置：`9`
每次切削前工件钻孔表面高度：`5`
每次钻孔递增量：`3`
距离工件表面的安全间隙：`4`
每次开始钻孔进给下刀的高度：`6`
孔的最终位置：`7`
参考程序：
```
G90G54G40G1Z100F1000M03S1500
G1X0Y0
9=5
5=0
3=7
4=2
7=-41
N10
6=5+4
5=5-3
IF[5LE7]GOTO20
G0Z6
G1Z5F100
G0Z9
IF[5GT7]GOTO10
N20
G0Z6
G1Z7F100
G0Z9
G1Z5F200
Z100F1000
M5
M30
```
程序解释：初始赋值后，循环体里面，第一刀钻孔开始的位置 `6=5+4=2`，然后计算第一次钻孔深度 `5=5-3=-7`，判断 `IF[5LE7]GOTO20`，这个深度是否大于等于最终深度，如果满足则跳出循环到 `N20` 位置，直接按最终尺寸加工孔；如果没到深度，先退出至初始位置，`IF[5GT7]GOTO10` 跳转到 `N10` 位置，计算现在孔深度安全间隙高度 `6=5+4=-7+2=-5`，计算此时要钻的新深度 `5=5-3=-7-7`，然后按照前面的步骤进行，直到加工完毕。
通过以上步骤，你可以根据自己的需求修改宏程序，以实现不同的钻孔功能。建议在实际应用中，先备份原始宏程序，以便在需要时能够恢复。