如何用ssget过滤选择102组码的图元

lostbalance

外公司的一张图，在用自己开发的多图打印插件时一直报错。
经过一番排查，发现是图中有部分直线带有以下102和360的组码 (102 . "{ACAD_XDICTIONARY") (360 . <图元名: 7ff45f17dd00>) (102 . "}")。在多dwg文档打印时，会出错，而单个dwg多图打印时，却又没问题，很莫名其妙。
额，话题扯开了，在排查的时候，发现部分标注也有这两个组码，然后发现用(ssget '((102 . "*")))只能过滤选择标注，而不能过滤选择直线。
求问，这是怎么回事？

图见附件

自贡黄明儒

删除360，102自然删除。

flowerson

自贡黄明儒 发表于 2018-9-29 12:00
删除360，102自然删除。

如何删除呢？

qazxswk

我也想知道，怎么过滤不选有102组码的对象

xyp1964

1. (defun c:tt ()
   
2.   (if (setq ss (ssget '((0 . "line,dim*"))))
   
3.     (progn
   
4.       (foreach a (vl-remove-if-not
   
5.                    '(lambda (x) (= (type x) 'ENAME))
   
6.                    (mapcar 'cadr (ssnamex ss))
   
7.                  )
   
8.         (if (not (member 102 (mapcar 'car (entget a))))
   
9.           (ssdel a ss)
   
10.         )
    
11.       )
    
12.       (sssetfirst nil ss)
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )
    

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "line,dim*"))))<br />     (progn<br />       (foreach a (vl-remove-if-not<br />                    '(lambda (x) (= (type x) 'ENAME))<br />                    (mapcar 'cadr (ssnamex ss))<br />                  )<br />         (if (not (member 102 (mapcar 'car (entget a))))<br />           (ssdel a ss)<br />         )<br />       )<br />       (sssetfirst nil ss)<br />     )<br />   )<br />   (princ)<br /> )<br />