> Get DimXpert Chamfer Feature Example (VBA)

Get DimXpert Chamfer Feature Example (VBA)

This example shows how to build and get attributes for the following DimXpert feature:

* Chamfer

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

' Preconditions:

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

' 2. Open the DimXpert toolbar from View > Toolbars

' (select the first instance of Toolbars on the View menu).

' 3. Click the Auto Dimension Scheme icon in the DimXpert toolbar.

' 4. Ensure that the chamfer feature filter is selected.

' 5. Click the green check mark to accept all settings.

' 6. Observe the following DimXpert features on the DimXpertManager tab

' of the Management Panel: Chamfer1.

' 7. Open an Immediate Window in the IDE.

' 8. Ensure that the latest SolidWorks DimXpert type library is loaded

' in Tools > References.

' 9. Step through this macro (F8).

' Postconditions: Compare the output in the Immediate Window with

' the features displayed on the DimXpertManager tab of the Management Panel.

' NOTE: Because this part is used in a SolidWorks online tutorial,

' do not save any changes when you close it.

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swSelMgr As SldWorks.SelectionMgr

Dim swConfig As SldWorks.Configuration

Dim swFeature As SldWorks.feature

Dim swAnn As SldWorks.feature

Dim swSchema As SldWorks.DimXpertManager

Dim swDXPart As DimXpertPart

Dim featureType As swDimXpertFeatureType_e

Dim chamferType As swDimXpertChamferType_e

Dim chamferAngleType As swDimXpertChamferAngleType_e

Dim features As Variant

Dim appliedFeatures As Variant

Dim appliedAnnotations As Variant

Dim appliedAnnotation As DimXpertAnnotation

Dim feature As DimXpertFeature

Dim appliedFeature As DimXpertFeature

Dim msgStr As String

Dim msgStr2 As String

Dim msgStr3 As String

Dim msgStr4 As String

Dim n As Long

Dim o As Long

Dim p As Long

Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swModelDocExt = swModel.Extension

Set swSelMgr = swModel.SelectionManager

' Get the default DimXpert schema using IModelDocExtension.DimXpertManager()

Set swSchema = swModelDocExt.DimXpertManager("Default", True)

' Get IDimXpertPart from the IDimXpertManager

Set swDXPart = swSchema.DimXpertPart

Dim featCount As Long

featCount = swDXPart.GetFeatureCount

msgStr = "Total of "

msgStr2 = featCount

msgStr = msgStr + msgStr2 + " features in " + (swSchema.SchemaName)

Debug.Print ""

Debug.Print msgStr

' Get IDimXpert features through IDimXpertPart

features = swDXPart.GetFeatures

msgStr = (swSchema.SchemaName) + " has the following features: "

Debug.Print ""

Debug.Print msgStr

For n = 0 To UBound(features)

Set feature = features(n)

Debug.Print " " + "Feature name: " + (feature.Name)

featureType = feature.Type

Call GetPatternType(featureType, msgStr2)

msgStr = " Feature type "

msgStr3 = " is suppressed on the DimXpertManager tab? "

msgStr4 = feature.IsSuppressed()

Debug.Print msgStr + msgStr2 + msgStr3 + msgStr4

msgStr = " " + "Model feature: "

Set swFeature = feature.GetModelFeature()

If Not (swFeature Is Nothing) Then

msgStr2 = swFeature.GetTypeName2()

Debug.Print msgStr + msgStr2

End If

msgStr = " " + "Number of SolidWorks face entities in this feature: "

msgStr2 = feature.GetFaceCount

Debug.Print msgStr + msgStr2

msgStr = " " + "Number of applied features: "

msgStr2 = feature.GetAppliedFeatureCount()

Debug.Print msgStr + msgStr2

appliedFeatures = feature.GetAppliedFeatures()

If Not (IsEmpty(appliedFeatures)) Then

For o = 0 To UBound(appliedFeatures)

Set appliedFeature = appliedFeatures(o)

Debug.Print " " + "Applied feature name: " + (appliedFeature.Name)

End If

msgStr = " " + "Number of applied annotations: "

msgStr2 = feature.GetAppliedAnnotationCount()

Debug.Print msgStr + msgStr2

appliedAnnotations = feature.GetAppliedAnnotations()

If Not (IsEmpty(appliedAnnotations)) Then

For p = 0 To UBound(appliedAnnotations)

Set appliedAnnotation = appliedAnnotations(p)

Debug.Print " " + "Applied annotation name: " + (appliedAnnotation.Name)

End If

Debug.Print " "

' If you know the name of a DimXpert feature, you can get it directly using IDimXpertPart.GetFeature("name"),

' which can return a general IDimXpertFeature or a more specific interface on the feature

' Get IDimXpertChamferFeature for the Chamfer1 feature

Dim chamferFeature As IDimXpertChamferFeature

Set chamferFeature = swDXPart.GetFeature("Chamfer1")

msgStr = chamferFeature.Name + " is a DimXpert feature"

Debug.Print ""

Debug.Print msgStr

Debug.Print ""

' Get the chamfer type

chamferType = chamferFeature.chamferType

msgStr = " Chamfer type is "

Call GetChamferType(chamferType, msgStr2)

Debug.Print msgStr + msgStr2

' Get the chamfer angle

Dim angle As Double

angle = chamferFeature.angle

msgStr = " Chamfer angle is "

msgStr2 = angle

Debug.Print msgStr + msgStr2

' Get the angle type

chamferAngleType = chamferFeature.angleType

msgStr = " Chamfer angle type is "

Call GetChamferAngleType(chamferAngleType, msgStr2)

Debug.Print msgStr + msgStr2

'Get the chamfer distance properties

Dim chamferDistance1 As Double

Dim chamferDistance2 As Double

chamferDistance1 = chamferFeature.Distance1

msgStr = " Chamfer distance 1 is "

msgStr2 = chamferDistance1

Debug.Print msgStr + msgStr2

chamferDistance2 = chamferFeature.Distance2

msgStr = " Chamfer distance 2 is "

msgStr2 = chamferDistance2

Debug.Print msgStr + msgStr2

End Sub

Public Sub GetPatternType(ByRef featureType, ByRef msgStr2)

If (featureType = swDimXpertFeature_Plane) Then

msgStr2 = "Plane"

ElseIf (featureType = swDimXpertFeature_Cylinder) Then

msgStr2 = "Cylinder"

ElseIf (featureType = swDimXpertFeature_Cone) Then

msgStr2 = "Cone"

ElseIf (featureType = swDimXpertFeature_Extrude) Then

msgStr2 = "Extrude"

ElseIf (featureType = swDimXpertFeature_Fillet) Then

msgStr2 = "Fillet"

ElseIf (featureType = swDimXpertFeature_Chamfer) Then

msgStr2 = "Chamfer"

ElseIf (featureType = swDimXpertFeature_CompoundHole) Then

msgStr2 = "CompoundHole"

ElseIf (featureType = swDimXpertFeature_CompoundWidth) Then

msgStr2 = "CompoundWidth"

ElseIf (featureType = swDimXpertFeature_CompoundNotch) Then

msgStr2 = "CompoundNotch"

ElseIf (featureType = swDimXpertFeature_CompoundClosedSlot3D) Then

msgStr2 = "CompoundClosedSlot3D"

ElseIf (featureType = swDimXpertFeature_IntersectPoint) Then

msgStr2 = "IntersectPoint"

ElseIf (featureType = swDimXpertFeature_IntersectLine) Then

msgStr2 = "IntersectLine"

ElseIf (featureType = swDimXpertFeature_IntersectCircle) Then

msgStr2 = "IntersectCircle"

ElseIf (featureType = swDimXpertFeature_IntersectPlane) Then

msgStr2 = "IntersectPlane"

ElseIf (featureType = swDimXpertFeature_Pattern) Then

msgStr2 = "Pattern"

ElseIf (featureType = swDimXpertFeature_Sphere) Then

msgStr2 = "Sphere"

ElseIf (featureType = swDimXpertFeature_BestfitPlane) Then

msgStr2 = "Bestfit plane"

ElseIf (featureType = swDimXpertFeature_Surface) Then

msgStr2 = "Surface"

End If

End Sub

Public Sub GetChamferType(ByRef chamferType, ByRef msgStr2)

If (chamferType = swDimXpertChamferType_DistanceAngle) Then

msgStr2 = "Distance-Angle"

ElseIf (chamferType = swDimXpertChamferType_DistanceDistance) Then

msgStr2 = "Distance-Distance"

ElseIf (chamferType = swDimXpertChamferType_Vertex) Then

msgStr2 = "Vertex"

End If

End Sub

Public Sub GetChamferAngleType(ByRef angleType, ByRef msgStr2)

If (angleType = swDimXpertChamferAngleType_Concave) Then

msgStr2 = "Concave"

ElseIf (angleType = swDimXpertChamferAngleType_Convex) Then

msgStr2 = "Convex"

End If

End Sub

Search 'Get DimXpert Chamfer Feature Example (VBA)' in the SOLIDWORKS Knowledge Base.

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 Chamfer Feature Example (VBA)
*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

Cancel

Print Topic

Select the scope of content to print:

This topic and all topics linked from this topic

Just this topic

This topic and only immediate topics under it

This selected topic and all subtopics

Cancel

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) 2013 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.