AnsweredAssumed Answered

How to save drawing (.slddrw) as PDF and DWG

Question asked by Isaac Vur on Jul 19, 2018
Latest reply on Jul 23, 2018 by Isaac Vur

Like • Show 0 Likes0
Comment • 4

Hallo

my macro shall make as follows:

0. start macro.

1. Then shall open the window to select the path where to save on the device (For example C:\Users\zm\)

2. The drawing shall be saved as .pdf and .dwg in the selected folder

Important is that the pdf and dwg get the filename. For example the filename of the drawing is 3050.slddrw, then the saved files must be 3050.pdf and 3050.dwg.

3. After this it would be nice to put the files automatically into the attachment of an E-Mail template

Preferred is vba code.

Thank you.

No one else has this question

Outcomes

4 Replies

Fatih Mehmet Ozcan Jul 20, 2018 5:52 AM
Mark Correct
Correct Answer
You can start from this

This macro converts drawing to pdf from a folder specified in the code to same folder
source/solidworks_07_drawing-convert-to-pdf-from-folder.txt
Like • Show 1 Like1
Actions
Daniel Mapp Jul 20, 2018 3:52 AM
Mark Correct
Correct Answer
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.
Like • Show 1 Like1
Actions
Deepak Gupta Jul 20, 2018 5:07 AM
Mark Correct
Correct Answer
Here is a post with macro link/codes for Sending email using a macro in SOLIDWORKS
Like • Show 1 Like1
Actions
Isaac Vur Jul 23, 2018 10:02 AM
Mark Correct
Correct Answer
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
Like • Show 1 Like1
Actions

How to save drawing (.slddrw) as PDF and DWG

Outcomes

Related Content

Recommended Content