4 Replies Latest reply on Apr 6, 2018 8:32 AM by Rob Edwards

    Can someone help add a "Zoom to Fit" or "Rebuild" to this macro for me, please?

    Jim Horvath

      I use this macro to CENTER all linear dimensions in a Drawing if they are not already centered via Right Click>DisplayOptions>CenterDimension.  The trouble is the view needs to be updated via Scroll Button, Zoom to Fit, or Rebuild before the display will actually update and show the dimensions have been centered...  I assign this macro to a toolbar button, so when i click the button and nothing visually happens I get concerned that the macro didn't work...  I don't know how all this code is built, i typically just copy and paste things from this forum and everything i've searched for and tried so far doesn't seem to function if I add it to this code.  I'm working on Solidworks 2017 x64 SP4.1

      ------------------------------------------------------------

      Dim swApp As SldWorks.SldWorks

      Dim swDoc As SldWorks.ModelDoc2

      Dim swDwg As SldWorks.DrawingDoc

      Dim swDispDim As SldWorks.DisplayDimension

      Dim swView As SldWorks.View

      Dim boolstatus As Boolean

       

      Sub main()

       

      Set swApp = Application.SldWorks

      Set swDoc = swApp.ActiveDoc

      Set swDwg = swDoc

      Set swView = swDwg.GetFirstView

      While Not swView Is Nothing

      Set swDispDim = swView.GetFirstDisplayDimension5

      While Not swDispDim Is Nothing

      swDispDim.CenterText = True

      Set swDispDim = swDispDim.GetNext5

      Wend

      Set swView = swView.GetNextView

      Wend

       

      End Sub

      ------------------------------------------------------------

       

       

      thanks for any help

      jim