;;;Freeze layers of a selection set of entities.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-26-95
;;;>		   EDITED: 04-08-1997
;;;
(DEFUN C:lafrz ( / tht tset tsln cntr tent)
(prompt "\nSelect Entities for Layers to Freeze: ")
(setq tset (ssget))
(if tset
  (progn
    (setq tsln (sslength tset))
    (setq cntr 0)
  )
)
;(command ".layer" "f" 
(while
  (if (and (< cntr tsln) tset)
    (setq tent (entget (ssname tset cntr)))
  );if
  (setq entla (strcat (cdr(assoc 8 (entget (cdar tent)))) ","))
  (command ".layer" "f" entla "")
  (setq cntr (1+ cntr))
  (prin1 entla)
)
;"")
);DEFUN