Auto-arrange Dimensions (VB.NET)
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.
'
'------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports System
Partial
Class SolidWorksMacro
Public
Sub Main()
Dim swModel
As ModelDoc2
Dim swModelDocExt
As ModelDocExtension
Dim swDrawingDoc
As DrawingDoc
Dim status
As
Boolean
swModel = swApp.ActiveDoc
swModelDocExt = swModel.Extension
swDrawingDoc = swModel
status = swModelDocExt.AlignDimensions(swAlignDimensionType_e.swAlignDimensionType_AutoArrange,
0.001)
End
Sub
'''
<summary>
''' The SldWorks swApp
variable is pre-assigned for you.
'''
</summary>
Public
swApp As SldWorks
End
Class