IsProductActive
From scripting
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