How to check user input for CATPart or CATProduct?

[Kattmandu]

How do I add code to check the user input for .CATPart or .CATProduct?

Dim strFilename As String
strFilename = InputBox("Enter filename with extension", strFilename)

Dim partDocument1 As Document
Set partDocument1 = CATIA.Documents.Item(strFilename)

Dim viewBehavior As DrawingViewGenerativeBehavior
Set viewBehavior = drawingView1.GenerativeBehavior

[COLOR=#CC0000]If (strFilename is a CATPart) Then[/color]
viewBehavior.Document = partDocument1
viewBehavior.Update

[COLOR=#CC0000]ElseIf (strFilename is a CATProduct) Then[/color]
viewBehavior.Document = partDocument1.Product
viewBehavior.Update

[COLOR=#CC0000]Else (Neither CATProduct or CATPart)[/color]
MsgBox "Neither CATPart nor CATProduct!"

End If

 

[itsmyjob]

InStr

doc here

https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/instr-function

Eric N.
indocti discant et ament meminisse periti ​

 

[Camillo]

Hello,
Please see my code below. I'm using DELMIA instead of CATIA (the same family), but I think it should work for you too.

Option Explicit
Sub CATMain()
    Dim oSelection 'As Selection 'I've sometimes issues when type "Selection"
    Dim testedObj As Object

    Set oSelection = CATIA.ActiveDocument.Selection
    Set testedObj = oSelection.Item2(1).Value

    testedObj.ApplyWorkMode (2) 'need to use changemode from visualization mode
    Set oprod = testedObj.ReferenceProduct.Parent

    If TypeName(oprod) = "PartDocument" Then
        MsgBox "Part selected"
    Else
        MsgBox "Product selected"
    End If

    testedObj.ApplyWorkMode (1)
End Sub