以下是一个保存Solidworks零件为DXF文件的宏的示例代码：

Sub SaveAsDXF()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swPart As SldWorks.PartDoc
    
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    If swModel Is Nothing Then
        MsgBox "请打开一个零件文件", vbExclamation, "错误"
        Exit Sub
    End If
    
    If swModel.GetType <> swDocumentTypes_e.swDocPART Then
        MsgBox "当前打开的文件不是零件文件", vbExclamation, "错误"
        Exit Sub
    End If
    
    Set swPart = swModel
    
    Dim swDXFData As SldWorks.DXFData
    Set swDXFData = swPart.ExportToDWG2("", swExportToDWGOptions_e.swExportToDWG_ExportSheetMetal, "", "", False, False)
    
    If Not swDXFData Is Nothing Then
        Dim dxfPath As String
        dxfPath = Left(swModel.GetPathName, InStrRev(swModel.GetPathName, ".") - 1) & ".dxf"
        swDXFData.SaveAs dxfPath
        MsgBox "DXF文件保存成功", vbInformation, "成功"
    Else
        MsgBox "无法保存DXF文件", vbExclamation, "错误"
    End If
    
    Set swDXFData = Nothing
    Set swPart = Nothing
    Set swModel = Nothing
    Set swApp = Nothing
End Sub

要使用这个宏，请按照以下步骤进行操作：

1. 打开Solidworks。
2. 打开或创建一个零件文件。
3. 按下ALT+F11打开VBA编辑器。
4. 在VBA编辑器中，插入一个新的模块（如果没有）。
5. 将示例代码粘贴到新模块中。
6. 关闭VBA编辑器。
7. 在Solidworks的菜单栏上，选择“工具”>“宏”>“宏”。
8. 在弹出的对话框中，选择“SaveAsDXF”宏，并点击“运行”按钮。
9. 选择保存DXF文件的路径和文件名。
10. 点击“保存”按钮。

这个宏将根据打开的零件文件保存为DXF文件，并在保存成功后显示一个消息框。