[向高手求助]用LISP获得图层颜色

jlchjwhc

请教高手，如何获得实体图层颜色，RGB格式的，如颜色为231,205,112.用LISP怎么才能获得

cjjh8301

(defun c:SS()
(setq objA (entsel"\n选图形: "))
(setq en2 (entget (car objA)))
(setq en3 (assoc 8 en2)) 
(setq en4 (cdr en3))
(setq en5 (cdr (assoc 62 (entget (tblobjname "layer" en4)))))
(prompt (strcat " 颜色为" (rtos en5 2 0)))
(PRINC)
)

 

只能显示图层颜色色号 ，如果所选实体如线条 被该过颜色 则无法显示

piao1887

(setq ys (vla-get-color
        (vla-get-activelayer
   (vla-get-activedocument (vlax-get-acad-object))
        )
      )
    )

 

获取当前图层的颜色