Is there a quick and reliable way to "pretty up" ordinate dimensions?

Jody Holm wrote:

 

I dimension like this as well. The thing that bugs me most is you RMB on the dimension you want to jog, go through the pop to find the jog command, and then you have to select the stinking dimension that you want to jog AGAIN in order to move it. Of course it's always piled up on a bunch of other dimensions and you can never seem to highlight the one you want to jog.

Soo.... I know that macros ain't errbody's cup o' tea, but you can either use a macro or wait until SW implements your daggum ER which is maybe never.

This version of the JoggleToggle macro will not de-select your dimensions, so you can go ahead and move 'em all around if you want.  Of course, you still gotta click on it again to move it, but here's a tip that may make re-clicking easier: If, while the dimensions are selected, you use the arrow keys, you can move only the selected elements of the ordinate away from the others, like so:

As soon as you click on one of them, they will all jump back in line properly.

You can map this macro to a button or a shortcut key, put it on your "S" key menu, what evz.

Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swDispDim As SldWorks.DisplayDimension
Dim wait As Double
Dim i As Long


Sub JoggleToggleMulti()
Set swApp = Application.SldWorks


Set swDoc = swApp.ActiveDoc
Set swSelMgr = swDoc.SelectionManager


For i = 1 To swSelMgr.GetSelectedObjectCount
    If swSelMgr.GetSelectedObjectType3(i, -1) = swSelDIMENSIONS Then
        Set swDispDim = swSelMgr.GetSelectedObject6(i, -1)
        If swDispDim.GetType = swOrdinateDimension Then
            If Not (False = swDispDim.Jogged) Then
                swDispDim.Jogged = False
            Else
                swDispDim.Jogged = True
            End If
        End If
    End If
Next


swDoc.GraphicsRedraw2
End Sub