LISP modification request...

[subdVision]

Hi all,

 

I came across a LISP routine that freezes the layer of any selected object. It works great but I want it to viewport freeze layers, not freeze for the entire drawing.

 

This is where I found it:

http://forums.augi.com/showthread.php?78426-Special-Layer-Freeze-LISP-Routine

 

and this is the code I'd like to have modified: (the code wrap button doesn't seem to work)

 

(defun c:LFR (/ CLayer$ EntList@ EntName^ Layer$)
(setq CLayer$ (getvar "CLAYER"))
  (princ "\nSelect object on layer to freeze")
  (if (setq EntName^ (car (entsel)))
    (progn
      (setq EntList@ (entget EntName^))
      (setq Layer$ (cdr (assoc 8 EntList@)))
      (if (and (= Layer$ CLayer$)(/= Layer$ "0"))
        (command ".LAYER" "T" "0" "U" "0" "ON" "0" "S" "0" "")
      );if
      (if (= Layer$ "0")
        (princ "\nCannot freeze layer 0.")
        (command ".LAYER" "F" Layer$ "")
      );if
    );progn
  );if
  (princ)
);defun c:LFR
[code]
 
 
I also attached the actual .LSP file to make it easier.
LFR.LSP