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

lisp爱好者

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

xyp1964

1. (defun c:tt ()
   
2.   "选择非裁剪图块"
   
3.   (if (setq ss (ssget '((0 . "INSERT"))))
   
4.     (progn
   
5.       (setq i -1
   
6.             ss1 (ssadd)
   
7.       )
   
8.       (while (setq e (ssname ss (setq i (1+ i))))
   
9.         (if (not (assoc 102 (entget e)))
   
10.           (setq ss1 (ssadd e ss1))
    
11.         )
    
12.       )
    
13.       (sssetfirst nil ss1)
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )
    
18. (defun c:tt ()
    
19.   "选择裁剪图块"
    
20.   (if (setq ss (ssget '((0 . "INSERT"))))
    
21.     (progn
    
22.       (setq i -1
    
23.             ss1(ssadd)
    
24.       )
    
25.       (while (setq e (ssname ss (setq i (1+ i))))
    
26.         (if (assoc 102 (entget e))
    
27.           (setq ss1 (ssadd e ss1))
    
28.         )
    
29.       )
    
30.       (sssetfirst nil ss1)
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )

(defun c:tt ()<br />   "选择非裁剪图块"<br />   (if (setq ss (ssget '((0 . "INSERT"))))<br />     (progn<br />       (setq i -1<br />             ss1 (ssadd)<br />       )<br />       (while (setq e (ssname ss (setq i (1+ i))))<br />         (if (not (assoc 102 (entget e)))<br />           (setq ss1 (ssadd e ss1))<br />         )<br />       )<br />       (sssetfirst nil ss1)<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun c:tt ()<br />   "选择裁剪图块"<br />   (if (setq ss (ssget '((0 . "INSERT"))))<br />     (progn<br />       (setq i -1<br />             ss1(ssadd)<br />       )<br />       (while (setq e (ssname ss (setq i (1+ i))))<br />         (if (assoc 102 (entget e))<br />           (setq ss1 (ssadd e ss1))<br />         )<br />       )<br />       (sssetfirst nil ss1)<br />     )<br />   )<br />   (princ)<br /> )

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 /> )

黄翔

1. (defun c:tt ( / _entN _nn _ss)
   
2.   (setq _ss (ssget "X" (list '(0 . "INSERT"))))
   
3.   (repeat (setq _nn (sslength _ss))
   
4.     (setq _entN (ssname _ss (setq _nn (1- _nn))))
   
5.     (if (assoc 102 (entget _entN))
   
6.       (setq _ss (ssdel _entN _ss))
   
7.     )
   
8.   )
   
9.   (sssetfirst nil _ss)
   
10.   (princ)
    
11. )

(defun c:tt ( / _entN _nn _ss)<br />   (setq _ss (ssget "X" (list '(0 . "INSERT"))))<br />   (repeat (setq _nn (sslength _ss))<br />     (setq _entN (ssname _ss (setq _nn (1- _nn))))<br />     (if (assoc 102 (entget _entN))<br />       (setq _ss (ssdel _entN _ss))<br />     ) <br />   )<br />   (sssetfirst nil _ss)<br />   (princ)<br /> )

lisp爱好者

一下子不知道怎么过滤了

lisp爱好者

alexmai

这个我也想知道，顶一下

jh3030912

不裁剪的块怎么选择？

lisp爱好者

xyp1964 发表于 2019-3-21 22:35

感谢院长

xyp1964

jh3030912 发表于 2024-7-4 23:17
不裁剪的块怎么选择？

1. (defun c:tt ()
   
2.   (if (and (setq ss (ssget "X" (list '(0 . "INSERT"))))
   
3.              (setq lst (vl-remove-if'(lambda (x) (xyp-DXF 102 x))(xyp-Ss2List ss)))
   
4.       )
   
5.     (sssetfirst nil (xyp-list2ss lst))
   
6.   )
   
7.   (princ)
   
8. )

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

jh3030912

xyp1964 发表于 2024-8-21 20:47

院长，这个需要搭配e派工具箱才可以使用吗？