Difference between revisions of "IsProductActive"
From scripting
(Created page with " Function IsProductActive() As Boolean OPArr = StrangeComponent("Part", "TESTCASE1", CATIA.ActiveDocument.Product.Products, CATIA.ActiveDocument.Product) Set Outp...") |
(No difference)
|
Latest revision as of 07:02, 22 April 2017
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