PDM Script Help

Thanks a lot Simon,

Will fix those up and see how I go!

Hi Ulf,

I didn't know about the VBA editor! That is exactly what I need to hopefully figure some things out. Very hard to work out what's going on with no debug environment.

I copied the Me.Handle.ToInt32() from a Solidworks example so I hope that bit at least is right.

Thanks a lot!

Hi Ulf,

Thanks to the VBA Editor in Solidworks I have my task working as it should!

Unfortunately I have copied it into the task add in script section, and it still does absolutely nothing. My best guess is that the references I added in the editor, aren't included in the task add in. But I could be wrong. This is the script as it is now, excuse the dodgy sleep function, I'll fix that later:

Dim swApp As Object
Dim swModel As Object
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim swExportPDFData     As SldWorks.ExportPdfData
Dim Errors As Long
Dim Warnings As Long
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)


Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swCustPropMgr = swModel.Extension.CustomPropertyManager(Empty)


'get file number
    Dim drawingNumber As String
    swCustPropMgr.Get3 "Drawing number", True, drawingNumber, Empty


'get file revision
    Dim fileRevision As String
    swCustPropMgr.Get3 "Revision", True, fileRevision, Empty


'get document recipient
    Dim docRecipient As String
    docRecipient = "Factory"


'get date as string
    Dim docDate As String
    docDate = Format(Date, "yyyy-MM-dd")


'get vault path
    Dim vaultPath As String
    vaultPath = "C:\PDMVault"


'create save folder
    Dim folderPath As String
    folderPath = "\Document Transmittals\" & docRecipient & "\" & docDate
    Dim Vault As Object
    Set Vault = CreateObject("ConisioLib.EdmVault")
    Vault.LoginAuto "PDMVault", 0
    Dim CreatedFolder As IEdmFolder5
    Set CreatedFolder = Vault.RootFolder.CreateFolderPath(folderPath, 0)


'create save name
    Dim saveName As String
    saveName = vaultPath & folderPath & "\" & drawingNumber & "-" & fileRevision
    Dim saveFile As String


'if file is drawing save as PDF
    If swModel.GetType = 3 Then
        saveFile = saveName & ".pdf"
        Set swExportPDFData = swApp.GetExportFileData(1)
        swModel.Extension.SaveAs saveFile, 0, 1, swExportPDFData, Errors, Warnings
        


'if file is part and has sheet metal save flat pattern as DXF
    ElseIf swModel.GetType = 1 Then
        Dim sheetMetal As Integer
        sheetMetal = swModel.GetBendState
        If sheetMetal <> 0 Then
            saveFile = saveName & ".dxf"
            bRet = swModel.ExportFlatPatternView(saveFile, 1)
        End If
    Else
        Set swApp = Application.SldWorks
        End Sub
    End If
    
'check file in
    Sleep (10000)
    Dim checkVault As EdmVault5
    Set checkVault = New EdmVault5
    checkVault.LoginAuto "PDMVault", 0
    Dim checkFile As IEdmFile5
    Set checkFile = checkVault.GetFileFromPath(saveFile)
    checkFile.UnlockFile 0, ""
    
Set swApp = Application.SldWorks
End Sub

Any idea what may cause it to not work?

Thanks a lot,

Tom.

Finally discovered this buried in the forums, but in case anyone else needs the answer:

    Dim folderPath As String

    folderPath = "\Document Transmittals\" & docRecipient & "\" & docDate

    Dim Vault As Object

    Set Vault = CreateObject("ConisioLib.EdmVault")

    Vault.LoginAuto "PDMVault", 0

    Dim CreatedFolder As IEdmFolder5

    Set CreatedFolder = Vault.RootFolder.CreateFolderPath(folderPath, 0)