SolidWorks VBA宏保存文件至PDM Vault时的数据卡异常问题求助

云上老周

2026-6-29

SolidWorks VBA宏保存PDM Vault文件的问题

我正在开发一款SolidWorks VBA宏，用于在PDM Vault中命名并保存新模型。该宏使用内置的SaveAs3方法，支持用户选择三种保存选项：另存为、另存为副本并继续和另存为副本并打开。

遇到的问题

保存完成后，PDM数据卡不会像常规保存那样自动弹出，我认为这与后续更严重的问题相关。
用户填写以此方式保存的文件的数据卡并检入后，数据卡中的所有数据会丢失。而检出文件、重新填写数据卡并再次检入，数据则能正常保留。

测试用精简代码

Option Explicit

Const newModelName As String = "C:\VaultName\FolderName\ModelName.SLDPRT"
Const tipo As Long = swDocPART 'swDocASSEMBLY

'This option changes depending on which test I want to run. I switch between them commenting one or the other.
Const opzioni As Long = swSaveAsOptions_Copy
'Const opzioni As Long = swSaveAsOptions_CopyAndOpen

Sub main()
    
    UserForm1.Show
    
End Sub

Sub SalvaNuovoCodice()

    Dim swApp As SldWorks.SldWorks
    Dim swModel As ModelDoc2
    
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    If swModel.SaveAs3(newModelName, swSaveAsCurrentVersion, opzioni) = 0 Then

        'If I use the option swSaveAsOptions_Copy and I want to open the file after the save I use the line below. In this test version I just comment it if I don't need it.
        Set swModel = swApp.OpenDoc(newModelName, tipo)
        
    Else
    
        MsgBox "Il salvataggio non è andato a buon fine."
        
    End If

End Sub