[分享]：我制作的一个实用程序——筛选删除

gysjy

一个偶然的机会，发现了这个论坛，看到很多好东东，真高兴。我手头也有一些自编的lisp程序，今天先发一个上来，与各位分享。
虽说我第一次来到这里发布程序，但这个程序我可是已经用了好几年，感到相当实用，愿大家喜欢。
本想发一两张相关的图片，无奈还不知道这么传上来，只好请大家见谅。
下面是程序的内容。

;| 筛选删除，命令名shaizi即“筛子”的拼音。
   用途：用于所选范围内的层过滤，或实体过滤。
   使用方法：1.框选要删除的范围，如直接回车，则程序会提供一个默认范围；
             2.根据自己需要，选择删除方式——回车（右键）即为层过滤方式，按左键即选择了实体过滤方式；
             3.点取一个代表实体（例如点取了一个在dote层上的文字，则程序将删除框选范围内dote层上的所有物体，或框选范围内所有的text）。
   如紧接着再次使用该命令，则默认的范围为上次使用的框选范围。|;

2. 
   
3. (defun c:shaizi(/ p0 d p1 p2 p3 p4 n s1 en L ssa)
   
4.   (setq oer *error* *error* myerr)
   
5.   (setq os (getvar "osmode") oc (getvar "cmdecho"))
   
6.   (setvar "osmode" 0)
   
7.   (setvar "cmdecho" 0)
   
8.   (setq p0 (getvar "viewctr") d (* 0.63 (getvar "viewsize")))
   
9.   (graphscr)
   
10.   (setq p1 (getpoint "\n框选第一点:"))
    
11.   (if (= p1 nil)
    
12.     (if eselp1 (setq p1 eselp1 p2 eselp2)
    
13.                (setq p1 (polar p0 3.766 d) p2 (polar p0 0.604 d))
    
14.     )
    
15.     (setq p2 (getcorner "\n框选第二点:" p1))
    
16.   )
    
17.   (setq p3 (list (car p1) (cadr p2)) p4 (list (car p2) (cadr p1)))
    
18.   (grdraw p1 p3 2) (grdraw p3 p2 2) (grdraw p2 p4 2) (grdraw p4 p1 2)
    
19.   (setq n (getpoint "\n实体过滤(任意点取一点)/<层过滤>:"))
    
20.   (if (= n nil) (setq n 8) (setq n 0))
    
21.   (while (= s1 nil)
    
22.     (setq s1 (entsel "\n点取某一物体:"))
    
23.     (if s1 (setq en (entget (car s1)) L (cdr (assoc n en)))
    
24.       (princ "\n  **没有点中物体,请重新点取**")
    
25.     )
    
26.   )
    
27.   (setq ssa (ssget "c" p1 p2 (list (cons n L))) eselp1 p1 eselp2 p2)
    
28.   (princ (strcat "\n删除了所选实体中的" L))
    
29.   (if (= n 8) (princ "层.") (princ "."))
    
30.   (if ssa (command "erase" ssa ""))
    
31.   (redraw)
    
32.   (setvar "osmode" os)
    
33.   (setvar "cmdecho" oc)
    
34.   (setq *error* oer)
    
35.   (princ))
    
36. 
    
37. (defun myerr (s)
    
38.   (if (/= s "Function canccelled")
    
39.    (if (= (substr s 1 13) "null function")
    
40.        (princ "\n该程序不能运行.") (princ "\n程序中止")
    
41.    )
    
42.   )
    
43.   (setq *error* oer)
    
44.   (princ))

<br /> (defun c:shaizi(/ p0 d p1 p2 p3 p4 n s1 en L ssa)<br />   (setq oer *error* *error* myerr)<br />   (setq os (getvar "osmode") oc (getvar "cmdecho"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setq p0 (getvar "viewctr") d (* 0.63 (getvar "viewsize")))<br />   (graphscr)<br />   (setq p1 (getpoint "\n框选第一点:"))<br />   (if (= p1 nil)<br />     (if eselp1 (setq p1 eselp1 p2 eselp2)<br />                (setq p1 (polar p0 3.766 d) p2 (polar p0 0.604 d))<br />     )<br />     (setq p2 (getcorner "\n框选第二点:" p1))<br />   )<br />   (setq p3 (list (car p1) (cadr p2)) p4 (list (car p2) (cadr p1)))<br />   (grdraw p1 p3 2) (grdraw p3 p2 2) (grdraw p2 p4 2) (grdraw p4 p1 2)<br />   (setq n (getpoint "\n实体过滤(任意点取一点)/<层过滤>:"))<br />   (if (= n nil) (setq n 8) (setq n 0))<br />   (while (= s1 nil)<br />     (setq s1 (entsel "\n点取某一物体:"))<br />     (if s1 (setq en (entget (car s1)) L (cdr (assoc n en)))<br />       (princ "\n  **没有点中物体,请重新点取**")<br />     ) <br />   )<br />   (setq ssa (ssget "c" p1 p2 (list (cons n L))) eselp1 p1 eselp2 p2)<br />   (princ (strcat "\n删除了所选实体中的" L))<br />   (if (= n 8) (princ "层.") (princ "."))<br />   (if ssa (command "erase" ssa ""))<br />   (redraw)<br />   (setvar "osmode" os)<br />   (setvar "cmdecho" oc)<br />   (setq *error* oer)<br />   (princ))<br /> <br /> (defun myerr (s)<br />   (if (/= s "Function canccelled")<br />    (if (= (substr s 1 13) "null function")<br />        (princ "\n该程序不能运行.") (princ "\n程序中止")<br />    )<br />   )<br />   (setq *error* oer)<br />   (princ))

jeson0113

　我也来试试，不知道能不能删除框外的东西！

gysjy

框外不与框线相交的实体不会被删除。

lwd9520

这个东东用起来有点问题啊，一个是它删除的时候不是按图层来的，第二个，用了这个命令之后捕捉点全没了！请楼主再改进一下啊！

gysjy

最初由 lwd9520 发布
[B]这个东东用起来有点问题啊，一个是它删除的时候不是按图层来的，第二个，用了这个命令之后捕捉点全没了！请楼主再改进一下啊！ [/B]

1:当你框选后，如果按鼠标右键或回车就会按图层删除，如果按鼠标左键则会删除同类实体。
2：如果你程序未执行完中途退出，可能会失去捕捉点。正常退出是不会影响你原先的捕捉状态的。

tjzxl811

如果能筛选的种类再多点就更好了

gysjy

最初由 tjzxl811 发布
[B]如果能筛选的种类再多点就更好了 [/B]

如果增加更具体的筛选种类，那么在使用程序的过程中就会增加执行步骤，反而不太方便了。

xuwei8210

我也用了，是象12楼说的那样有点问题阿，希望楼主能改进一下！

gysjy

最初由 xuwei8210 发布
[B]我也用了，是象12楼说的那样有点问题阿，希望楼主能改进一下！ [/B]

改了一下，试试看，还有没有你所说的问题。

hihand2000

CAD右键也有过滤功能，有何不同呢？

z2s115

感觉不太好用，但还是谢谢楼主

ooohen

xiexie```

xmok

谢谢楼主

apollone

不错，谢谢

同心

不错，谢谢