;;;;;Freeze multiple layers with gmc, do your work, thaw them with lmc;;;;;;;;;

(defun c:gmc( / e  ce )
	(setq flist nil)
	(while (setq e (car (entsel)))
		(redraw e 3)
		(setq l (cdr (assoc 8 (entget e))))
		(if (not (member l flist))
			(setq flist (append flist (list l)))
		)
	)
	(if flist
		(progn
			(setq ce (getvar "cmdecho"))
			(setvar "cmdecho" 0)
			(command "_.layer")
			(foreach i flist (command "_freeze" i))
			(command "")
			(setvar "cmdecho" ce)
		)
	)
	(princ)
)
	
(defun C:lmc ()    
	(if flist
		(progn
			(setq ce (getvar "cmdecho"))
			(setvar "cmdecho" 0)
			(command "_.layer")
			(foreach i flist (command "_thaw" i))
			(command "")
			(setvar "cmdecho" ce)
		)
	)
	(princ)
)