如何快速获取选择集图层列表

xyp1964

整dbx、VB、c#或c++都是多此一举

1. (defun c:tt (/ lst)
   
2.   "全图选择集实体图层列表"
   
3.   (if (setq ss (ssget "x"))
   
4.     (progn
   
5.       (setq i -1)
   
6.       (while (setq e (ssname ss (setq i (1+ i))))
   
7.         (setq la  (cdr (assoc 8 (entget e)))
   
8.               lst (if (not (member la lst))
   
9.                     (cons la lst)
   
10.                     lst
    
11.                   )
    
12.         )
    
13.       )
    
14.     )
    
15.   )
    
16.   (print lst)
    
17.   (princ)
    
18. )

(defun c:tt (/ lst)<br />   "全图选择集实体图层列表"<br />   (if (setq ss (ssget "x"))<br />     (progn<br />       (setq i -1)<br />       (while (setq e (ssname ss (setq i (1+ i))))<br />         (setq la  (cdr (assoc 8 (entget e)))<br />               lst (if (not (member la lst))<br />                     (cons la lst)<br />                     lst<br />                   )<br />         )<br />       )<br />     )<br />   )<br />   (print lst)<br />   (princ)<br /> )

timmy521

这个是遍历，主要是怕对象数量多了，一个个判断耽误时间。全图直接获用VLA函数很简单很快。