理正大侠看过来

“天正”的“图元过滤”与“图层选取”功能非常好用，理正为什么没这个功能呢？我只找到一个“超级编辑”，但是这个还是缺乏灵活性，感觉没“天正”的舒服，能告诉我怎么找这个功能或在下一版增加这个功能吗？

lizheng

2002年07月17日 20:58:46

2楼

谢谢提醒，我们将会在下一版本中扩展“超级编辑”功能。

ajchen

2003年06月27日 22:14:10

3楼

期待中，有没有类似天正中键的LISP程序？

菜瓜

2003年06月27日 23:38:49

4楼

(defun c:sws_tcgl (/ ent ly ly1 lx sset) ;图层过滤
(setq ly1 "")
(while (not(= (setq ent (car (entsel "\n选择要过滤的实体："))) nil))
(setq ent (entget ent))
(setq ly (cdr (assoc 8 ent)))
(setq ly1 (strcat ly1 "," ly))
(print (strcat "已过滤图层: " ly1)))
(setq sset (ssget (list (cons 8 ly1)))
)
)
(defun c:sws_tygl (/ ent ly lx sset) ;图元过滤
(setq ent (car (entsel "\n选择要过滤的实体：")))
(setq ent (entget ent))
(setq ly (cdr (assoc 8 ent)))
(setq lx (cdr (assoc 0 ent)))
(print
(strcat "****** 图层：" ly " 实体类型：" lx " ******")
)
(setq sset (ssget (list (cons -4 ""))
)
)
)

菜瓜

2003年06月27日 23:39:57

5楼

(defun c:sws_wzgl (/ ent ly lx sset txt) ;过滤含特定文字的实体
(setq ent (car (entsel "\n选择要过滤的文字：")))
(setq txt (sws_getval ent 1))
(princ (strcat "过滤了文字： " txt))
(setq sset (ssget (list (cons 1 txt))))

)

菜瓜

2003年06月27日 23:42:55

6楼

加载以上程序加载，修改ACAD等软件的中键菜单如下：
[&S图层过滤]^Psws_tcgl;
[&Y图元过滤]^Psws_tygl;
[&T图元过滤]^Psws_wzgl;