[编程申请]：谁能帮我重写天正的图元过滤和图层选取的命令？

freefly

我是理正用户，谁能帮我重写天正的图元过滤和图层选取的命令？(r14版的最好是透明命令)，我觉得天正这两个命令实在太好用了!

eachy

最初由 freefly 发布
[B]我是理正用户，谁能帮我重写天正的图元过滤和图层选取的命令？(r14版的最好是透明命令)，我觉得天正这两个命令实在太好用了! [/B]

图元过滤，需要API ，图层的没有看过，我选择图层就用(ssget '((8 . "xxx")))
注意：以下代码为了显示，中间含有空格，使用时用附件。

2. 
   
3. (defun c:ssgetf        (/ ss ss1 e na cl e70 la le ll ll1)
   
4.   (defun redraw_le ()
   
5.     (foreach e le_drw (redraw e 4))
   
6.     (foreach e le_del (entdel e))
   
7.     (setq le_drw nil
   
8.           le_del nil
   
9.     )
   
10.   )
    
11.   (setq _is_v14        T)
    
12.   (if (setq e (entsel "\n请点一下特征图元 <退出>: "))
    
13.     (progn (xdrx_setenttodb (car e))
    
14.            (setq na (xdrx_getentdxf 0)
    
15.                  la (xdrx_getentdxf 8)
    
16.                  cl (xdrx_getentdxf 62)
    
17.            )
    
18.            (cond ((= "INSERT" na)
    
19.                   (setq ll1 (list (cons 2 (xdrx_getentdxf 2))))
    
20.                  )
    
21.                  ((wcmatch na "*POLYLINE")
    
22.                   (setq        e70 (xdrx_getentdxf 70)
    
23.                         e70 (logand e70 254)
    
24.                         ll1 (list '(-4 . " < OR")
    
25.                                   (cons 70 e70)
    
26.                                   (cons 70 (1+ e70))
    
27.                                   '(-4 . " OR >"))                            )
    
28.                   )
    
29.                  )
    
30.            )
    
31.            (If (And _is_v14 (Zerop (Getvar "cmdactive")) (Ssget "i"))
    
32.              (sssetfirst nil)
    
33.            )
    
34.            (setq ll (append ll1
    
35.                             (list (cons 0 na) (cons 8 la))
    
36.                             (if        cl
    
37.                               (list (cons 62 cl))
    
38.                               '((-4 . " >") (62 . 255))
    
39.                             )
    
40.                     )
    
41.                  ss (ssget "X" ll)
    
42.            )
    
43.            (xdrx_setsstodb ss 0)
    
44.            (while (setq e (xdrx_getentdata 0))
    
45.              (redraw e 3)
    
46.              (setq le_drw (cons e le_drw))
    
47.            )
    
48.            (princ "\n再选择拾取范围 <全选>: ")
    
49.            (setq ss1 (ssget ll)
    
50.                  ss  (if ss1
    
51.                        ss1
    
52.                        ss
    
53.                      )
    
54.            )
    
55.            (redraw_le)
    
56.            (If (And _is_v14 (Zerop (Getvar "cmdactive")))
    
57.              (sssetfirst nil ss)
    
58.            )
    
59.            ss
    
60.     )
    
61.     (princ)
    
62.   )
    
63. )

<br /> (defun c:ssgetf        (/ ss ss1 e na cl e70 la le ll ll1)<br />   (defun redraw_le ()<br />     (foreach e le_drw (redraw e 4))<br />     (foreach e le_del (entdel e))<br />     (setq le_drw nil<br />           le_del nil<br />     )<br />   )<br />   (setq _is_v14        T)<br />   (if (setq e (entsel "\n请点一下特征图元 <退出>: "))<br />     (progn (xdrx_setenttodb (car e))<br />            (setq na (xdrx_getentdxf 0)<br />                  la (xdrx_getentdxf 8)<br />                  cl (xdrx_getentdxf 62)<br />            )<br />            (cond ((= "INSERT" na)<br />                   (setq ll1 (list (cons 2 (xdrx_getentdxf 2))))<br />                  )<br />                  ((wcmatch na "*POLYLINE")<br />                   (setq        e70 (xdrx_getentdxf 70)<br />                         e70 (logand e70 254)<br />                         ll1 (list '(-4 . " < OR")<br />                                   (cons 70 e70)<br />                                   (cons 70 (1+ e70))<br />                                   '(-4 . " OR >"))                            )<br />                   )<br />                  )<br />            )<br />            (If (And _is_v14 (Zerop (Getvar "cmdactive")) (Ssget "i"))<br />              (sssetfirst nil)<br />            )<br />            (setq ll (append ll1<br />                             (list (cons 0 na) (cons 8 la))<br />                             (if        cl<br />                               (list (cons 62 cl))<br />                               '((-4 . " >") (62 . 255))<br />                             )<br />                     )<br />                  ss (ssget "X" ll)<br />            )<br />            (xdrx_setsstodb ss 0)<br />            (while (setq e (xdrx_getentdata 0))<br />              (redraw e 3)<br />              (setq le_drw (cons e le_drw))<br />            )<br />            (princ "\n再选择拾取范围 <全选>: ")<br />            (setq ss1 (ssget ll)<br />                  ss  (if ss1<br />                        ss1<br />                        ss<br />                      )<br />            )<br />            (redraw_le)<br />            (If (And _is_v14 (Zerop (Getvar "cmdactive")))<br />              (sssetfirst nil ss)<br />            )<br />            ss<br />     )<br />     (princ)<br />   )<br /> )

freefly

我用复制粘贴的方式不能运行，我找不到错误所在，能否传到我的
邮箱wlllw@21cn.com中，不胜感激！(爱心币不够），另，图层选取最好能给出一个菜单列表，显示所有图层，可以同时选择多个图层，类似天正，但不要用图层文件把图层合并。谢了。

XDSoft

最初由 freefly 发布
[B]我用复制粘贴的方式不能运行，我找不到错误所在，能否传到我的
邮箱wlllw@21cn.com中，不胜感激！(爱心币不够），另，图层选取最好能给出一个菜单列表，显示所有图层，可以同时选择多个图层，类似天正，但不要用图?.. [/B]

上面EACHY斑竹的程序，你要在“晓东工具箱”环境下用。

理正建筑也应该有这两个命令吧？

doongs

2000的过滤就把一切都搞定了！

freefly

回xdsoft,我是在“晓东工具箱”环境下用，但程序有语法错误，(复制粘贴的方式),不急了，过几天再下载。理正水中这两个命令没有天正好用。

xdq931220

理正中有像天正同样的命令！

freefly

能否增加窗选功能，即窗选范围内进行图元过滤，这很重要，特别对于有多张图的情况下。