Jog Selected Dimension Extension Lines (VBA)

This example shows how to jog the selected linear or ordinate dimension's extension lines.

'-----------------------------

' Preconditions: Drawing document is open.

'                Drawing View1 contains a part

'                with dimensions displayed.

'

' Postconditions: None

'------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swDrawingDoc As SldWorks.DrawingDoc

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swModelView as SldWorks.ModelView

Dim swDisplayDim As Object

Dim boolstatus As Boolean

Dim rect as Variant

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swModelView = SwModel.ActiveView

Set swModelDocExt = swModel.Extension

Set swDrawingDoc = swModel

boolstatus = swDrawingDoc.ActivateView("Drawing View1")

' Jog the extension lines of the dimension

boolstatus = swModelDocExt.JogDimension(True, 0)

boolstatus = swModelDocExt.JogDimension(True, 1)

Stop

' Programmatically remove the just inserted jogs

boolstatus = swModelDocExt.JogDimension(False, 0)

boolstatus = swModelDocExt.JogDimension(False, 1)

swModelView.GraphicsRedraw ((rect))

End Sub