Get Whether Linear Dimension Is Foreshortened Example (VB.NET)
This example shows how to get whether a linear dimension is foreshortened.
'------------------------------------------------------------------
' Preconditions:
' 1. Open public_documents\samples\tutorial\api\chair.slddrw.
' 2. Click Tools > Options > Document Properties > Dimensions > Linear.
' 3. Click ANSI in Base linear dimension standard.
' 4. Verify that the following check box and option are selected in
' Foreshortened:
' * Automatic
' * Zigzag
' 5. Click OK.
' 6. Dimension an outside linear edge.
'
' Postconditions:
' 1. Gets whether the dimension is foreshortened.
' 2. Examine the Immediate window and drawing.
'
' NOTES:
' * Foreshortened dimensions are only valid for
' linear dimensions and only when the detailing standard
' is ANSI.
' * Because the part and drawing are used elsewhere, do not
' save changes.
'-------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics
Partial Class SolidWorksMacro
Public Sub main()
Dim swModel As ModelDoc2
Dim swSelectionMgr As SelectionMgr
Dim swDisplayDimension As DisplayDimension
swModel = swApp.ActiveDoc
swSelectionMgr = swModel.SelectionManager
swDisplayDimension = swSelectionMgr.GetSelectedObject6(1, -1)
Debug.Print("Foreshortened dimension? " & swDisplayDimension.Foreshortened)
swModel.ClearSelection2(True)
End Sub
''' <summary>
''' The SldWorks swApp variable is pre-assigned for you.
''' </summary>
Public swApp As SldWorks
End Class