[分享]：选择易v3.10版—强力选择过滤器（040809更新）

wkai

To 心竹：
这个基本上是最终版了。

它山之石

1、版主好有创意。居然把选择功能做到如此极致。
2、我来说说不同观点，其实我们在平时的选择不会那么复杂，如果真是很复杂，我就会用FILTER了。
3、CAD制图讲究一个快。其实我在平时使用时仅仅是把CAD中BONUS自带的选择命令“GETSEL.LSP”稍加修改，速度非常快，也很方便。现贴出来给大家讨论。
[B]4、我的机子不知为何，不能上传文件，哪位高手指点一下。

2. 
   
3. (defun c:Getsel (/ LAY    ;; Layer of the selected entity
   
4.                    ENT    ;; Entity type of seleted entity
   
5.                    SS     ;; Selection set
   
6.                    SSLST  ;; Filter list
   
7.                 )
   
8. 
   
9.   (init_bonus_error
   
10.          (list
    
11.            (list "cmdecho" 0
    
12.                  "expert"  0
    
13.            )
    
14.            T     ;flag. True means use undo for error clean up.  
    
15.          )       ;list  
    
16.   )              ;init_bonus_error
    
17. 
    
18.   (setq LAY (car(entsel "\n请点取要选择实体所在的图层 <所有图层>: ")))
    
19. 
    
20.   (if LAY
    
21. (PROGN
    
22.     (REDRAW LAY 3)
    
23.     (setq LAY  (cdr(assoc 8 (entget LAY)))
    
24.           SSLST (list (cons 8 LAY ))
    
25.     )
    
26. )
    
27.   )
    
28. 
    
29. 
    
30.   (setq ENT (car(entsel "\n请点取要选择的实体类型 <所有类型>: ")))
    
31. 
    
32.   (if ENT
    
33.     (progn
    
34.     (REDRAW ENT 3)
    
35.       (setq ENT  (cdr(assoc 0 (entget ENT))))
    
36.       (if SSLST
    
37.          (setq SSLST (append (list (cons 0 ENT )) SSLST))
    
38.          (setq SSLST (list (cons 0 ENT )))
    
39.       )
    
40.     )
    
41.   )
    
42. 
    
43.   (if SSLST
    
44.     (progn
    
45.       (cond
    
46.         ((and LAY ENT)
    
47.            (prompt (strcat "\n选择图层 " LAY " 上的所有类型为 " ENT " 的实体"))
    
48.         )
    
49.         (LAY
    
50.            (prompt (strcat "\n选择图层 " LAY "上的所有实体"))
    
51.         )
    
52.         (T
    
53.            (prompt (strcat "\n选择图中所有类型为 " ENT " 的实体"))
    
54.         )
    
55.       )
    
56. 
    
57.       (prompt "\n请选取范围 <全部>")
    
58.      (setq SS (ssget SSLST ))
    
59.   (if SS
    
60. (setq SS SS)
    
61. (setq SS (ssget "X" SSLST)))
    
62.       (setq SS (sslength SS))
    
63. 
    
64.       (if (> SS 1)
    
65.         (prompt (strcat "\n共选取了 " (itoa SS) " 个实体。"
    
66.                 )
    
67.         )
    
68.         (prompt "\n共选取了一个实体。")
    
69.       )
    
70.     )
    
71.     (prompt"\n未选取到任何实体。")
    
72.   )
    
73.   
    
74. (COMMAND "REGEN")
    
75.   (restore_old_error)
    
76. 
    
77.   (princ)
    
78.   
    
79. );end defun
    
80. 
    
81. 
    
82. ;(prompt "\nGETSEL.LSP loaded, type GETSEL to place items in the active selection set.")
    
83. 
    
84. (princ)
    
85. 
    

<br /> (defun c:Getsel (/ LAY    ;; Layer of the selected entity<br />                    ENT    ;; Entity type of seleted entity<br />                    SS     ;; Selection set<br />                    SSLST  ;; Filter list<br />                 )<br /> <br />   (init_bonus_error <br />          (list<br />            (list "cmdecho" 0<br />                  "expert"  0<br />            )<br />            T     ;flag. True means use undo for error clean up.  <br />          )       ;list  <br />   )              ;init_bonus_error<br /> <br />   (setq LAY (car(entsel "\n请点取要选择实体所在的图层 <所有图层>: ")))<br /> <br />   (if LAY<br /> (PROGN<br />     (REDRAW LAY 3)<br />     (setq LAY  (cdr(assoc 8 (entget LAY)))<br />           SSLST (list (cons 8 LAY ))<br />     )<br /> )<br />   )<br /> <br /> <br />   (setq ENT (car(entsel "\n请点取要选择的实体类型 <所有类型>: ")))<br /> <br />   (if ENT<br />     (progn<br />     (REDRAW ENT 3)<br />       (setq ENT  (cdr(assoc 0 (entget ENT))))<br />       (if SSLST<br />          (setq SSLST (append (list (cons 0 ENT )) SSLST))<br />          (setq SSLST (list (cons 0 ENT )))<br />       )<br />     )<br />   )<br /> <br />   (if SSLST<br />     (progn<br />       (cond<br />         ((and LAY ENT)<br />            (prompt (strcat "\n选择图层 " LAY " 上的所有类型为 " ENT " 的实体"))<br />         )<br />         (LAY<br />            (prompt (strcat "\n选择图层 " LAY "上的所有实体"))<br />         )<br />         (T<br />            (prompt (strcat "\n选择图中所有类型为 " ENT " 的实体"))<br />         )<br />       )<br /> <br />       (prompt "\n请选取范围 <全部>")<br />      (setq SS (ssget SSLST ))<br />   (if SS <br /> (setq SS SS)<br /> (setq SS (ssget "X" SSLST)))<br />       (setq SS (sslength SS))<br /> <br />       (if (> SS 1)<br />         (prompt (strcat "\n共选取了 " (itoa SS) " 个实体。"<br />                 )<br />         )<br />         (prompt "\n共选取了一个实体。")<br />       )<br />     )<br />     (prompt"\n未选取到任何实体。")<br />   )<br />   <br /> (COMMAND "REGEN")<br />   (restore_old_error)<br /> <br />   (princ)<br />   <br /> );end defun<br /> <br /> <br /> ;(prompt "\nGETSEL.LSP loaded, type GETSEL to place items in the active selection set.")<br /> <br /> (princ)<br /> <br />

whj1102

传统方法很麻烦,但是您的为什么不能作为透明命令呢?不知我说的对吗?

好像具体是有的命令下不能作为透明命令使用,比如您的交点打断程序下就不能,这是为什么?

cdnbzds

请问在CAD中是否有批量该文字的功能？

wkai

这个程序使用来选择的，不是编辑。

andyhua5240

最初由 它山之石 发布
[B]1、版主好有创意。居然把选择功能做到如此极致。
2、我来说说不同观点，其实我们在平时的选择不会那么复杂，如果真是很复杂，我就会用FILTER了。
3、CAD制图讲究一个快。其实我在平时使用时仅仅是把CAD中BONUS自带... [/B]

在CAD2004，ET中不能用呀？

LIFUPING

我的在使用时为什么出现图示情况？

wkai

重新加载一次选择易可以解决问题，可能是其他程序定义了和它同名的函数，引起冲突了。

倚夕扇雪

cad2002的快速选择与fi命令的两个选择功能已经很强大了，看看你的是不是更强大！

whj1102

最初由 whj1102 发布
[B]传统方法很麻烦,但是您的为什么不能作为透明命令呢?不知我说的对吗?

好像具体是有的命令下不能作为透明命令使用,比如您的交点打断程序下就不能,这是为什么? [/B]

我试过同样状态下选择易不能作为透明命令而FI能，版主请解答

sztk2001

我使用了一下，真不错，wkai  版主感谢你，不过不能选择多行文字，出现下面的错误
参数类型错误: numberp: nil

aaabbb123

能否选择块中的属性文字？

龙旋风

WKAI老师，楼上提了这么多意见，怎么没有回答呢？
难道说你是在忙选择易的升级吗？
其实它真的帮了我们的大忙，选择的时候容易多了，很容易就可以选择到自己想要的东西，但是如果能解决以上问题，那就真的太强了！

wkai

To 龙旋风：
问题大都出在 附加过滤 上，附加过滤代码有些不完善，把出问题的实体类型的附加过滤 关闭。或者自己修改 附加过滤代码。

海豚

楼主，有个选择不知道如何设定，希望能帮忙。
我在图中有WLA01~WLA80的文字，其中有缺号，例如如没有WLA53，我现在想要选择WLA06~WLA38（在图中的不同位置），如何设置内容过滤才能选择到。