求大神改一下这个程序，列出图层现在是全图，求改为选中图元的图层

664571221

求大神改一下这个程序，列出图层现在是全图，求改为选中图元的图层，程序不知是哪位大神的 ，在此谢谢了

xyp1964

1. (defun c:tt ()
   
2.   (setq i -1)
   
3.   (if (setq ss (ssget))
   
4.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
5.       (setq la (cdr (assoc 8 (entget s1))))
   
6.       (if (not (member la lst))
   
7.         (setq lst (cons la lst))
   
8.       )
   
9.     )
   
10.   )
    
11.   (prin1 lst)
    
12.   (princ)
    
13. )
    

(defun c:tt ()<br />   (setq i -1)<br />   (if (setq ss (ssget))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq la (cdr (assoc 8 (entget s1))))<br />       (if (not (member la lst))<br />         (setq lst (cons la lst))<br />       )<br />     )<br />   )<br />   (prin1 lst)<br />   (princ)<br /> )<br />

xj6019

请移步这里下载：
http://www.mjtd.com/thread-188260-1-1.html

664571221

xj6019 发表于 2023-7-26 19:25
请移步这里下载：
http://www.mjtd.com/thread-188260-1-1.html

谢谢兄弟，非常感谢...

664571221

xyp1964 发表于 2023-7-26 19:00

谢谢派大，派大你论坛头像是啥

guankuiwu

很好