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

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

jh3030912

xyp1964 发表于 2024-8-23 13:38

选择，选择裁剪块以后 只删除裁剪块不可见部分的块和文字，有没有办法处理？