xyp1964 发表于 2025-3-13 12:19:47

整dbx、VB、c#或c++都是多此一举
(defun c:tt (/ lst)
"全图选择集实体图层列表"
(if (setq ss (ssget "x"))
    (progn
      (setq i -1)
      (while (setq e (ssname ss (setq i (1+ i))))
      (setq la(cdr (assoc 8 (entget e)))
            lst (if (not (member la lst))
                  (cons la lst)
                  lst
                  )
      )
      )
    )
)
(print lst)
(princ)
)

timmy521 发表于 2025-3-13 15:52:01

这个是遍历，主要是怕对象数量多了，一个个判断耽误时间。全图直接获用VLA函数很简单很快。
页: 1 [2]
查看完整版本: 如何快速获取选择集图层列表