按色归层（把实体调整到按颜色号创建的图层，实体颜色BYLAYER，图层颜色设置成实体的.

marting

按色归层（把实体调整到按颜色号创建的图层，实体颜色BYLAYER，图层颜色设置成实体的颜...

1. (defun c:XDTB_GLyrByClr        (/ ss)
   
2.   (if (and (xdrx-initssget "\n选择要归层的对象<退出>:")
   
3.            (setq ss (xdrx-ssget))
   
4.       )
   
5.     (progn
   
6.       (setq lyrs nil)
   
7.       (mapcar '(lambda (x)
   
8.                  (xdrx-getpropertyvalue x "colorindex" t "layer" t)
   
9.                  (xdrx-setpropertyvalue
   
10.                    x
    
11.                    "color"
    
12.                    256
    
13.                    "layer"
    
14.                    (itoa #colorindex)
    
15.                  )
    
16.                  (xdrx-setpropertyvalue
    
17.                    (xdrx-getpropertyvalue x "layer" t)
    
18.                    "color"
    
19.                    #colorindex
    
20.                  )
    
21.                  (setq lyrs (cons #colorindex lyrs))
    
22.                )
    
23.               (xdrx-pickset->ents ss)
    
24.       )
    
25.       (xdrx-prompt
    
26.         "\n按颜色归整了 "
    
27.         (length (xd::list:removedup lyrs))
    
28.         " 个图层."
    
29.       )
    
30.     )
    
31.   )
    
32.   (princ)
    
33. )

(defun c:XDTB_GLyrByClr        (/ ss)<br />   (if (and (xdrx-initssget "\n选择要归层的对象<退出>:")<br />            (setq ss (xdrx-ssget))<br />       )<br />     (progn<br />       (setq lyrs nil)<br />       (mapcar '(lambda (x)<br />                  (xdrx-getpropertyvalue x "colorindex" t "layer" t)<br />                  (xdrx-setpropertyvalue<br />                    x<br />                    "color"<br />                    256<br />                    "layer"<br />                    (itoa #colorindex)<br />                  )<br />                  (xdrx-setpropertyvalue<br />                    (xdrx-getpropertyvalue x "layer" t)<br />                    "color"<br />                    #colorindex<br />                  )<br />                  (setq lyrs (cons #colorindex lyrs))<br />                )<br />               (xdrx-pickset->ents ss)<br />       )<br />       (xdrx-prompt<br />         "\n按颜色归整了 "<br />         (length (xd::list:removedup lyrs))<br />         " 个图层."<br />       )<br />     )<br />   )<br />   (princ)<br /> )

kyky1002

有点特别的插件谢谢分享