AutoCAD 2010/2011/2012 DWG Format

[#1]

I currently use the lisp command below for freezing layers.... But after I select the object I want to freeze I have to enter into the command again.... Is there anyway to have this command continuously loop until I am done using it?

   (defun C:FL ( / layer)     

       (setq layer

         (cdr

           (assoc 8

              (entget

                 (car

                   (entsel "Pick Item to freeze layer "))))))

      (command "layer" "freeze" layer "")

Thank You,

MRL

[#2 · Accepted solution]

Check out this site. Has everytihing you need. http://www.afralisp.net/

[#3]

Enter a "while" is T (true) in the lisp and it should loop until you cancel the command.  Look into the AutoLISP help files for more info. 

[#4]

So what would the lisp command look like then... would you edit mine to what it would be??

Thank you

MRL

[#5 · Accepted solution]

How much money you got to give?  Remember how much of a time-saver this will be today and in the future before you give an answer!!!!!

Just kidding, here you go.

(defun C:FL ( / layer)
  (while T
    (setq layer (cdr (assoc 8 (entget (car (entsel "Pick Item to freeze layer "))))))
    (command "layer" "freeze" layer "")
  ); end while
); end Fl.lsp

Just hit the escape key when done with your picks.  Have fun.

[#6]

Thanks to both of you guys for the responses.  the command works great like a freaking charm...and the website perfect for guidance... however I am sure I will have more....

Thank you both again.

MRL

[#7]

Your original code wasn't working because you've made the LAYER variable 'local', that way LISP won't remember it when the FL routine finishes.

Anyway, the code with While is much better.