There are several ways to accomplish this. The approach I have taken in the past is to build the property value call into a small function. You can use the VBA OnError statement to catch the error in the function and return values that you can test against to take further action if required.
Code:
Private Function GetPropertyValue(ByRef invPropSet As Inventor.PropertySet, _
ByVal strPropName As String, _
ByRef strPropValue As String) As Boolean
On Error GoTo BlackHole
strPropValue = invPropSet.Item(strPropName).value
GetPropertyValue = True
Exit Function
BlackHole:
strPropValue = ""
GetPropertyValue = False
End Function
In your main function...
Code:
Dim bolRetVal as Boolean
bolRetVal = GetPropertyValue(oCustomPropSet, "Pierces", BHPierces)
If Not bolRetVal Then
'take some action here...
End If
'or you could just simply call it this way if
'you do not need to react to the error condition...
GetPropertyValue oCustomPropSet, "Pierces", BHPierces
_________________
Robert A. Williams
http://www.leacar.com
"Gentlemen...you can't fight here. This is the War Room!"
Login
Register
FAQ
Search
