Hide Table of Contents

Get DimXpert Display Dimensions and Feature Example (VB.NET)

This example shows how to find out if an annotation is a DimXpert display dimension, and, if so, how to get its DimXpert feature.

' Preconditions:
' 1. Add SolidWorks.Interop.swdimxpert.dll as a reference
'    (in the Project Explorer, right-click References, click Add Reference,
'    click Browse, and navigate to install_dir\api\redist).
' 2. Open public_documents\samples\tutorial\api\plate_tolstatus.sldprt.
' 3. Click View > Toolbars > DimXpert.
' 4. Click the Auto Dimension Scheme button on the DimXpert toolbar.
' 5. Verify that Chamfer and Simple hole are selected in Feature Filters
'    in the Auto Dimension Scheme PropertyManager page and click OK.
' 6. Open the Immediate window.
' Postconditions:
' 1. Gets the DimXpert display dimensions in the model.
' 2. Examine the Immediate window.
' NOTE: Because this part is used elsewhere, do not save changes.

Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports SolidWorks.Interop.swdimxpert
Imports System
Imports System.Diagnostics

Partial Class SolidWorksMacro

    Public Sub Main()

        Dim swPart As ModelDoc2
        Dim swAnnotation As Annotation
        Dim swDisplayDimension As DisplayDimension

        swPart = swApp.ActiveDoc
        swAnnotation = swPart.GetFirstAnnotation2
        Do While (Not (swAnnotation Is Nothing))
            Debug.Print(" ")
            Debug.Print("Annotation name = " & swAnnotation.GetName)
            Debug.Print("Annotation DimXpert name = " & swAnnotation.GetDimXpertName)
            If swAnnotationType_e.swDisplayDimension = swAnnotation.GetType Then
                Debug.Print("  Is a display dimension? True")
                swDisplayDimension = swAnnotation.GetSpecificAnnotation
                Select Case (swDisplayDimension.Type2)
                    Case swDimensionType_e.swOrdinateDimension
                        Debug.Print("  Display dimension type = base ordinate and its subordinates")
                    Case swDimensionType_e.swLinearDimension
                        Debug.Print("  Display dimension type = linear")
                    Case swDimensionType_e.swAngularDimension
                        Debug.Print("  Display dimension type  = angular")
                    Case swDimensionType_e.swArcLengthDimension
                        Debug.Print("  Display dimension type = arc length")
                    Case swDimensionType_e.swRadialDimension
                        Debug.Print("  Display dimension type = radial")
                    Case swDimensionType_e.swDiameterDimension
                        Debug.Print("  Display dimension type = diameter")
                    Case swDimensionType_e.swHorOrdinateDimension
                        Debug.Print("  Display dimension type = horizontal ordinate")
                    Case swDimensionType_e.swVertOrdinateDimension
                        Debug.Print("  Display dimension type = vertical ordinate")
                    Case swDimensionType_e.swZAxisDimension
                        Debug.Print("  Display dimension type = z-axis")
                    Case swDimensionType_e.swChamferDimension
                        Debug.Print("  Display dimension type = chamfer dimension")
                    Case swDimensionType_e.swHorLinearDimension
                        Debug.Print("  Display dimension type = horizontal linear")
                    Case swDimensionType_e.swVertLinearDimension
                        Debug.Print("  Display dimension type = vertical linear")
                    Case swDimensionType_e.swScalarDimension
                        Debug.Print("  Display dimension type = scalar")
                    Case Else
                        Debug.Print("  Display dimension type = unknown")
                End Select
                Debug.Print("  Is a DimXpert display dimension? " & IIf(swDisplayDimension.IsDimXpert = False, "False", "True"))
                If swAnnotation.IsDimXpert Then
                    Dim DimXpertFeat As DimXpertFeature
                    Dim FeatName As String
                    DimXpertFeat = swAnnotation.GetDimXpertFeature()
                    If Not DimXpertFeat Is Nothing Then
                        FeatName = DimXpertFeat.Name
                        Debug.Print("  DimXpert feature name = " & FeatName)
                        Select Case (DimXpertFeat.Type)
                            Case swDimXpertFeatureType_e.swDimXpertFeature_Plane
                                Debug.Print("  DimXpert feature type = plane")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_Cylinder
                                Debug.Print("  DimXpert feature type = cylinder")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_Cone
                                Debug.Print("  DimXpert feature type = cone")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_Extrude
                                Debug.Print("  DimXpert feature type = extrude")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_Fillet
                                Debug.Print("  DimXpert feature type = fillet")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_Chamfer
                                Debug.Print("  DimXpert feature type = chamfer")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_CompoundHole
                                Debug.Print("  DimXpert feature type = compound hole")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_CompoundWidth
                                Debug.Print("  DimXpert feature type = compound width")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_CompoundNotch
                                Debug.Print("  DimXpert feature type = compound notch")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_CompoundClosedSlot3D
                                Debug.Print("  DimXpert feature type = compound closed-slot 3D")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_IntersectPoint
                                Debug.Print("  DimXpert feature type = intersect point")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_IntersectLine
                                Debug.Print("  DimXpert feature type = intersect line")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_IntersectCircle
                                Debug.Print("  DimXpert feature type = intersect circle")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_IntersectPlane
                                Debug.Print("  DimXpert feature type = intersect plane")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_Pattern
                                Debug.Print("  DimXpert feature type = pattern")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_Sphere
                                Debug.Print("  DimXpert feature type = sphere")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_BestfitPlane
                                Debug.Print("  DimXpert feature type = best-fit plane")
                            Case swDimXpertFeatureType_e.swDimXpertFeature_Surface
                                Debug.Print("  DimXpert feature type = surface")
                            Case Else
                                Debug.Print("  DimXpert feature type = unknown")
                        End Select
                    End If
                End If
                Debug.Print("  Not a display dimension.")
            End If
            swAnnotation = swAnnotation.GetNext3
    End Sub

    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks

End Class

Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

Subject:   Feedback on Help Topics
Page:   Get DimXpert Display Dimensions and Feature Example (VB.NET)
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:


We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again

Web Help Content Version: API Help (English only) 2021 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.