I'm creating an application for organizing jigs that we create in solidworks for the company I work for and have run into a problem with renaming saved drawings and the name not changing in the PDF of the drawing (for obvious reasons). 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.
The code is VBA not .NET.
Do you know of a .NET equivalent to this code?
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 ?
Its says Set assignment statements are no longer supported and it doesn't recognize swApp, swModelDoc, SldWorks.Frame, etc...
Sorry, just remove "set" as no need in NET
dim swApp as Sldworks
swApp = CreateObject("SldWorks.Application")
dim swModelDoc as DrawingDoc
It still doesn't recognize any of the swApp, swModelDoc, SldWorks.Frame, etc...
As I asked: are you writting a macro or addin/standalon
For addin/standalone you need to import SW into your NET program
How would you write a macro or addin/standalone for SolidWorks in VB.NET
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?
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
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
Yes, Check this out
To cut it short, try this