用于将Solidworks零件另存为dxf文件的宏

Option Explicit

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 "No active document."
        Exit Sub
    End If
    
    If Not swModel.GetType = swDocPART Then
        MsgBox "Active document is not a part document."
        Exit Sub
    End If
    
    Set swPart = swModel
    
    Dim filename As String
    Dim path As String
    Dim dxfFilePath As String
    
    path = "C:\Path\To\Save\DXF\"
    filename = swModel.GetTitle
    
    ' Add .dxf extension to the filename
    If Right(filename, 4) <> ".dxf" Then
        filename = filename & ".dxf"
    End If
    
    ' Create full file path
    dxfFilePath = path & filename
    
    ' Save part as DXF
    swPart.ExportToDWG dxfFilePath, ""
    
    MsgBox "Part saved as DXF: " & dxfFilePath
End Sub