PCB钻孔编程代码通常使用 G代码和M代码进行编写。G代码用于控制钻孔机的运动轨迹，包括移动坐标、选择刀具、设置进给速度等指令，以实现对钻孔机的精确定位和精确控制。M代码则用于控制钻孔机的辅助功能，如切换主轴转速、冷却液开关等。
具体的编程代码编写步骤如下：
打开PCB脚本编辑器：
使用专门的PCB脚本编辑器，如Altium Designer、PADS、Mentor Graphics等，这些软件提供了钻孔机编程的功能。
编写钻孔数据：
在编辑器中编写钻孔数据，包括孔的位置、直径、深度等信息。例如，可以编写一个文本文件，包含孔的类型、名称、网络、钻孔位置、电镀状态、X坐标、Y坐标等信息。
生成编程代码：
将编写的钻孔数据导入到钻孔设备的控制系统中，生成相应的G代码和M代码。这些代码由一系列指令组成，用于控制钻孔机的运动轨迹和辅助功能。
测试和验证：
在实际钻孔过程中，测试和验证生成的编程代码，确保其正确性和可靠性。
```vb
Dim DrillCount As Long
Sub Main
' Open temporary text file
Dim filename As String
filename = DefaultFilePath & "\tmp" & CInt(Rnd() * 10000) & ".txt"
Open filename For Output As 1
' Output Headers
Print 1, "Type; Space(9); Name; Space(26); Net; Space(28); Drill; Space(25); Plated; Space(2); X; Space(29); Y"
' Example drill data
Dim drillData(1 To 5) As Variant
drillData(1) = Array("Drill", "Net1", "X1", "Y1", "100", "100", "Plated")
drillData(2) = Array("Drill", "Net2", "X2", "Y2", "200", "200", "Plated")
drillData(3) = Array("Drill", "Net3", "X3", "Y3", "300", "300", "Plated")
drillData(4) = Array("Drill", "Net4", "X4", "Y4", "400", "400", "Plated")
drillData(5) = Array("Drill", "Net5", "X5", "Y5", "500", "500", "Plated")
' Output drill data to file
For i As Integer = LBound(drillData) To UBound(drillData)
Print 1, drillData(i)(0) & ";" & Space(9) & drillData(i)(1) & ";" & Space(26) & drillData(i)(2) & ";" & Space(28) & drillData(i)(3) & ";" & Space(25) & drillData(i)(4) & ";" & Space(2) & drillData(i)(5) & ";" & Space(29) & drillData(i)(6)
Next i
' Close the file
Close 1
End Sub
```
这个示例代码创建了一个临时文本文件，并输出了5个钻孔点的数据，包括类型、名称、网络、X坐标、Y坐标和电镀状态。实际应用中，可以根据需要编写更多的钻孔数据和指令。