Hello,
I am using VB.net to automate the pack and go process for an assembly. The Solidworks API help actually has some code for how to do this. My problem is that the code does not work as I think it was intended to.
The code produces new assembly, part, and drawing files in the existing folder but does not add anything to the intended folder. The solidworks files in the existing folder do get the prefix and suffix that are part of the code.
Does anyone have suggestions on what needs to change so that the output files go to the new folder that I created (the intended path)?
Code and output from the immediate window below:
Public Sub Main()
Dim swModelDoc As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swPackAndGo As PackAndGo
Dim openFile As String
Dim myFileName As String
Dim pgFileNames As Object = Nothing
Dim pgFileStatus As Object = Nothing
Dim pgSetFileNames() As String
Dim pgGetFileNames As Object
Dim pgDocumentStatus As Object
Dim status As Boolean
Dim warnings As Integer
Dim errors As Integer
Dim i As Integer
Dim j As Integer
Dim namesCount As Integer
Dim myPath As String
Dim statuses As Object
Dim swApp As SldWorks.SldWorks
'Opens Solidworks
swApp = New SldWorks.SldWorks()
' Open assembly
openFile = "C:\Workzones\Club House\Club House.SLDASM"
swModelDoc = swApp.OpenDoc6(openFile, swDocumentTypes_e.swDocASSEMBLY, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
swModelDocExt = swModelDoc.Extension
' Get Pack and Go object
Debug.Print("Pack and Go")
swPackAndGo = swModelDocExt.GetPackAndGo
' Get number of documents in assembly
namesCount = swPackAndGo.GetDocumentNamesCount
Debug.Print(" Number of model documents: " & namesCount)
' Include any drawings and simulation results
swPackAndGo.IncludeDrawings = True
Debug.Print(" Include drawings: " & swPackAndGo.IncludeDrawings)
swPackAndGo.IncludeSimulationResults = True
Debug.Print(" Include simulation results: " & swPackAndGo.IncludeSimulationResults)
' Get current paths and filenames of the assembly's documents
status = swPackAndGo.GetDocumentNames(pgFileNames)
Debug.Print("")
Debug.Print(" Current path and filenames: ")
If Not pgFileNames Is Nothing Then
For i = 0 To UBound(pgFileNames)
Debug.Print(" The path and filename is: " & pgFileNames(i))
Next i
End If
' Get current save-to paths and filenames of the assembly's documents
status = swPackAndGo.GetDocumentSaveToNames(pgFileNames, pgFileStatus)
Debug.Print("")
Debug.Print(" Current default save-to filenames: ")
If Not pgFileNames Is Nothing Then
For i = 0 To UBound(pgFileNames)
Debug.Print(" The path and filename is: " & pgFileNames(i))
Next i
End If
' Folder where to save the files
myPath = "C:\temp\"
' Create your own filenames for the model's documents
ReDim pgSetFileNames(namesCount - 1)
Debug.Print("")
Debug.Print(" My Pack and Go path and filenames before adding prefix and suffix: ")
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 = j & ".sldprt"
ElseIf InStr(LCase(myFileName), "sldasm") > 0 Then
myFileName = j & ".sldasm"
ElseIf InStr(LCase(myFileName), "slddrw") > 0 Then
myFileName = j & ".slddrw"
Else
' Only packing up SolidWorks files
Exit Sub
End If
pgSetFileNames(i) = myPath & myFileName
Debug.Print(" My path and filename is: " & pgSetFileNames(i))
j = j + 1
Next i
' If a drawing document existed for the assembly or part document
' used in this example, then you have to ensure that the
' drawing document copied by Pack and Go references the assembly
' or part document copied by Pack and Go and not the original
' assembly or part document
' Calling IPackAndGo::SetSaveToName sets the target for drawings
' included in Pack and Go and overrides a call to
' IPackAndGo::SetDocumentSaveToNames
' status = swPackAndGo.SetSaveToName(True, myPath)
' Set document paths and filenames for Pack and Go
status = swPackAndGo.SetDocumentSaveToNames(pgSetFileNames)
' Add a prefix and suffix to the filenames
swPackAndGo.AddPrefix = "SW"
swPackAndGo.AddSuffix = "PackAndGo"
' Verify document paths and filenames after adding prefix and suffix
ReDim pgGetFileNames(namesCount - 1)
ReDim pgDocumentStatus(namesCount - 1)
status = swPackAndGo.GetDocumentSaveToNames(pgGetFileNames, pgDocumentStatus)
Debug.Print("")
Debug.Print(" My Pack and Go path and filenames after adding prefix and suffix: ")
For i = 0 To (namesCount - 1)
Debug.Print(" My path and filename is: " & pgGetFileNames(i))
Next i
' Pack and Go
statuses = swModelDocExt.SavePackAndGo(swPackAndGo)
End Sub
End Module
Immediate Window
Pack and Go
Number of model documents: 5
Include drawings: True
Include simulation results: True
Current path and filenames:
The path and filename is: c:\workzones\club house\club house.sldasm
The path and filename is: c:\workzones\club house\house.sldprt
The path and filename is: c:\workzones\club house\outside stringer.sldprt
The path and filename is: c:\workzones\club house\step.sldprt
The path and filename is: c:\workzones\club house\inside stringer.sldprt
The path and filename is: c:\workzones\club house\club house.slddrw
Current default save-to filenames:
The path and filename is: c:\workzones\club house\club house.sldasm
The path and filename is: c:\workzones\club house\house.sldprt
The path and filename is: c:\workzones\club house\outside stringer.sldprt
The path and filename is: c:\workzones\club house\step.sldprt
The path and filename is: c:\workzones\club house\inside stringer.sldprt
The path and filename is: c:\workzones\club house\club house.slddrw
My Pack and Go path and filenames before adding prefix and suffix:
My path and filename is: C:\temp\0.sldasm
My path and filename is: C:\temp\1.sldprt
My path and filename is: C:\temp\2.sldprt
My path and filename is: C:\temp\3.sldprt
My path and filename is: C:\temp\4.sldprt
My Pack and Go path and filenames after adding prefix and suffix:
My path and filename is: c:\workzones\club house\SWclub housePackAndGo.sldasm
My path and filename is: c:\workzones\club house\SWhousePackAndGo.sldprt
My path and filename is: c:\workzones\club house\SWoutside stringerPackAndGo.sldprt
My path and filename is: c:\workzones\club house\SWstepPackAndGo.sldprt
My path and filename is: c:\workzones\club house\SWinside stringerPackAndGo.sldprt