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


      Set swView = swView.GetNextView



      End Sub




      thanks for any help