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，当文件被共享时＃34;它可以有多个父文件夹ID，我们可以使用iEdmFile5 GetFirstFolderPosition和GetNextFolder中的方法进行枚举。

您可以参考 the documentation了解更多信息和示例。

如果您想获得单个文件，请尝试以下调整，看看是否这样做：

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

Solidworks EPDM＆＃39;获取最新消息＆＃39;来自VBA

1 个答案: