Get Type of Instant3D Feature Example (VBA)
This example shows how to get the types and persistent IDs of underlying features of Instant3D
features.
'-----------------------------------------------------
' Preconditions:
' 1. Verify that the specified part exists.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Opens the part and traverses the FeatureManager
' design tree.
' 2. Gets the types of features, including the types
' of underlying features and persistent IDs
' of Instant3D features.
' 3. Examine the Immediate window.
'-----------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeature As SldWorks.Feature
Dim fileName As String
Dim errors As Long
Dim warnings As Long
Sub main()
Set swApp = Application.SldWorks
fileName = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2018\samples\tutorial\api\block.sldprt"
Set swModel = swApp.OpenDoc6(fileName, swDocPART, swOpenDocOptions_Silent, "", errors, warnings)
Set swFeature = swModel.FirstFeature
Call SelectFeat(swFeature)
End Sub
Public Function SelectFeat(featureTemp As SldWorks.Feature) As Boolean
While Not featureTemp Is Nothing
Dim featureName As String
featureName = featureTemp.GetTypeName2
Debug.Print featureName
' Instant3D features are ICE features
If featureName = "ICE" Then
Debug.Print " Type: " & featureTemp.GetTypeName
Debug.Print " ID: " & featureTemp.GetID
End If
Set featureTemp = featureTemp.GetNextFeature
Wend
End Function