2 Replies Latest reply on Mar 15, 2017 12:27 PM by Josh Chapman

    tile left and tile right buttons

    Josh Chapman

      I want a hot key for these buttons SCREEN LEFT AND RIGHT.PNG

      I did make a macro that sort of works but not really well. Another thing that would be nice is if when opening a file when my GUI is spanning 2 screens it would pop the window to one screen or another instead of all the way across both screens. maybe there needs to be some preferences so I can set exactly how I want to see a new window when opening parts.

      I forgot how to submit this to SW to add to their next version/update. anyone know?

        • Re: tile left and tile right buttons
          Tony Cantrell

          Submit an enhancement request thru the customer portal

          • Re: tile left and tile right buttons
            Josh Chapman

            I have a workaround fix.

             

            I created a macro that I tied to a keyboard hotkey: ctrl+}

            You can copy these into macros, save them to your macro folder, and then create a hotkey for tile right and tile left that links to these macros.

            The odd thing is they work but not quite as well as mouse clicking the actual buttons. they don't manage to fill the screen quite right. if anyone figures out an improvement please share here.

             

            here is a copy of the macro for tile right:

             

            ' ******************************************************************************

            ' C:\Users\Josh Chapman\AppData\Local\Temp\swx3632\Macro1.swb - macro recorded on 01/19/16 by Josh Chapman

            ' ******************************************************************************

            Dim swApp As Object

             

             

            Dim Part As Object

            Dim boolstatus As Boolean

            Dim longstatus As Long, longwarnings As Long

             

             

            Sub main()

             

             

            Set swApp = _

            Application.SldWorks

             

             

            Set Part = swApp.ActiveDoc

            Set Part = swApp.ActiveDoc

            Dim myModelView As Object

            Set myModelView = Part.ActiveView

            myModelView.FrameLeft = 1912

            myModelView.FrameTop = 3

            Set myModelView = Part.ActiveView

            myModelView.FrameState = swWindowState_e.swWindowNormal

            myModelView.FrameWidth = 1909

            myModelView.FrameHeight = 852

            End Sub

             

             

            here is the macro for tile left:

            ' ******************************************************************************

            ' C:\Users\Josh Chapman\AppData\Local\Temp\swx3632\Macro1.swb - macro recorded on 01/19/16 by Josh Chapman

            ' ******************************************************************************

            Dim swApp As Object

             

             

            Dim Part As Object

            Dim boolstatus As Boolean

            Dim longstatus As Long, longwarnings As Long

             

             

            Sub main()

             

             

            Set swApp = _

            Application.SldWorks

             

             

            Set Part = swApp.ActiveDoc

            Set Part = swApp.ActiveDoc

            Dim myModelView As Object

            Set myModelView = Part.ActiveView

            myModelView.FrameLeft = 3

            myModelView.FrameTop = 25

            Set myModelView = Part.ActiveView

            myModelView.FrameState = swWindowState_e.swWindowNormal

            myModelView.FrameWidth = 1909

            myModelView.FrameHeight = 830

            End Sub