[LISP程序]：如何用ssget函数选择随层颜色的对象呢？

leemanzhuo

有一图层，图层中有随层颜色的对象，也有各种其他颜色的对象，如何用ssget函数把该层中是随层颜色的对象选择出来呢？

ll_j

颜色随层：(ssget '((62 . 256)))
颜色随块：(ssget '((62 . 0)))
线形随层：(ssget '((6 . "BYLAYER"))) 或：(ssget '((6 . "随层")))（中文版）
线形随块：(ssget '((6 . "BYBLOCK"))) 或：(ssget '((6 . "随块")))（中文版）

wkai

可是会有实体数据表中没有62组码项的情况呀~

cy956

没有的就是随层。用entmake生成实体时，如果加入dxf62的
"bylayer",生成以后一样没62组码。

2. 
   
3. ;;;filt=图层颜色,列出所有颜色为filt的图层表
   
4. (defun cy_lay_62(filt / LAY-COL LAY0 LAYB LAYNAM)
   
5.   (setq lay0(tblnext "LAYER" t)
   
6.         laynam(dxf 2 lay0)lay-col(abs (dxf 62 lay0)))
   
7.   (if (= filt lay-col)
   
8.     (setq layb(list laynam))
   
9.     (setq layb '())
   
10.   )
    
11.   (while (setq lay0(tblnext "LAYER"))
    
12.     (setq laynam(dxf 2 lay0)
    
13.           lay-col(abs (dxf 62 lay0)))
    
14.     (if (= filt lay-col)
    
15.       (setq layb(append layb (list laynam)))
    
16.     )
    
17.   )layb
    
18. )
    
19. 
    
20. (defun cy_ssget_col(col / E EN IN LAYB N S S1);;;col=1~255
    
21.   (setq layb(cy_lay_62 col))
    
22.   (prompt "\n选择要用颜色过滤的物体【不选＝全选】:")
    
23.   (setq s (ssget))
    
24.   (if (not s)(setq s(ssget "X")))
    
25.   (setq n (sslength s) in 0 s1(ssadd))
    
26.   (repeat n
    
27.     (setq e(ssname s in) en(entget e)
    
28.           in (1+ in))
    
29.     (if (assoc 62 en)
    
30.       (if (= (dxf 62 en) col)(ssadd e s1))
    
31.       (if (member (dxf 8 en) layb)(ssadd e s1))
    
32.     )
    
33.   )s1
    
34. )
    
35. ;;(cy_ssget_col col)用颜色过滤的物
    
36. 
    

<br /> ;;;filt=图层颜色,列出所有颜色为filt的图层表<br /> (defun cy_lay_62(filt / LAY-COL LAY0 LAYB LAYNAM)<br />   (setq lay0(tblnext "LAYER" t)<br />         laynam(dxf 2 lay0)lay-col(abs (dxf 62 lay0)))<br />   (if (= filt lay-col)<br />     (setq layb(list laynam))<br />     (setq layb '())<br />   )<br />   (while (setq lay0(tblnext "LAYER"))<br />     (setq laynam(dxf 2 lay0)<br />           lay-col(abs (dxf 62 lay0)))<br />     (if (= filt lay-col)<br />       (setq layb(append layb (list laynam)))<br />     )<br />   )layb<br /> )<br /> <br /> (defun cy_ssget_col(col / E EN IN LAYB N S S1);;;col=1~255 <br />   (setq layb(cy_lay_62 col)) <br />   (prompt "\n选择要用颜色过滤的物体【不选＝全选】:") <br />   (setq s (ssget)) <br />   (if (not s)(setq s(ssget "X"))) <br />   (setq n (sslength s) in 0 s1(ssadd)) <br />   (repeat n <br />     (setq e(ssname s in) en(entget e) <br />           in (1+ in)) <br />     (if (assoc 62 en) <br />       (if (= (dxf 62 en) col)(ssadd e s1)) <br />       (if (member (dxf 8 en) layb)(ssadd e s1)) <br />     ) <br />   )s1 <br /> ) <br /> ;;(cy_ssget_col col)用颜色过滤的物<br /> <br />