DIMENSION JOG
DIMENSION JOG
(OP)
I'm trying to find a different way to access the dimension jog other than RMB DIM -> DISPLAY OPTIONS -> JOG/UNJOG.
When trying to tidy up a drawing with hundreds of dims, the process mentioned above takes about 4 secs, not to mention too many mouse clicks.
I haven't come across a jog command button, keyboard shortcut or macro to help shorten this procedure. Any help would be appreciated.
thanks!
When trying to tidy up a drawing with hundreds of dims, the process mentioned above takes about 4 secs, not to mention too many mouse clicks.
I haven't come across a jog command button, keyboard shortcut or macro to help shorten this procedure. Any help would be appreciated.
thanks!






RE: DIMENSION JOG
RE: DIMENSION JOG
The problem then is when zooming out to get a bird's eye view of what needs to be changed and multi-selecting each individual dimension is that I generally lose my ability to select accurately, thus causing other problems.
I've sent this as an enhancement request, but I'm sure it isn't at the top of the list.
Thanks for the feedback. Congrats on Tip King of the Week.
RE: DIMENSION JOG
... and thanks for the congrats.
RE: DIMENSION JOG
Let me know if you want to be able to run this on multiple preselected dims.
CODE
Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swDim As SldWorks.Dimension
Dim swDispDim As SldWorks.DisplayDimension
Sub JoggleToggle()
Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
Set swSelMgr = swDoc.SelectionManager
If swSelMgr.GetSelectedObjectCount <> 1 Then
If NOTIFY_ERRORS Then MsgBox "Select a single dimension and run again"
Exit Sub
ElseIf swSelMgr.GetSelectedObjectType3(1, Empty) <> swSelDIMENSIONS Then
If NOTIFY_ERRORS Then MsgBox "Select one dimension and run again"
Exit Sub
End If
Set swDispDim = swSelMgr.GetSelectedObject6(1, Empty)
If swDispDim.GetType <> swOrdinateDimension Then
If NOTIFY_ERRORS Then MsgBox "Dimension was not ordinate"
Exit Sub
End If
If swDispDim.Jogged Then
swDispDim.Jogged = False
Else
swDispDim.Jogged = True
End If
swDoc.ClearSelection2 True
swDoc.GraphicsRedraw2
End Sub
RE: DIMENSION JOG
If you have one already for a multi-select, I'll be glad to put it in the arsenal. "K" is sounding good about now. Otherwise, no worries. This first one should meet most of my needs.
Thanks a bunch. Been a great help.
RE: DIMENSION JOG
CODE
Dim swSelMgr As SldWorks.SelectionMgr
Dim swDispDim As SldWorks.DisplayDimension
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, Empty) = swSelDIMENSIONS Then
Set swDispDim = swSelMgr.GetSelectedObject6(i, Empty)
If swDispDim.GetType = swOrdinateDimension Then
If swDispDim.Jogged Then
swDispDim.Jogged = False
Else
swDispDim.Jogged = True
End If
End If
End If
Next
swDoc.ClearSelection2 True
swDoc.GraphicsRedraw2
End Sub