求一个用ssget遍历所有图元，统计带扩展属性数据的图元数量

netdragon16888

(defun c:test ()
  (setq ents (entget (car (entsel "\n请选择一个图元或输入回车键结束选择: "))(list "*")))
  (print ents)  
)
以上测试时，确实能找到扩展数据
但是改用ssget就只能得到普通数据，扩展属性数据没有了，为什么？
求一个用ssget遍历所有图元，统计带扩展属性数据的图元数量

xj6019

(defun C:NM ( / )
        (setq ss (ssget "x"(list (cons -3 (list '("*"))))))
        (sssetfirst nil ss)
)

netdragon16888

xj6019 发表于 2023-9-6 13:38
(defun C:NM ( / )
        (setq ss (ssget "x"(list (cons -3 (list '("*"))))))
        (sssetfirst nil ss)

抱歉，回晚了！谢谢你的答案