객체 색상변경

(setq ss (ssget (list (cons 0 “*TEXT”))))
(setq e (ssname ss 0))
(setq obj (vlax-ename->vla-object e))

 이런식으로 가져왔을때
e나 obj 변수를 사용하여 객체 색상을 변경하는 방법이 있는지 알고 싶습니다.(레이어는 유지)