Hide Table of Contents

Get Part's Feature Statistics Example (VBA)

This example shows how to get the statistics of all of the features in a part document.

'-------------------------------------------
' Preconditions:
' 1. Open a part that has multiple features.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Gets the statistics for the features in
'    the part.
' 2. Examine the Immediate window.
'-------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swFeatStat As SldWorks.FeatureStatistics
Dim swFeatMgr  As SldWorks.FeatureManager
Dim swModel As SldWorks.ModelDoc2
Dim featnames As Variant
Dim feattypes As Variant
Dim features As Variant
Dim featureUpdateTimes As Variant
Dim featureUpdatePercentTimes As Variant
Dim iter As Long
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swFeatMgr = swModel.FeatureManager    
    Set swFeatStat = swFeatMgr.FeatureStatistics    
    swFeatStat.Refresh    
    Debug.Print "Model name:                 " & swFeatStat.PartName
    Debug.Print "  Number of features:       " & swFeatStat.FeatureCount
    Debug.Print "  Number of solid bodies:   " & swFeatStat.SolidBodiesCount
    Debug.Print "  Number of surface bodies: " & swFeatStat.SurfaceBodiesCount
    Debug.Print "  Total rebuild time:       " & swFeatStat.TotalRebuildTime
    featnames = swFeatStat.FeatureNames
    feattypes = swFeatStat.FeatureTypes
    features = swFeatStat.features
    featureUpdateTimes = swFeatStat.featureUpdateTimes
    featureUpdatePercentTimes = swFeatStat.FeatureUpdatePercentageTimes    
    If Not (IsEmpty(featnames) Or IsNull(featnames)) Then
        For iter = 0 To UBound(featnames)
            Debug.Print "    Feature name:           " & featnames(iter)
            Debug.Print "    Feature type:           " & feattypes(iter)
            Debug.Print "      Update time:          " & featureUpdateTimes(iter)
            Debug.Print "      Update % time:        " & featureUpdatePercentTimes(iter)
        Next iter
    End If
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 Part's Feature Statistics 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

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