[分享]：灵巧选择过滤器，小东西

wkai

选择物体时的过滤器，但是你要知道基本的dxf组码的含义才能灵活使用，幸好这一点都不难。

2004.01.09.12.06
最新版(有对话框提示)：http://www.xdcad.net/forum/showthread.php?s=&postid=730437#post730437[/COLOR]

2. 
   
3.   [FONT=courier new]
   
4. ;_2004.01.06.12.26_______________________
   
5. ;_选择过滤器__BY__WKAI__晓东CAD坛________
   
6. ;_在选择物体时，可以通过透明方式('ss)调用
   
7. (defun c:ss (/ filter e p)
   
8.   (while (not e)
   
9.     (princ "\n样板物体：")
   
10.     (setq e (car (entsel)))
    
11.   )
    
12.   (print (setq e (entget e)))
    
13.   (setq p (getstring "\n选择过滤组码(可以多选，间隔以逗号)："))
    
14.   (if p
    
15.     (foreach n (convert_string_to_int_lst p)
    
16.       (if (assoc n e)
    
17.         (setq filter (append filter (list (cons n (cdr (assoc n e))))))
    
18.         (princ (strcat "\n"(itoa n)"为无效组码，没有进入过滤器。"))
    
19.       )
    
20.     )
    
21.   )
    
22.   (if filter
    
23.     (progn
    
24.       (princ "\n通过过滤器")
    
25.       (princ filter)
    
26.       (princ "选择物体")
    
27.     (ssget filter)
    
28.     )
    
29.   )
    
30. )
    
31. ;________________________________________________________
    
32. (defun convert_string_to_int_lst (str / lst n s1 cha)
    
33.   (setq        s1 ""
    
34.         n  0
    
35.   )
    
36.   (repeat (strlen str)
    
37.     (setq cha (substr str (setq n (1+ n)) 1))
    
38.     (if        (= "," cha)
    
39.       (setq lst        (append lst (list (atoi s1)))
    
40.             s1        ""
    
41.       )
    
42.       (setq s1 (strcat s1 cha))
    
43.     )
    
44.   )
    
45.   (setq lst (append lst (list (atoi s1))))
    
46. )
    
47.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;_2004.01.06.12.26_______________________<br /> ;_选择过滤器__BY__WKAI__晓东CAD坛________<br /> ;_在选择物体时，可以通过透明方式('ss)调用<br /> (defun c:ss (/ filter e p)<br />   (while (not e)<br />     (princ "\n样板物体：")<br />     (setq e (car (entsel)))<br />   )<br />   (print (setq e (entget e)))<br />   (setq p (getstring "\n选择过滤组码(可以多选，间隔以逗号)："))<br />   (if p<br />     (foreach n (convert_string_to_int_lst p)<br />       (if (assoc n e)<br />         (setq filter (append filter (list (cons n (cdr (assoc n e))))))<br />         (princ (strcat "\n"(itoa n)"为无效组码，没有进入过滤器。"))<br />       )<br />     )<br />   )<br />   (if filter<br />     (progn<br />       (princ "\n通过过滤器")<br />       (princ filter)<br />       (princ "选择物体")<br />     (ssget filter)<br />     )<br />   )<br /> )<br /> ;________________________________________________________<br /> (defun convert_string_to_int_lst (str / lst n s1 cha)<br />   (setq        s1 ""<br />         n  0<br />   )<br />   (repeat (strlen str)<br />     (setq cha (substr str (setq n (1+ n)) 1))<br />     (if        (= "," cha)<br />       (setq lst        (append lst (list (atoi s1)))<br />             s1        ""<br />       )<br />       (setq s1 (strcat s1 cha))<br />     )<br />   )<br />   (setq lst (append lst (list (atoi s1))))<br /> )<br />   [/FONT]<br />

简单演示：

                               
登录/注册后可看大图

playboy

好东西
用组码来创建选择集很方便也很直观不错！！！

coolzhb

确实不错，省得每次使用filter编辑对话框的麻烦！

aeo

我们用肯定可以,不懂lisp的免谈.
我常用的是图层的，和你名字都一样
(defun c:ss()(ssget (list(assoc 8(entget(car(entsel)))))))

wkai

最初由 aeo 发布
[B]我们用肯定可以,不懂lisp的免谈.
我常用的是图层的，和你名字都一样
(defun c:ss()(ssget (list(assoc 8(entget(car(entsel))))))) [/B]

看看这个重写的，只要懂cad就会用~~
http://www.xdcad.net/forum/showt ... d=730437#post730437

iam0411

真是好东西，谢谢!

wlq0408

可否给出常见的组码编号

wkai

已经升级了，看这个：
http://www.xdcad.net/forum/showt ... d=730437#post730437

hi71400

熟悉组码的用还可以，一般人用不太完善。

yjtdkj

最初由 hi71400 发布
[B]熟悉组码的用还可以，一般人用不太完善。 [/B]

你懂不懂组码呀？向你请教一下

PFD8667

什么是组码,看来学的知识太多了.

ss1025

组码就是DXF码，在2004的开发者手册里有详细说明。

userzhluserzhl

谢谢,又学了一招!!

zhitu

组码就是DXF码啊，自带的说明文件里就有

kuangzhe

高不定啊！