ssget如何不选择裁剪过的图块

lisp爱好者

请教各位老师，用ssget如何不选择裁剪过的图块？或者只选择裁剪过得块。看了下组码，裁剪过的都有类似这段组码：(102 . "{ACAD_XDICTIONARY") (360 . <图元名: -160b928>) (102 . "}")
一下卡壳了，望不吝赐教谢谢

lisp爱好者

一下子不知道怎么过滤了

lisp爱好者

alexmai

这个我也想知道，顶一下

xyp1964

1. ;; tt(裁剪图块选择)
   
2. (defun c:tt ()
   
3.   (if (and (setq ss (ssget "X" (list '(0 . "INSERT"))))
   
4.            (setq lst (vl-remove-if-not
   
5.                        '(lambda (x) (xyp-DXF 102 x))
   
6.                        (xyp-Ss2List ss)
   
7.                      )
   
8.            )
   
9.       )
   
10.     (sssetfirst nil (xyp-list2ss lst))
    
11.   )
    
12.   (princ)
    
13. )

;; tt(裁剪图块选择)<br /> (defun c:tt ()<br />   (if (and (setq ss (ssget "X" (list '(0 . "INSERT"))))<br />            (setq lst (vl-remove-if-not<br />                        '(lambda (x) (xyp-DXF 102 x))<br />                        (xyp-Ss2List ss)<br />                      )<br />            )<br />       )<br />     (sssetfirst nil (xyp-list2ss lst))<br />   )<br />   (princ)<br /> )