【K:SSplit4Lay 】根据图层名称拆分选择集SS

kucha007

1. ;根据图层名称拆分选择集SS
   
2. (defun K:SSplit4Lay (SS / EntLst en Tmp LayLst Lay LayEnts)
   
3.   (defun LM:ss->ent (SS / i Lst)
   
4.     (if SS
   
5.       (repeat (setq i (sslength SS))
   
6.         (setq Lst (cons (ssname SS (setq i (1- i))) Lst))
   
7.       )
   
8.     )
   
9.   );将选择集转换为实体列表 by Lee Mac
   
10.   (setq EntLst (LM:ss->ent SS))
    
11.   (foreach en EntLst
    
12.     (setq Tmp (cdr (assoc 8 (entget en))))
    
13.     (if (not (member Tmp LayLst))
    
14.       (setq LayLst (cons Tmp LayLst))
    
15.     )
    
16.   );获取选择集包含的图层名称
    
17.   (foreach Lay LayLst
    
18.     (setq Tmp '())
    
19.     (foreach en EntLst
    
20.       (if (eq (strcase Lay) (strcase (cdr (assoc 8 (entget en)))))
    
21.         (setq Tmp (cons en Tmp))
    
22.       )
    
23.     )
    
24.     (setq LayEnts (cons (cons Lay Tmp) LayEnts))
    
25.   )
    
26.   (reverse LayEnts)
    
27. )
    
28. 
    
29. 
    

;根据图层名称拆分选择集SS<br /> (defun K:SSplit4Lay (SS / EntLst en Tmp LayLst Lay LayEnts)<br />   (defun LM:ss->ent (SS / i Lst) <br />     (if SS <br />       (repeat (setq i (sslength SS)) <br />         (setq Lst (cons (ssname SS (setq i (1- i))) Lst))<br />       )<br />     )<br />   );将选择集转换为实体列表 by Lee Mac<br />   (setq EntLst (LM:ss->ent SS))<br />   (foreach en EntLst <br />     (setq Tmp (cdr (assoc 8 (entget en))))<br />     (if (not (member Tmp LayLst)) <br />       (setq LayLst (cons Tmp LayLst))<br />     )<br />   );获取选择集包含的图层名称<br />   (foreach Lay LayLst <br />     (setq Tmp '())<br />     (foreach en EntLst <br />       (if (eq (strcase Lay) (strcase (cdr (assoc 8 (entget en))))) <br />         (setq Tmp (cons en Tmp))<br />       )<br />     )<br />     (setq LayEnts (cons (cons Lay Tmp) LayEnts))<br />   )<br />   (reverse LayEnts)<br /> )<br /> <br /> <br />

大概是这种感觉：

1. (K:SSplit4Lay SS) => (("Lay1" en1 en2 ... en_i) ("Lay2" en4 en5 en6 ...en_j)....)

复制代码

vitalgg

1. (defun group-by-layer (ss)
   
2.   ;; 选择集转列表
   
3.   (setq ents (pickset:to-list ss))
   
4.   ;; 按 图层名排序
   
5.   (setq ents (vl-sort ents '(lambda (x y) (< (entity:getdxf x 8)
   
6.                                           (entity:getdxf y 8)))))
   
7.   ;; 按图层名分组
   
8.   (list:group-by ents
   
9.      '(lambda (x y) (= (entity:getdxf x 8)
   
10.                        (entity:getdxf y 8))))
    
11. )

(defun group-by-layer (ss)<br />   ;; 选择集转列表<br />   (setq ents (pickset:to-list ss))<br />   ;; 按 图层名排序<br />   (setq ents (vl-sort ents '(lambda (x y) (< (entity:getdxf x 8)<br />                                           (entity:getdxf y 8)))))<br />   ;; 按图层名分组<br />   (list:group-by ents <br />      '(lambda (x y) (= (entity:getdxf x 8)<br />                        (entity:getdxf y 8))))<br /> )

2548572928

感谢楼主分享