SaveAS PDF Differences

inthepickle · 2006-05-02T17:09:25+00:00

Here is the code that I have for a macro that saves a drawing as a PDF. Most of this code has came from a macro that I downloaded somewhere.I am attempting to change it, but I am having problems. OriginallyLine 25 works great, but it saves the PDF to the directory of thedrawing. I don't want that, so I added Lines 20-24 to make up my path. I then added Line 26 and commented out 25. The Macro did not work atall. I need to know why line line 25 works and why line 26 will not.If I either one of them, they are exactly the same. Whatam I doing wrong, and how can I make it work the way I want.1 Public swApp As 2 Public DrawingDoc As SldWorks.DrawingDoc3 Dim ModelDoc As 4 Dim objWShell As Object5 Dim strRegKey As String6 Dim lngWarnings As Long7 Dim lngErrors As Long8 Dim strPDFName As String9 Sub main()10 Set swApp = 11 Set ModelDoc = 12 If Not ModelDoc Is Nothing Then13 If = swDocDRAWING Then14 Set DrawingDoc = ModelDoc15 strRegKey = "HKEY_CURRENT_USERSoftwareBluebeamSoftwarePushbutton PDFSolidWorksLtWhatToPlot"16 Set objWShell = CreateObject("")17 strRegKey, 118 Set objWShell = Nothing19 Set objFS = CreateObject("")20 FullPath = ' gets the path of thefile21 SlashPosition = InStrRev(FullPath, "") 'gets theposition of last 22 FileName = Right(FullPath, Len(FullPath) -SlashPosition) 'removes path and leaves part name23 FileNameNoExt = Left(FileName, Len(FileName) - 7) 'takesoff the SLDPRT24 FolderName = Left$(FileName, 4) 'give 1st 4 charactersof part name25 'strPDFName =objFS.buildpath( & ".PDF")26 'strPDFName = "H:DWGS" & FolderName & "" &FileNameNoExt & ".PDF"27 strPDFName, swSaveAsCurrentVersion,swSaveAsOptions_Silent, lngErrors, lngWarnings28 Else29 MsgBox "A SolidWorks Drawing document must be open inorder to SaveAs a PDF!", vbInformation30 End...

May 02, 2006 21 Replies

Rate this thread:

SW Monkey 20 years ago

Thanks :) Thats odd. It seems to work just fine now. I did the same thing you posted, changed "PathToWhereFileWillBeSaved" to "Filename".

I also removed this line FileName = "C:\temp\myFile.pdf" Since I already had a variable called Filename.

It seems to work fine now. Is it bad that I am using a form to store the filename?

LOL @ the "monkey code" comment.

Vote

Mr. Who 20 years ago

Hehehe, crazy monkey code. A userform isn't bad at all. It is just a choice that was made.

Vote

Join the Discussion

Have something to add? Share your thoughts — no account required.

Didn't find your answer?

Ask the community — no account required