怎样取得选中文字的颜色？？？？？？？？？？？？？？

toosimple

求助，有谁怎样取得选中文字的颜色啊，帮帮忙

Student

;供参考： (defun c:tc(/ ent tColor)
(setq ent(entsel "\n选择文字:"))
(if ent
(progn
(setq ent(car ent))
(setq tColor(cdr(assoc 62 (entget ent))))
(if tColor
(setq tColor (strcat "颜色为:" (itoa tColor)))
(setq tColor "颜色随层")
)
(princ tColor)
)
)
(princ)
)
;