Лаба 3 / Laba 3

(defun ch-color ( / C L)
  (setq    c (cons 62 (acad_colordlg 7))
    l t
  ) ;_  setq
  (while (and (setq l (cdr (assoc 2 (tblnext "layer" l))))
          (setq l (tblobjname "layer" l))
     ) ;_  and
    (entmod (subst c (assoc 62 (entget l)) (entget l)))
    (entupd l)
    (setq l nil)
  ) ;_  while
) ;_  defun
;Проверка:(ch-color)