LISP выставляет выделенным объектам свойства: цвет, толщину линии и тип линии в значение «по слою».

(defun c:setbylayer ()
(prompt "\nSelect objects:")
(setq s1 (ssget))
(command "chprop" s1 "" "color" "bylayer" "LT" "bylayer" "lweight" "bylayer" "")
(princ)
)