Code: Select all
Set swApp = Application.SldWorks
'Dim swModel As SldWorks.ModelDoc2
Set swModel = swApp.ActiveDoc
Set pg = swModel.Extension.GetPackAndGo
Code: Select all
Set swApp = Application.SldWorks
'Dim swModel As SldWorks.ModelDoc2
Set swModel = swApp.ActiveDoc
Set pg = swModel.Extension.GetPackAndGo
Code: Select all
swModel := swApp.activeDoc
pgOut := comVar(varType:=9)
swPackAndGo := swModel.Extension.GetPackAndGo(pgOut.ref) ;seems to run correctly with long delay but return value is empty
swPackAndGo.GetDocumentNamesCount ;empty