-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
Yes, Check out
To cut it short, try this
Dim swFrame As SldWorks.Frame
Set swFrame = swApp.Frame
swFrame.SetStatusBarText "Saving PDF file"
Dim bSaveAsPDF As Boolean
Dim sPDFName As String = "Your PDF File"
bSaveAsPDF = swModelDoc.SaveAs4("C:\Temp\" & sPDFName, swSaveAsCurrentVersion, swSaveAsOptions_Silent, Errs, Warnings)
If Warnings <> 0 Then
swFrame.SetStatusBarText "Warnings during save"
MsgBox "There were warnings. PDF creation may have failed.", vbExclamation, "SaveAs PDF"
Else
End If
If bSaveAsPDF = False Then
swFrame.SetStatusBarText "Save failure"
MsgBox "PDF creation has failed!", vbCritical, "SaveAs PDF"
Else
End If
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
Do you need some sort of import to do this because VB isn't recognizing these commands.
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
The code is VBA not .NET.
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
Do you know of a .NET equivalent to this code?
-
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
what lines are not recognized by NET? I haven't tried yet but it should convert to NET when you put these lines in
By the way, are you writting a macro or Addin/Standalone ?
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
Its says Set assignment statements are no longer supported and it doesn't recognize swApp, swModelDoc, SldWorks.Frame, etc...
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
Sorry, just remove "set" as no need in NET
dim swApp as Sldworks
swApp = CreateObject("SldWorks.Application")
dim swModelDoc as DrawingDoc
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
It still doesn't recognize any of the swApp, swModelDoc, SldWorks.Frame, etc...
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
As I asked: are you writting a macro or addin/standalon
For addin/standalone you need to import SW into your NET program
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
How would you write a macro or addin/standalone for SolidWorks in VB.NET
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
I'm confusing and not sure what you tried to do here
Macro is a VBA program embedded in SW while Addin/standalone is a separate program using MS studio such as NET or C# and you need to import SW into these programs
Exactly, pls explain what r u writing now?
Seems to me that you're writing an addin, Am I correct?
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
I've been trying to just make it work by using the print command but it requires the user to click save and choose where to save it but I want it to be saved into a specific directory created by the app so the less user interface the better.
If DrawingListBx.Items.Count > 0 Then
For i = 0 To DrawingListBx.Items.Count - 1
System.IO.File.Copy(DrawingListBx.Items(i).ToString, JigFolderDirectory + ExistingJigNumComBx.Text + "Rev(" + RevNum.ToString + ")_" +
DrawingListBx.Items(i).ToString.Substring(DrawingListBx.Items(i).ToString.LastIndexOf("\") + 1))
Dim psi As New ProcessStartInfo
psi.UseShellExecute = True
psi.Verb = "printto"
psi.WindowStyle = ProcessWindowStyle.Hidden
psi.Arguments = "PDFCreator"
psi.FileName = JigFolderDirectory + ExistingJigNumComBx.Text + "Rev(" + RevNum.ToString + ")_" + DrawingListBx.Items(i).ToString.Substring(DrawingListBx.Items(i).ToString.LastIndexOf("\") + 1)
Process.Start(psi)
Next
End If
-
Re: Is there a way to programatically save a drawing as a pdf? (Using VB.net Windows App)
Ok now it's getting more complicated than I thought - R U creating exe file from your program?
You're writing a standalone NET program - I recommend you read thru API help from your SW software or you'll be lost big time
First you have to import SW into your NET program, then it'll understand the code I provided earlier
-
-
-
-
-
-
-
-
-
-