I'm using pack and go API from the example and it doesn't seem to work to rename the files. it copies with original file names. When I checked pgSetFileNames(i) output the names are correct but it seems to fail rename.
However it works when a prefix and suffix is given.
I tried the macro given in this forum and followed the discussions but couldn't fix. I'm using SW2014.
My code is as below. Any help is appreciated.
swApp = CreateObject("SldWorks.Application")
' Open assembly
openFile = "C:\test.SLDASM"
swModelDoc = swApp.OpenDoc6(openFile, swDocumentTypes_e.swDocASSEMBLY, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
swModelDocExt = swModelDoc.Extension
' Get Pack and Go object
swPackAndGo = swModelDocExt.GetPackAndGo
' Get number of documents in assembly
namesCount = swPackAndGo.GetDocumentNamesCount
' Include any drawings and simulation results
swPackAndGo.IncludeDrawings = True
' Get current paths and filenames of the assembly's documents
status = swPackAndGo.GetDocumentNames(pgFileNames)
' Get current save-to paths and filenames of the assembly's documents
status = swPackAndGo.GetDocumentSaveToNames(pgFileNames, pgFileStatus)
' Folder where to save the files
myPath = "C:\packngotest\"
' Create your own filenames for the model's documents
ReDim pgSetFileNames(namesCount - 1)
j = 0
For i = 0 To (namesCount - 1)
myFileName = pgFileNames(i)
' Determine type of SolidWorks file based on file extension
If InStr(LCase(myFileName), "sldprt") > 0 Then
myFileName = "777-test-0" & j & ".sldprt"
ElseIf InStr(LCase(myFileName), "sldasm") > 0 Then
myFileName = "777-test-0" & j & ".sldasm"
ElseIf InStr(LCase(myFileName), "slddrw") > 0 Then
myFileName = "777-test-0" & j & ".slddrw"
Else
' Only packing up SolidWorks files
Exit Function
End If
' pgSetFileNames(i) = myPath & myFileName
pgSetFileNames(i) = myFileName
MsgBox(" My path and filename is: " & pgSetFileNames(i))
j = j + 1
Next i
status = swPackAndGo.SetSaveToName(True, myPath)
status = swPackAndGo.SetDocumentSaveToNames(pgSetFileNames)
