Script for all classes

[TMalus11]

hallo Zusammen, ich möchte mir ein Skript schreiben bei dem ich alle Klassen einblenden kann.
Allderdings möchte ich 2 bestimmte Klassen unsichtbar lassen.
Welche Prozeduren kann ich darfür nehmen?

[TMalus11]

Just now, t.aichele@freudig.com said:

Hello everyone, I would like to write a script in which I can show all classes.
However, I want to keep 2 specific classes invisible.
What procedures can I take?

 

[Pat Stanford]

Procedure ClassSet;

Var		L1 :LongInt;

Begin
	For L1:=1 to ClassNum do ShowClass(Classlist(L1)); {Shows all classes}
	HideClass('MyClassName1');
	HideClass('MyClassName2');
End;

Run(ClassSet);

 

Change the names of the classes you want hidden to something that exists in your file or delete those rows.

 

Or use the Saved View command to make a saved view that just changes the class visibilities.

 

HTH

[TMalus11]

Thanks for the help!
Is it actually possible to turn off class groups with a procedure?
Or is there also a procedure that can control classes that start with the same character or word as "Wall"?

[Pat Stanford]

As far as I know, there are only procedures to Show/Hide/Grey individual classes.

 

You could expand the look I show for making everything visible to check names. Something like (completely untested. typed here in the forum):

 

For L1:=1 to ClassNum do 
	Begin
		ClassName:=Classlist(L1)); {Get name of class}
		If Copy(ClassName,1,5)='Prefix' then HideClass(Classname); {if the class name starts with 'Prefix' then hide the class}
	End;

You wil have to define ClassName as a variable of type String in the VAR section of the program.