Get Error Codes for Features (VBA)
This example shows how to get the error codes and warnings for the features
in a part document.
'----------------------------------------------------------------
' Preconditions: Document is part.
'
' Postconditions: None
'
' NOTE: Features with errors have error codes of non-zero.
Only examine
' warnings
if error codes are non-zero. Otherwise,
' values
for warnings are irrelevant.
'----------------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Model As SldWorks.ModelDoc2
Dim feat As SldWorks.Feature
Dim featureName As String
Dim IsWarning As Boolean
Dim Error As Long
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set Model = swApp.ActiveDoc
If Model Is Nothing Then
Exit
Sub
End If
' Get the first feature in part
Set feat = Model.FirstFeature
' While we have a valid feature
Do While Not feat Is Nothing
'
Get the name of the feature
Debug.Print
feat.Name
Error
= feat.GetErrorCode2(IsWarning)
Debug.Print
"Error: "
& Error
Debug.Print
"Warning or not: " & IsWarning
Set
feat = feat.GetNextFeature() '
Get the next feature
Loop ' Continue until no more features exist
End Sub