PDF

fast975

Utente Junior
Professione: Impiegato
Software: Creo 2.0 - TruTops
Regione: Toscana
#1
Buonasera a tutti e buon lavoro.
qualcuno conosce una combinazione tasti o il modo di aggiungerla a Solidwork in modo da poter creare il pdf direttamente dalla messa in tavola, senza dover fare File>Salva con nome>scegliere il formato pdf > salvare.

Grazie a tutti.
 

jenuary

Utente Standard
Professione: Progettista e Programmatore VB.Net
Software: Solidworks
Regione: Veneto
#3
Ciao, scusa il ritardo,
riporto una macro in vba che fa quello che chiedi.

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim swExportPDFData As SldWorks.ExportPdfData
Dim lerrors As Long
Dim lwarnings As Long
Dim Filename As String
Dim sPathName As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModelDocExt = Part.Extension
sPathName = Part.GetPathName

Filename = Left(sPathName, InStrRev(sPathName, "."))
Filename = Filename & "pdf"
Set swExportPDFData = swApp.GetExportFileData(1)
If swExportPDFData Is Nothing Then MsgBox "Nothing"
swExportPDFData.ViewPdfAfterSaving = False
swExportPDFData.ExportAs3D = False
boolstatus = swModelDocExt.SaveAs(Filename, 0, 0, swExportPDFData, lerrors, lwarnings)
End Sub
 

jenuary

Utente Standard
Professione: Progettista e Programmatore VB.Net
Software: Solidworks
Regione: Veneto
#4
Sarebbe però da spostare la discussione su "Macro interessanti per SolidWorks"