664571221 发表于 2023-7-26 18:16:09

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

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

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


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

xj6019 发表于 2023-7-26 19:25:18

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

664571221 发表于 2023-7-26 21:16:08

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

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

664571221 发表于 2023-7-26 21:17:18

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

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

guankuiwu 发表于 2023-7-27 13:38:14

很好{:1_1:}
页: [1]
查看完整版本: 求大神改一下这个程序，列出图层现在是全图，求改为选中图元的图层