;Freeze layers of a selection set of entities.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	4-26-95
;	Edited:		4-26-95
;
(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