Hide Table of Contents

Get DimXpert Display Dimensions and Feature Example (VBA)

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. Ensure that the SolidWorks DimXpert type library is

'    loaded in Tools > References in the IDE.

' 2. Open <SolidWorks_install_dir>\samples\tutorial\api\plate_tolstatus.sldprt.

' 3. Click View > Toolbars > DimXpert (select the first instance of Toolbars

'    on the View menu).

' 4. Click the Auto Dimension Scheme button on

'    the DimXpert toolbar.

' 5. Make sure Chamfer is selected in Feature Filters

'    on the Auto Dimension Scheme PropertyManager page, then click the checkmark

'    to close the page.

' 6. Open an Immediate Window in the IDE.

' 7. Run the macro.

'

' Postconditions: DimXpert display dimensions are added to the model.

'

' NOTE: Because this part document is used by a SolidWorks online

'       tutorial, do not save any changes when closing

'       the document.

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

Option Explicit

 

Dim swApp As SldWorks.SldWorks

Dim swPart As SldWorks.ModelDoc2

Dim swAnnotation As SldWorks.Annotation

Dim swDisplayDimension As SldWorks.DisplayDimension

 

Sub main()

 

    Set swApp = Application.SldWorks

    Set swPart = swApp.ActiveDoc

    Set swAnnotation = swPart.GetFirstAnnotation2

    Do While (Not (swAnnotation Is Nothing))

        Debug.Print " "

        Debug.Print "Annotation name = " & swAnnotation.GetName

            If swAnnotationType_e.swDisplayDimension = swAnnotation.GetType Then

                Debug.Print "  Is a display dimension? True"

                Set 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 SwDimXpert.DimXpertFeature

                    Dim FeatName As String

        

                    Set 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

                Else

                    Debug.Print "  Not a display dimension"

                End If

            Set swAnnotation = swAnnotation.GetNext3

    Loop

End Sub



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

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Get DimXpert Display Dimensions and Feature Example VB
*Comment:  
*   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:



x

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
x

Web Help Content Version: API Help (English only) 2010 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.