如何合并SolidWorks宏代码以单文件导出带折弯线的DWG/DXF？

核心需求梳理 #

• 仅生成单个DXF导出文件
• 文件以零件文件名命名，而非视图名称
• 保留正常导出钣金视图的功能

宏代码问题分析 #

• 第一款宏：能正确导出钣金视图，但因重复执行导出逻辑或遍历多视图生成两个文件
• 第二款宏：文件名命名逻辑正确，但存在API调用错误或环境校验缺失导致运行异常

合并修复版宏代码 #

Option Explicit

Sub ExportSheetMetalToSingleDXF()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim partFileName As String
    Dim exportPath As String
    
    ' 获取SolidWorks应用实例
    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
    
    ' 确认是钣金零件
    If Not swModel.IsSheetMetal Then
        MsgBox "当前零件不是钣金类型，无法导出平板DXF！", vbExclamation
        Exit Sub
    End If
    
    ' 提取零件文件名（不含扩展名）
    partFileName = Left(swModel.GetPathName, InStrRev(swModel.GetPathName, ".") - 1)
    ' 拼接导出路径（同零件目录，同名DXF）
    exportPath = partFileName & ".dxf"
    
    ' 激活钣金平板型式
    If Not swModel.ShowNamedView2("Flat-Pattern", swViewShowOptions_e.swViewShowOptions_True) Then
        MsgBox "无法激活钣金平板视图，请检查零件是否存在平板型式！", vbExclamation
        Exit Sub
    End If
    
    ' 设置导出选项：仅导出可见组件+导出平板型式
    Dim exportOpts As Long
    exportOpts = swExportToDWGOrDXFOptions_e.swExportToDWGOrDXF_ExportOnlyVisibleComponents + _
                 swExportToDWGOrDXFOptions_e.swExportToDWGOrDXF_ExportFlatPattern
    
    ' 执行导出
    If swModel.SaveAs4(exportPath, swSaveAsVersion_e.swSaveAsCurrentVersion, swSaveAsOptions_e.swSaveAsOptions_Silent, Nothing) Then
        MsgBox "DXF导出成功：" & vbCrLf & exportPath, vbInformation
    Else
        MsgBox "DXF导出失败，请检查文件权限或路径！", vbCritical
    End If
End Sub

关键优化说明 #

• 单文件导出：仅激活平板视图后执行一次导出操作，避免重复导出逻辑
• 文件名控制：直接从零件路径提取主文件名，确保导出文件与零件同名
• 稳定性提升：添加多层前置校验（文档类型、钣金类型、平板视图存在性），避免运行异常

使用提示 #

• 运行宏前需确保零件已保存（否则无法获取完整路径生成文件名）
• 若需自定义导出目录，可修改exportPath变量，示例：exportPath = "D:\SheetMetalExports\" & partFileName & ".dxf"

内容的提问来源于stack exchange，提问作者Eduardo GM