[在线求助]如何用LISP获得图层颜色

jlchjwhc · 发表于 2009-5-14 13:46:00

请高手帮忙，如何用LIST获得图层RGB格式颜色代码

Andyhon · 发表于 2009-5-14 14:10:00

Check here:
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=70904&extra=&page=1

jlchjwhc · 发表于 2009-5-14 14:23:00

谢谢了，这个不适合我

jlchjwhc · 发表于 2009-5-14 16:10:00

我是想提取RGB格式的图层颜色，如231,225,151怎样才能用LISP提取出来。请教高手

cjjh8301 · 发表于 2010-7-27 09:50:00

(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)
)

账号		自动登录	找回密码
密码			注册