;;;-----------------------------------------------------------------------

(defun Change-Color-F1 (Lst CNr)

  (if (assoc 62 Lst)

    (setq Lst (subst (cons  62 CNr)
                     (assoc 62 Lst)
                               Lst
              )
    )

    (setq Lst (append Lst (list (cons 62 CNr ))))
  )

  (entmod Lst)

  (entupd (cdr (assoc -1 Lst)))
)

;;;-----------------------------------------------------------------------

(defun Change-Color-F2 ( obj cnr )

  (vla-put-Color obj cnr)

)

;;;-----------------------------------------------------------------------

(defun C:F1 ( / pick e el )

  (if (setq pick (entsel))
    (progn

      (setq el (entget (car pick)))

      (Change-Color-F1 el 1)

    ) ; end progn
  ) ; end if

  (princ)
)

;;;-----------------------------------------------------------------------

(defun C:F2 ( / pick e el )

  (if (setq pick (entsel))

    (Change-Color-F2 (vlax-ename->vla-object (car pick))
                     acRed
    )

  ) ; end if

  (princ)
)

;;;-----------------------------------------------------------------------