Hallo,
Om alle Fab-documenten met één klik te publiceren, wil ik een pdf, een stap en een Excel-bestand genereren van de lijst met gelaste onderdelen.
Het is me gelukt om de pdf en stapmacro's te maken (het is mijn eerste), maar niet de Excel-macro
Heeft iemand iets?
Ter info: mijn VBA-pdf om de opgehaalde informatie en de naam van de output te laten zien.
Dank je wel
Dim swApp As Object
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim Part As Object
Dim boolstatus As Boolean
Dim sRevision As String
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
FileName = swModel.GetPathName
FileName = Left(FileName, Len(FileName) - 7)
sRevision = swModel.CustomInfo2("", "Ind.")
Set Part = swApp.ActiveDoc
PathName = UCase(Part.GetPathName)
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ClearSelection2 True
longstatus = Part.SaveAs3(FileName & "_" & sRevision & ".PDF", 0, 0)
End Sub
