Jump to content
subdVision

LISP modification request...

Recommended Posts

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×