I'm having a DriveWorks project, where we need to save a screendump.png file of an assembly to a DrwiveWorks specified folder.
I manged to to get the below to work copying and pasting from different sources.
This seems to work, but I'm having trouble to get the model view correct.
I tried recording a new macro and do a trimetric zoom to fit, and inserted it as seen below. This however don't work.
Is there a friendly code expert who can help me explaining the three lines in bold below? I searcehd API help without luck.
' Get SolidWorks
Dim swApp As SldWorks.SldWorks
Set swApp = Application.SldWorks
' Get the currently open document
Dim model As ModelDoc2
Set model = swApp.IActiveDoc2
Set Part = swApp.ActiveDoc
Part.ShowNamedView2 "*Trimetric", 1
' Get the "general", i.e. non-configuration specific, custom property manager
Dim cpm As CustomPropertyManager
Set cpm = model.Extension.CustomPropertyManager("")
' Get the custom property called SaveLocation
Dim saveLocation As String
saveLocation = cpm.Get("SaveLocation")
' Save the file to the new location
' and change the extension
Dim Extension As String
Extension = Mid(saveLocation, InStrRev(saveLocation, "."))
saveLocation = Replace(saveLocation, Extension, ".png")
Extension = ".png"
Dim version As swSaveAsVersion_e
Dim options As swSaveAsOptions_e
Dim errors As Long
Dim warnings As Long
Dim result As Boolean
result = model.Extension.SaveAs(saveLocation, version, options, Nothing, errors, warnings)