Get What's Wrong Example (VBA)
This example shows how to get the What's Wrong information for a document.
'-----------------------------------
' Preconditions: Model document is active. Examine the
Immediate
' window
after running this macro to see the What's Wrong
' items
in the model document.
'
' Postconditions: None
'------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim vFeatures As Variant
Dim vErrorCodes As Variant
Dim vWarnings As Variant
Dim boolstatus As Boolean
Dim i As Long
Dim nbrWhatsWrong As Long
Dim swFeature As SldWorks.Feature
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
nbrWhatsWrong = swModelDocExt.GetWhatsWrongCount
Debug.Print "Number of What's Wrong items: "
& nbrWhatsWrong
Debug.Print ""
If nbrWhatsWrong > 0 Then
boolstatus
= swModelDocExt.GetWhatsWrong(vFeatures,
vErrorCodes, vWarnings)
For
i = 0 To UBound(vFeatures)
Set
swFeature = vFeatures(i)
Debug.Print
" Name
of feature: " & swFeature.GetTypeName2
Debug.Print
" Error:
" & vErrorCodes(i)
Debug.Print
" Did
SOLIDWORKS flag this item as a warning ? " & vWarnings(i)
Debug.Print
""
Next
i
Else
Debug.Print
"No What's Wrong items."
End If
End Sub