选择集按图层排序

gufengyin

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

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

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

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

排序的顺序是 AC BC DC FC

原地踏步

说说思路吧。
用 (tblnext "LAYER" ) 遍历层名，生成表lst1 为 (layb laya layf layd)，用acad_strlsort 排序为(laya layb layd layf)，再生成表lst2  ((laya) (layb) (layd) (layf))，取选择集中每一实体e，比较层名，用subst 加assoc方法修改表lst2 为 ((laya ea1 ea2..) (layb eb1 eb2...) ...)，然后再用 ssadd 建立新选择集，将lst2 中每个实体取出加入其中即可。