I'll start by noting that I am a complete novice to scripting, but I do have a working solution to what you describe. This is a catvbs script that switches off axis systems, planes, and assembly constraints in one click.
Language="VBSCRIPT"
Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set selection1 = productDocument1.Selection
selection1.Search "CATProductSearch.MfConstraint.Visibility=Shown,all"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1
selection1.clear
Set selection1 = productDocument1.Selection
selection1.Search "CATPrtSearch.AxisSystem.Visibility=Shown,all"
Set VisPropSet1 = Selection1.VisProperties
VisPropSet1.SetShow catVisPropertyNoShowAttr
selection1.clear
Set selection1 = productDocument1.Selection
selection1.Search "CATPrtSearch.Plane.Visibility=Visible,all"
Set VisPropSet1 = Selection1.VisProperties
VisPropSet1.SetShow catVisPropertyNoShowAttr
selection1.clear
End Sub
I only worked the script to a point that it works, but along the way I discovered a few things. There are shown/hidden attributes, as well as visible/invisible. You can set the show attribute to 0 / 1, or to catVisPropertyNoShowAttr / catVisPropertyShowAttr. I haven't dug deep enough to really understand the implications of all this.
I have been told by a coworker that modifying the script to select only elements that are on the screen, rather than searching for all shown, speeds the process considerably. That would be to change the search criteria from "all" to "scr." But, I haven't gotten around to updating the script.
I would welcome any suggested improvements to this
Cheers,
Mark