Auto-arrange Dimensions (VBA)

This example shows how to auto-arrange the selected dimensions.

'------------------------------------------
'
' Preconditions:
' 1. Open:
 '  <SolidWorks_install_dir>\samples\tutorial\advdrawings\foodprocessor.slddrw.
' 2. Box-select the dimensions in Drawing View1.
'
' Postconditions: The selected dimensions are auto-arranged.
'
' NOTE: Because the model is used elsewhere,
' do not save changes when closing it.
'
'------------------------------------------
Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swDrawingDoc As SldWorks.DrawingDoc
Dim status As Boolean
Dim errors As Long
Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set swDrawingDoc = swModel
status = swModelDocExt.AlignDimensions(swAlignDimensionType_e.swAlignDimensionType_AutoArrange, 0.001)

End Sub