AnsweredAssumed Answered

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

Question asked by Jim Horvath on Apr 5, 2018
Latest reply on Apr 6, 2018 by Rob Edwards

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