如何修改选择集中某个图元的颜色啊

南林浣风

如何修改选择集中某个图元的颜色为红色啊
比如说：
(SETQ nn (SSLENGTH ASS)
         n  -1
   )
(REPEAT nn     
      (SETQ n (1+ n))
      (SETQ nament (SSNAME ass 0))
      (SETQ defent (ENTGET nament))
      (SETQ defent (SUBST (62 . 1) (ASSOC 62 defent) defent))
   )
      (ENTMOD defent)
      (ENTUPD nament)
运行后图元的颜色还是黑色，为什么啊

ZZXXQQ

(if (assoc 62 defent)
(entmod (subst '(62 . 1) (assoc 62 defent) defent))
(entmod (append defent '((62 . 1 ))))
)