11 Replies Latest reply on Aug 19, 2014 6:40 AM by Flemming Nielsen

    Need macro to zoomfit trimetric, and some more..

    Flemming Nielsen

      Dear All,


      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.





      Sub Main()


          ' 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)


      End Sub