【K:ChgSSgetOrder】选择集对象置顶OR置底

kucha007

分享一个函数：

1. ;CorLst:颜色列表
   
2. ;LayLst:图层列表
   
3. ;Type:置顶"F"或置底"B"
   
4. (defun K:ChgSSgetOrder (CorLst LayLst Type / TmpLay CorLayLst SS)
   
5.   (if CorLst
   
6.     (progn
   
7.         (setq CorLayLst Nil)
   
8.         (while (setq TmpLay (tblnext "LAYER" (null TmpLay)))
   
9.           (if (member (cdr (assoc 62 TmpLay)) CorLst)
   
10.             (setq CorLayLst (cons (cdr (assoc 2 TmpLay)) CorLayLst))
    
11.           )
    
12.         )
    
13.     )
    
14.   );获取符合颜色列表的图层
    
15.   (if (or CorLst LayLst)
    
16.     (progn
    
17.       (setq SS
    
18.         (ssget "X"
    
19.           (append
    
20.             (if (eq 1 (getvar "cvport")) (list (cons 410 (getvar "ctab"))) (list (cons 410 "Model")));模型OR布局
    
21.             (list (cons -4 "<OR"))
    
22.               (if CorLst
    
23.                 (append
    
24.          
    
25.                   (list (cons -4 "<OR"))
    
26.                   (mapcar '(lambda (x) (cons 62 x)) CorLst)
    
27.                   (list (cons -4 "OR>"))
    
28.                 )
    
29.               )
    
30.               (if LayLst
    
31.                 (append  
    
32.                   (list (cons -4 "<OR"))
    
33.                   (mapcar '(lambda (x) (cons 8 x)) LayLst)
    
34.                   (list (cons -4 "OR>"))
    
35.                 )
    
36.               )
    
37.               (if CorLayLst
    
38.                   (append  
    
39.                     (list (cons -4 "<and"))
    
40.                       (list (cons 62 256));随层
    
41.                       (list (cons -4 "<OR"))
    
42.                       (mapcar '(lambda (x) (cons 8 x)) CorLayLst)
    
43.                       (list (cons -4 "OR>"))
    
44.                     (list (cons -4 "and>"))
    
45.                   )
    
46.               )
    
47.             (list (cons -4 "OR>"))
    
48.           )
    
49.         )
    
50.       )
    
51.       (command "_DrawOrder" SS "" Type)
    
52.     )
    
53.   )
    
54.   (princ)
    
55. )
    

;CorLst:颜色列表<br /> ;LayLst:图层列表<br /> ;Type:置顶"F"或置底"B"<br /> (defun K:ChgSSgetOrder (CorLst LayLst Type / TmpLay CorLayLst SS)<br />   (if CorLst<br />     (progn<br />         (setq CorLayLst Nil)<br />         (while (setq TmpLay (tblnext "LAYER" (null TmpLay))) <br />           (if (member (cdr (assoc 62 TmpLay)) CorLst)<br />             (setq CorLayLst (cons (cdr (assoc 2 TmpLay)) CorLayLst))<br />           )<br />         )<br />     )<br />   );获取符合颜色列表的图层<br />   (if (or CorLst LayLst)<br />     (progn<br />       (setq SS <br />         (ssget "X" <br />           (append <br />             (if (eq 1 (getvar "cvport")) (list (cons 410 (getvar "ctab"))) (list (cons 410 "Model")));模型OR布局<br />             (list (cons -4 "<OR"))<br />               (if CorLst<br />                 (append <br />           <br />                   (list (cons -4 "<OR"))<br />                   (mapcar '(lambda (x) (cons 62 x)) CorLst)<br />                   (list (cons -4 "OR>"))<br />                 )<br />               )<br />               (if LayLst<br />                 (append  <br />                   (list (cons -4 "<OR"))<br />                   (mapcar '(lambda (x) (cons 8 x)) LayLst)<br />                   (list (cons -4 "OR>"))<br />                 )<br />               )<br />               (if CorLayLst<br />                   (append  <br />                     (list (cons -4 "<and"))<br />                       (list (cons 62 256));随层<br />                       (list (cons -4 "<OR"))<br />                       (mapcar '(lambda (x) (cons 8 x)) CorLayLst)<br />                       (list (cons -4 "OR>"))<br />                     (list (cons -4 "and>"))<br />                   )<br />               )<br />             (list (cons -4 "OR>"))<br />           )<br />         )<br />       )<br />       (command "_DrawOrder" SS "" Type)<br />     )<br />   )<br />   (princ)<br /> )<br />

;用法参考

1. (K:ChgSSgetOrder
   
2.     '(8 250 251 252 253 254 255);灰色对象
   
3.     '("LayNam1" "LayNam2");图层列表:不知道为什么不能包含"0"图层
   
4.     "B" ;置底
   
5. )
   

(K:ChgSSgetOrder<br />     '(8 250 251 252 253 254 255);灰色对象<br />     '("LayNam1" "LayNam2");图层列表:不知道为什么不能包含"0"图层<br />     "B" ;置底<br /> )<br />

magicheno

感谢大佬分享