Преобразует любой цвет в номер

(defun ru-conv-color-to-number (color)
;;; преобразует любой цвет в номер
;;; (ru-conv-color-to-number  "RED") > 1
;;; (ru-conv-color-to-number  2) > 2
;;; (ru-conv-color-to-number  "Blue") > 5
;;; (ru-conv-color-to-number  "Зеленый")  0
;;; добавить другие цвета и для RGB
  ;|
 |;

  (cond
    ((= color "BYBLOCK")
     0
    )
    ((= color "BYLAYER")
     256
    )
    ((equal 'STR (type color))
     (setq color (strcase color))
     (if (setq number_color (vl-position color (list "RED" "YELLOW" "GREEN" "CYAN" "BLUE" "MAGENTA" "WHITE")))
       (1+ number_color)
       (atoi color)
     ) ;_ end of if
    )
    (t
     (if (equal 'INT (type color))
       color
       (atoi color)
     ) ;_ end of if
    )
  ) ;_ end of cond
) ;_ end of defun