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

Wend

Set swView = swView.GetNextView

Wend

 

End Sub

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

 

 

thanks for any help

jim

Attachments

Outcomes