来自 VBA 的 Solidworks EPDM 'Get latest'

Question

由于公司对 PDM 系统如何运行的策略，当用户签入文件时，将从用户缓存中删除本地副本。我的宏检出文件，编辑它们，然后再次签入。如果我尝试编辑刚刚编辑的文件，则会收到"找不到文件"错误（因为它已从缓存中删除）。我试图通过编写一个 sub 来解决这个问题，以便在编辑文件之前立即获取文件的最新副本，以确保始终存在文件但代码似乎无法检索文件。子如下。

Sub GetLatest(fName As String)
Dim vaultName As String
Dim eVault As IEdmVault13
Dim eFile As IEdmFile8
Dim BG As IEdmBatchGet
Dim files(1) As EdmSelItem
'log into the vault
vaultName = Config.ReadXMLElement(pathConfig, "vaultname")
Set eVault = New EdmVault5
If Not eVault.IsLoggedIn Then
    Call eVault.LoginAuto(vaultName, 0)
End If
'get the file to get lastest
Set eFile = eVault.GetFileFromPath(fName)
'put the file in an array
files(0).mlDocID = 0
files(0).mlProjID = eFile.ID
Set BG = eVault.CreateUtility(EdmUtil_BatchGet)
Call BG.AddSelection(eVault, files())
Call BG.CreateTree(0, EdmGetCmdFlags.Egcf_SkipExisting)
Call BG.GetFiles(0, Nothing)
End Sub

如果我在编辑文件之前在 EPDM 浏览器中手动"获取最新"，宏可以正常读取。该代码与Michael Dekoning在 https://forum.solidworks.com/thread/51105 发布的代码略有修改

Answer 1

乍一看，您似乎错误地填充了EdmSelItem属性。docID属性是文档的数据库 ID。 ProjID属性是包含文件夹的 ID。 要获取最新版本，您可以使用任何包含文件夹，因为它将在所有文件夹中签出。使用 EPDM，当文件"共享"时，它可以有多个它所属的父文件夹 ID，我们可以使用 iEdmFile5 GetFirstFolderPosition 和 GetNextFolder 中的方法枚举。

您可以参考文档以获取更多信息和示例。

如果要获取单个文件，请尝试以下调整，看看是否可以这样做：

Set eFile = eVault.GetFileFromPath(fName)
Dim eFolder as iEdmFolder5
Dim Pos as iEdmPos5
Set Pos=eFile.GetFirstFolderPosition
Set eFolder=eFile.GetNextFolder(Pos)
'Get the file from the folder
files(0).mlDocID = eFile.ID
files(0).mlProjID = eFolder.ID

当您提供DocID = 0时，它会告诉 EPDM 获取指定文件夹中的所有文件。 这样：

'Get all files from the folder
files(0).mlDocID = 0
files(0).mlProjID = eFolder.ID