关于选择集的一个小问题

araise

我想实现这样的功能：比如一个cad图中有若干线和若干文字，我用选择集选择一些（有文字有线），然后在这个选择集中把线删掉，把文字内容提取。
望高手帮我，谢谢

llsheng_73

;;ss是你已有的选择集（其中有文字或者线）
(setq n(sslength ss)m -1)
(repeat n
   (setq a(ssname ss(setq m(1+ m)))
         b(cdr(assoc 1(entget a))))
   (cond((vl-string-search"TEXT"b)
         (cdr(assoc 1 a));;这是文字内容，具体要怎么处理不清楚你的要求
         )
        ((vl-string-search"LINE"b)
         (setq ss(ssdel a ss));;是线就从选择集中去掉
         )
        )
  )

自贡黄明儒

(if (setq ss (ssget '((0 . "*TEXT,LINE"))));文字和线
  (setq ss1 (ssget "_p" '((0 . "*TEXT"))));文字
)

araise

谢谢各位，问题得以解决