Предлагам програмка, която прехвърля всички елементи на всички блокове в чертежа в слой "0".

;прехвърля всички елементи на всички блокове в слой "0"
(defun reblk0 (/ en eni)
(if (setq en (tblnext"block"T))
(progn
(WHILE en
(setq en(cdr(ASSOC -2 en)))
(while en
(setq eni(entget en)
eni (subst '(8 . "0")(ASSOC 8 eni)eni))
(entmod eni)
(setq en (entnext en))
);while elem en
(setq en (tblnext "block"))
);WHILE
(command "regen")
);progn
);if blocks
);reblk0

Записваш я като reblk0.lsp. Зрареждаш я чрез LoadApplication и я стартираш чрез

(reblk0)