Dobrý den,

zhasínání nemusí být zdlouhavé, když vyberete všechny party najednou (se stisknutým shift vyberete první a poslední) a pak si je zobrazíte ty co chcete vidět. Další možností je otevřít si novou prázdnou sestavu a do ní si nakopírovat (opět jen vybrat a ctrl+c, ctrl+v) co chcete vidět pohromadě.

Já jsem daný problém řešil zhotovením makra, kdy si nejdříve označím party nebo podsestavy, které chci vidět samostatně a dané makro provede to, že v novém okně otevře novou sestavu, kam vloží vše označené.
My děláme nástroje, kde je hlavní sestava a pak 2 hlavní podsestavy (spodní části a horní části) a když jsem chtěl vidět např. kvůli kolizím jen několik partu ze spodních částí a několik z horních částí, tak označování a vypínání ostatních partu a podsestav např. do NO SHOW bylo velmi otravné.

Jen tak zkusmo...

Sub CATMain() 

   Set oADoc = CATIA.ActiveDocument 

   Set oSelection = oADoc.Selection 



   Dim ObjType(0)

   ObjType(0) = "Product"



   oSelection.Clear() 

   Status = oSelection.SelectElement3(ObjType, "Vyberte produkty...", true,CATMultiSelTriggWhenUserValidatesSelection,false) 



   If Status = "Cancel" Then 

      Exit Sub 

   End If 



   oSelection.Copy() 

   oSelection.Clear() 



   Set oPDoc = CATIA.Documents.Add("Product") 

   Set oSelection = oPDoc.Selection 



   oSelection.Add(oPDoc.Product) 

   oSelection.Paste() 

End Sub 

Neošetřeno, ale zdá se že funguje :-)