请教老师如何查图层默认颜色组码？

★飞飛★

就是用Lisp代码查图层的ByLayer颜色组码？谢谢！
我的目的就是想做颜色筛选，但现在只能选到改了图层颜色的图元。附代码，供指导或分享。

2. (defun c:sxs () ;;筛选相同颜色(★飞飛★)
   
3. (if (setq s1 (car (entsel "\n相同颜色亮显，请点选颜色对象: ")))
   
4.     (progn
   
5.       (princ "\n请框选范围或 <全选>:")
   
6.       (setq en (ssget (list (assoc 62 (cdr (entget s1))))))
   
7.       (sssetfirst nil nil)
   
8.       (sssetfirst nil en )
   
9.       (if (= en nil)
   
10.       (sssetfirst nil (ssget "x" (list (assoc 62 (cdr (entget s1))))))
    
11.       )
    
12.     )
    
13. )
    
14.   (princ)
    
15. )
    

(defun c:sxs () ;;筛选相同颜色(★飞飛★)<br /> (if (setq s1 (car (entsel "\n相同颜色亮显，请点选颜色对象: ")))<br />     (progn<br />       (princ "\n请框选范围或 <全选>:")<br />       (setq en (ssget (list (assoc 62 (cdr (entget s1))))))<br />       (sssetfirst nil nil)<br />       (sssetfirst nil en )<br />       (if (= en nil)<br />       (sssetfirst nil (ssget "x" (list (assoc 62 (cdr (entget s1))))))<br />       )<br />     )<br /> )<br />   (princ)<br /> )<br />

renhaitao_nice

随层的颜色，似乎只能通过对象属性获取，不能通过图元名获取

Andyhon

Ref:
http://bbs.mjtd.com/thread-176789-1-1.html

★飞飛★

Andyhon 发表于 2018-3-18 08:34
Ref:
http://bbs.mjtd.com/thread-176789-1-1.html

感谢老师提供的帮助！