DIZNEY Posted October 14, 2003 Share Posted October 14, 2003 Is there a way in VW 10 to turn off all of the classes that are "on" and all of the "off" classes on in one command? what's the best/ quickest way to do this? thanks Quote Link to comment
EvB Posted October 15, 2003 Share Posted October 15, 2003 Turn all the classes on - save sheet - name 'On'. Turn all the classes off - save sheet - name 'Off'. Of course you will have to resave these if you add new classes. [ 10-14-2003, 10:34 PM: Message edited by: EvB ] Quote Link to comment
MullinRJ Posted October 15, 2003 Share Posted October 15, 2003 Try this short script. It will toggle all the classes, regardless of how many you have. The Class PopUp menu in the Data Display Bar does not update the little icons on the left properly, unless you open the Class... dialogue box and then close, but the script works. You can put the script in a script palette, or make it a Menu PIO and assign a shortcut key to it. I hope this is what you were asking for. Raymond code: Procedure ToggleClassVisibility; { Toggle the visibility of every class. Remember, the active class stays visible. 15 Oct 2003 - Raymond Mullin } VAR I, ClassCnt :LongInt; ClassName :String; BEGIN ClassCnt := ClassNum; I := 0; while (I<ClassCnt) do begin I := I + 1; ClassName := ClassList(I); case GetCVis(ClassName) of 0: HideClass(ClassName); { Visible } -1: ShowClass(ClassName); { Hidden } 2: begin end; { Grayed } end; { case } end; { while } END; Run(ToggleClassVisibility); [/code] Quote Link to comment
MKMAY Posted October 16, 2003 Share Posted October 16, 2003 Mullin Thought I would try your script copyied from your post (I'm very rusty)I got the following after compileing. Pretty sure I copyied it right Line #16: -1: ShowClass(ClassName); {Hidden} | { Error: Expected BEGIN } I'm sure this would be my error Thanks Quote Link to comment
jfmarch Posted October 16, 2003 Share Posted October 16, 2003 if you try VectorDepot's website, they might have some PIO's all ready to install that will do what you want. hope this helps... Quote Link to comment
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.