在CNC编程中，使用宏程序复制坐标通常涉及以下步骤：
记录当前坐标系状态
使用宏变量记录当前坐标系的状态。例如，使用变量1表示当前使用的坐标系编号。
切换坐标系
编写宏程序来切换坐标系。例如，使用O9001宏程序来切换到G54坐标系，并将1变量的值更新为新的坐标系编号。
复制坐标值
在宏程序中，可以通过循环遍历所有孔的位置，并将这些坐标值复制到另一个位置或文件中。例如，使用VBA宏在Excel中复制坐标点。
```vba
Option Explicit
Dim swApp As Object
Dim modelDoc As Object
Dim sketch As Object
Dim objExcel As Object
Dim objWorkBook As Object
Dim objWorkSheet As Object
Const FILE_NAME = "E:\Coordinates.xls"
Sub main（）
Set swApp = Application.SldWorks
Set modelDoc = swApp.ActiveDoc
If modelDoc Is Nothing Then
MsgBox "No active document!"
Exit Sub
End If
'// Get active sketch
Set sketch = modelDoc.SketchManager.ActiveSketch
If sketch Is Nothing Then
MsgBox "No active Sketch!"
Exit Sub
End If
'// Create a new Excel workbook and worksheet
Set objExcel = CreateObject（"Excel.Application"）
Set objWorkBook = objExcel.Workbooks.Add
Set objWorkSheet = objWorkBook.Sheets（1）
'// Copy coordinates to Excel
Dim i As Integer
i = 1
While i <= 6 ' Assuming there are 6 holes
objWorkSheet.Cells（1, 2 * i - 1）.Value = sketch.GeometryArray（i - 1）.X
objWorkSheet.Cells（1, 2 * i）.Value = sketch.GeometryArray（i - 1）.Y
i = i + 1
Wend
'// Save the workbook
objWorkBook.SaveAs FILE_NAME
objExcel.Quit
MsgBox "Coordinates exported to " & FILE_NAME
End Sub
```
这个宏程序会在SolidWorks中激活一个草图，并将草图中的前六个孔的坐标复制到Excel文件`E:\Coordinates.xls`中。你可以根据需要修改代码以适应不同的坐标系和孔的数量。
建议
确保你的CNC系统和编程环境支持宏程序的使用。
在实际应用中，可能需要根据具体的孔的位置和数量调整代码。
在使用宏程序时，务必注意坐标系的准确性和一致性，以避免加工错误。