-
Re: How to save drawing (.slddrw) as PDF and DWG
You can start from this
This macro converts drawing to pdf from a folder specified in the code to same folder -
Re: How to save drawing (.slddrw) as PDF and DWG
Hi Isaac,
I had some help previously with a Macro that will cover the export side(or atleast be a good starting point for you)
Adding export options menu to Macro?
Not sure how to gget the email aspect working though.
-
-
Re: How to save drawing (.slddrw) as PDF and DWG
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
' Redraw
Part.GraphicsRedraw2
' Zoom to Area
Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
' Zoom To Fit
Part.ViewZoomtofit2
Dim EingegebenerDateiPfad
EingegebenerDateiPfad = InputBox("Bitte geben Sie den Dateipfad zusammen mit dem Dateinamen ein" & Chr(13) & Chr(13) & "Zum Beispiel K:\Konstruk\temp\3015000322", "Zeichnung (.slddrw) als PDF und DWG speichern, I.V.", "K:\Konstruk\temp\3015000322", 12000, 7500)
'MsgBox EingegebenerDateiPfad
' Save As
'longstatus = Part.SaveAs3("C:\Users\vurgun\Desktop\Rest\Temporär\20180719\XXX~0.DWG", 0, 0)
longstatus = Part.SaveAs3(EingegebenerDateiPfad & ".DWG", 0, 0)
longstatus = Part.SaveAs3(EingegebenerDateiPfad & ".PDF", 0, 0)
End Sub
