Reversing layers

[liv4gzus]

I am looking to find out if there is a single command that will reverse all layers at once. For example, if I have 5 layers in a drawing and 3 are frozen and 2 are thawed, is there a single command that will reverse these layers so that there would now be 2 frozen and 3 thawed? I know if I only have a small amount of layers reversing them by simply picking them is fine, but if you have 100 it gets to be a little tedious. Thanks for the help.

 

[Jeff Mishler]

See my response to this question in the 2002general newsgroup.

Jeff

I am looking to find out if there is a single command that will reverse

all layers at once. For example, if I have 5 layers in a drawing and 3 are frozen and 2 are thawed, is there a single command that will reverse these layers so that there would now be 2 frozen and 3 thawed? I know if I only have a small amount of layers reversing them by simply picking them is fine, but if you have 100 it gets to be a little tedious. Thanks for the help.

 

[liv4gzus]

Jeff,

I saw your response. Could you please send me that lsp at . I would appreciate it. Thanks.

 

[ECCAD]

Here is a Lisp:
Give it a whirl.

(defun C:RL ; reverse Layers..
;; note: Only Freeze / Thaw, does not 'lock' or set 'plot' bits. (setq laylist nil) (setq lt (tblnext "LAYER" T)); reset to top of Table (while (setq lt (tblnext "LAYER")) (setq ln (cdr lt)) (setq lx (cdr (assoc 2 ln))) (if (/= lx "0") (progn (setq x (cdr (assoc 70 ln))); get visible bit (if (= x 0) (command "_layer" "_on" lx "_f" lx "") ); end if (if (= x 1) (command "_layer" "_on" lx "_t" lx "") ); end if ); end progn ); end if ); end while (princ)
); end function

Bob Shaw
(bobscadshop.com)

 

[The Real JD]

Could you post it the Customer files newsgroup?
Thx
Cheers!

 

[Jeff Mishler]

Done!

Jeff

Could you post it the Customer files newsgroup?
Thx
Cheers!