IsProductActive

Function IsProductActive() As Boolean
     
OPArr = StrangeComponent("Part", "TESTCASE1", CATIA.ActiveDocument.Product.Products, CATIA.ActiveDocument.Product)
Set OutputProd = OPArr(0)
Set OutputPart = OPArr(1)
Set ScrExtRef = OutputPart.HybridBodies.Add
SafeHide ScrExtRef
If CATIA.ActiveDocument.Selection.Count <> 0 Then
    CATIA.ActiveDocument.Selection.Clear
End If
CATIA.ActiveDocument.Selection.Add OutputPart
Dim JVal As CatVisPropertyShow
CATIA.ActiveDocument.Selection.VisProperties.GetShow JVal   
If JVal = catVisPropertyNoShowAttr Then 
    CATIA.StartCommand "undo"
    IsProductActive = True
    Exit Function
End If
CATIA.StartCommand "undo"
IsProductActive = False
End Function