Done, my first - greenhorns script :grin:
I turned it into a plug-in menu command, added into my workspace and asigned keyboard shortcut ...
{///////////////////////////////////////////
Show Hide objects
Shows / hides geometry while In Group
///////////////////////////////////////////}
PROCEDURE ShHiobj;
BEGIN
SetPref(14,NOT GetPref(14));
END;
Run(ShHiobj);