(defun C:afenst-layer ()
	(print "gewählten Layer in allen Ansichtsfenstern außer dem aktuellem frieren")
	(print "Objekt anklicken")

	(setq LAYER-BEZ (entget (car (nentsel))))
	(setq LAYER-BEZ (cdr (assoc 8 LAYER-BEZ)))

	(command "aflayer" "fr" layer-bez "al" "ta" layer-bez "ak" "")

	(print
		(strcat "Layer "
			LAYER-BEZ
			" wurde in allen Ansichtsfenstern außer dem aktuellen  gefroren."
		)
	)
 	(command "regenall")
);end of defun