[原创]过滤选择，类似于CAD的快速选择

英雄无敌

前几天看到一位网友的关于qselect的问题，我以前做过，但是不能像CAD那样出现蓝色的选择点，后来找到看到了一个SSSETFIRST函数，其实以前也看到过，只是不太明白里面的意思，但我现在想，这个函数应该能解决选择的问题，后来按照帮助里面的一步步试了下，果然，那些让我心动的蓝色点出来了。于是就做了一个可以滤图层、颜色、图元类型（如直线、块的区分）的程序，因为我只用到这几种，如果有需要其它过滤的，相信大家也可以自己加上去的。

 

英雄无敌

如果这样的话，可能你的颜色都是随层的，程序没有区分随层的颜色，只对不随层的区分。

xinght99

有没有常青藤的快速选择好用呀

QUAN2518

及时雨啊

着两天正在想解决过滤的问题

谢谢楼主了

看来晚上又的回去慢慢解读了

看到没关灯的那个就是我家了 要是过了2点还没关记得叫我一下偶 哈哈。。。。。。。。

QUAN2518

xinght99发表于2007-11-27 20:04:00有没有常青藤的快速选择好用呀

兄弟能说下他的功能吗？顺便发一份给我啊 谢谢了先

地址

quan-jj@163.com

xinght99

QUAN2518发表于2007-12-7 23:47:00兄弟能说下他的功能吗？顺便发一份给我啊 谢谢了先地址 quan-jj@163.com

摆渡一下，常青藤工作室

flowerson

可以交叉选就更好了。

elitefish

我也写了个 关于按匹配选择的函数

3. ;按将目标对象作为过滤属性选择
4. ;( EF:SSGetAsType  entName otherFilter sType strPrompt)
5. ;entName 被匹配的对象
6. ;sType 为 "Layer" "Color" "Type" 组成的表   
7. ;otherFilter 额外的过滤表元素 如  '(0 "Line")
8. ;strPrompt 提示符
9. (defun EF:SSGetAsType ( entName tblsType otherFilter strPrompt / entName sFilter sType)
10. (setq sFilter nil)
11. (while (setq sType (car tblsType))
12.   (cond
13.    ( (= (strcase sType) "LAYER")
14.     (setq sFilter (cons (assoc 8 (entget entName)) sFilter) )
15.    )
16.    ( (= (strcase sType) "COLOR")
17.     (setq sFilter  (cons
18.           (cond
19.            ( (assoc 420 (entget entName))
20.             (assoc 420 (entget entName))
21.            )
22.            ( (assoc 62 (entget entName))
23.             (assoc 62 (entget entName))
24.            )
25.            ( T
26.             (cons 62 256)
27.            )
28.           )
29.           sFilter
30.          )
31.     )
32.    
33.    )
34.    ( (= (strcase sType) "TYPE")
35.     (setq sFilter (cons (assoc 0 (entget entName)) sFilter) )
36.    )
37.   )
38.   (setq tblsType (cdr tblsType))
39. )
40. (ssget (cons otherFilter sFilter))
41. )

;按将目标对象作为过滤属性选择 ;( EF:SSGetAsType  entName otherFilter sType strPrompt) ;entName 被匹配的对象 ;sType 为 "Layer" "Color" "Type" 组成的表    ;otherFilter 额外的过滤表元素 如  '(0 "Line") ;strPrompt 提示符 (defun EF:SSGetAsType ( entName tblsType otherFilter strPrompt / entName sFilter sType) (setq sFilter nil) (while (setq sType (car tblsType))   (cond    ( (= (strcase sType) "LAYER")     (setq sFilter (cons (assoc 8 (entget entName)) sFilter) )    )    ( (= (strcase sType) "COLOR")     (setq sFilter  (cons           (cond            ( (assoc 420 (entget entName))             (assoc 420 (entget entName))            )            ( (assoc 62 (entget entName))             (assoc 62 (entget entName))            )            ( T             (cons 62 256)            )           )           sFilter          )     )        )    ( (= (strcase sType) "TYPE")     (setq sFilter (cons (assoc 0 (entget entName)) sFilter) )    )   )   (setq tblsType (cdr tblsType)) ) (ssget (cons otherFilter sFilter)) )