AnsweredAssumed Answered

Managing PDM Pro cache

Question asked by Louise Cleroux on Aug 24, 2020
Latest reply on Sep 1, 2020 by Amen Allah Jlili

Like • Show 0 Likes0
Comment • 3

I am looking into the possibility of writing some code to manage the PDM Pro local cache for a specific group of users. PDM Pro allows to specify folders to be cached but caching entire folders for them would represent too many files. I am wondering if it would be possible to cache only parts and assemblies (*.sldprt and *.sldasm), never drawings (*.slddrw).

I have done a fair share of macros for SolidWorks and for PDM Workgroup but none at all for PDM Pro. We have been using PDM Pro only since June of this year.

Anyone has any comments on the feasibility of making a macro to get the latest version of a bunch of files?

Anyone has any pointers to get me started?

No one else has this question

Outcomes

Amen Allah Jlili Aug 25, 2020 1:50 AM

Yup. This is possible. You accomplish that with with this method:

2014 SOLIDWORKS API Help - GetFileCopy Method (IEdmEnumeratorVersion5)
Retrieves a copy of a file with the specified version from the archive and deposits it in the specified folder.

To manage the local cache:

2016 SOLIDWORKS API Help - IEdmClearLocalCache Interface

Removes specified checked-in files and folders from the local file vault view cache. Only files that are not referenced by checked-out files are cleared.

Best,
Amen

Bluebyte.biz

Actions

Louise Cleroux @ Amen Allah Jlili on Sep 1, 2020 1:30 PM

Thank you Amen. The two references were a great help!

It works in the sense that it does cycle trhough all the folders and sub-folders, and files but now I am stuck with the GetFileCopy parameters (see in bold). Here is what I have so far:

===================================================================

Option Explicit

Dim pdmVault As EdmVault5
Dim pdmFolder As IEdmFolder5

---------------------------------------------------------------------------------------------------------------------------

Sub ChercheFichierCache(pdmFold As IEdmFolder5)

   Dim sExtension As String
   Dim pdmSubFolder As IEdmFolder5
   Dim pdmSubFolderPos As IEdmPos5
   Dim pdmFile As IEdmFile5
   Dim pdmFilePos As IEdmPos5

   Set pdmFilePos = pdmFold.GetFirstFilePosition

   While Not pdmFilePos.IsNull

      Set pdmFile = pdmFold.GetNextFile(pdmFilePos)
      sExtension = Right(pdmFile.Name, 6)

If sExtension = "SLDPRT" Or (sExtension = "SLDASM" And Left(Right(pdmFile.Name, 10), 1) <> "E") Then
Debug.Print pdmFile.Name

         pdmFile.GetFileCopy 0, "", pdmFold.LocalPath, EdmGetFlag.EdmGet_Simple
     End If

   Wend

Set pdmSubFolderPos = pdmFold.GetFirstSubFolderPosition()

While Not pdmSubFolderPos.IsNull
   Set pdmSubFolder = pdmFold.GetNextSubFolder(pdmSubFolderPos)
   Debug.Print "-------------"
   Debug.Print pdmSubFolder.Name
   ChercheFichierCache pdmSubFolder
Wend

End Sub

-------------------------------------------------------------------------------------------------------------------------------------------------------

Sub main()

Set pdmVault = New EdmVault5
pdmVault.LoginAuto "ICC", 0

If pdmVault.IsLoggedIn Then
Set pdmFolder = pdmVault.BrowseForFolder(0, "C:\xxx\")

   If pdmFolder.Name <> "" Then
      Debug.Print "-------------"
      Debug.Print pdmFolder.Name
      ChercheFichierCache pdmFolder
   End If
Else
   MsgBox "Veuillez vous connecter au coffre-fort."
End If

End Sub

=========================================================================

Any suggestions regarding the syntax for the GetFileCopy are welcome.

Actions

Amen Allah Jlili Sep 1, 2020 2:47 PM

Tu dois donner le "window handle (lparentWnd) comme premier argument. Généralement, c'est pas un zero.

Passe moi un email sur amen@bluebyte.biz - Je pense pouvoir t'aider

Actions

3 Replies

Amen Allah Jlili Aug 25, 2020 1:50 AM
Mark Correct
Correct Answer
Yup. This is possible. You accomplish that with with this method:

2014 SOLIDWORKS API Help - GetFileCopy Method (IEdmEnumeratorVersion5)
Retrieves a copy of a file with the specified version from the archive and deposits it in the specified folder.

To manage the local cache:

2016 SOLIDWORKS API Help - IEdmClearLocalCache Interface
Removes specified checked-in files and folders from the local file vault view cache. Only files that are not referenced by checked-out files are cleared.

Best,
Amen
Bluebyte.biz
Like • Show 0 Likes0
Actions
- Louise Cleroux @ Amen Allah Jlili on Sep 1, 2020 1:30 PM
  Mark Correct
  Correct Answer
  Thank you Amen. The two references were a great help!
  
  It works in the sense that it does cycle trhough all the folders and sub-folders, and files but now I am stuck with the GetFileCopy parameters (see in bold). Here is what I have so far:
  
  ===================================================================
  Option Explicit
  Dim pdmVault As EdmVault5
  Dim pdmFolder As IEdmFolder5
  ---------------------------------------------------------------------------------------------------------------------------
  Sub ChercheFichierCache(pdmFold As IEdmFolder5)
  
     Dim sExtension As String
     Dim pdmSubFolder As IEdmFolder5
     Dim pdmSubFolderPos As IEdmPos5
     Dim pdmFile As IEdmFile5
     Dim pdmFilePos As IEdmPos5
  
     Set pdmFilePos = pdmFold.GetFirstFilePosition
  
     While Not pdmFilePos.IsNull
  
        Set pdmFile = pdmFold.GetNextFile(pdmFilePos)
        sExtension = Right(pdmFile.Name, 6)
  
        If sExtension = "SLDPRT" Or (sExtension = "SLDASM" And Left(Right(pdmFile.Name, 10), 1) <> "E") Then
           Debug.Print pdmFile.Name
           pdmFile.GetFileCopy 0, "", pdmFold.LocalPath, EdmGetFlag.EdmGet_Simple
       End If
  
     Wend
  
  Set pdmSubFolderPos = pdmFold.GetFirstSubFolderPosition()
  
  While Not pdmSubFolderPos.IsNull
     Set pdmSubFolder = pdmFold.GetNextSubFolder(pdmSubFolderPos)
     Debug.Print "-------------"
     Debug.Print pdmSubFolder.Name
     ChercheFichierCache pdmSubFolder
  Wend
  
  End Sub
  -------------------------------------------------------------------------------------------------------------------------------------------------------
  Sub main()
  
  Set pdmVault = New EdmVault5
  pdmVault.LoginAuto "ICC", 0
  
  If pdmVault.IsLoggedIn Then
  Set pdmFolder = pdmVault.BrowseForFolder(0, "C:\xxx\")
  
     If pdmFolder.Name <> "" Then
        Debug.Print "-------------"
        Debug.Print pdmFolder.Name
        ChercheFichierCache pdmFolder
     End If
  Else
     MsgBox "Veuillez vous connecter au coffre-fort."
  End If
  
  End Sub
  =========================================================================
  
  Any suggestions regarding the syntax for the GetFileCopy are welcome.
  Like • Show 0 Likes0
  Actions
Amen Allah Jlili Sep 1, 2020 2:47 PM
Mark Correct
Correct Answer
Tu dois donner le "window handle (lparentWnd) comme premier argument. Généralement, c'est pas un zero.

Passe moi un email sur amen@bluebyte.biz - Je pense pouvoir t'aider
Like • Show 0 Likes0
Actions

Managing PDM Pro cache

Outcomes

Related Content

Recommended Content