选择集按图层排序

gufeng

使用(ssget "x" 创建的选择集：

(setq ss (ssget "x" '((0 . "point") )))

可以把选择集  ss 按图层排序，然后返回一个选择集吗？

按图层排序就是按图层的第一上字母，如有图层： BC  AC  FC  DC

排序的顺序是 AC BC DC FC

jpg102329

1. (setq ss (ssget "x" '((0 . "text") )))
   
2. (defun tt(ss)
   
3.   (setq elst(ice ss))
   
4.   (setq elst(vl-sort elst (function(lambda(x y)(<(vla-get-layer(vlax-ename->vla-object x))(vla-get-layer(vlax-ename->vla-object y)))))))
   
5.   (enamelst->ss (REVERSE elst))
   
6.   )
   
7. 
   
8. (defun enamelst->ss(enamelst / ename sl ss)
   
9.   (setq ss(ssadd))
   
10.   (setq sl(length enamelst))
    
11.   (repeat sl
    
12.     (setq ename(nth (setq sl(1- sl)) enamelst))
    
13.     (setq ss(ssadd ename ss))))
    
14. ;;;选择集转图元名表001
    
15. ;【博士】水洗(924604042) 15:42:42
    
16. ;15:55 2017/3/9
    
17. (defun ice (s)
    
18. (if (/= 0 (sslength s))
    
19.   (cons (ssname s 0) (ice (ssdel (ssname s 0) s)))
    
20. )
    
21. )
    
22. (vla-get-layer(vlax-ename->vla-object(ssname (tt ss) 0)));此句测试使用
    
23. (print"***大懒猪荣誉出品***")

(setq ss (ssget "x" '((0 . "text") )))<br /> (defun tt(ss)<br />   (setq elst(ice ss))<br />   (setq elst(vl-sort elst (function(lambda(x y)(<(vla-get-layer(vlax-ename->vla-object x))(vla-get-layer(vlax-ename->vla-object y)))))))<br />   (enamelst->ss (REVERSE elst))<br />   )<br /> <br /> (defun enamelst->ss(enamelst / ename sl ss)<br />   (setq ss(ssadd))<br />   (setq sl(length enamelst))<br />   (repeat sl<br />     (setq ename(nth (setq sl(1- sl)) enamelst))<br />     (setq ss(ssadd ename ss))))<br /> ;;;选择集转图元名表001<br /> ;【博士】水洗(924604042) 15:42:42<br /> ;15:55 2017/3/9<br /> (defun ice (s)<br /> (if (/= 0 (sslength s))<br />   (cons (ssname s 0) (ice (ssdel (ssname s 0) s)))<br /> )<br /> )<br /> (vla-get-layer(vlax-ename->vla-object(ssname (tt ss) 0)));此句测试使用<br /> (print"***大懒猪荣誉出品***")

xujinhua

顶上去，我也想知道啊

jpg102329

咦，这个不是在编程申请版块吗？怎么没钱呢