[编程申请]：建立以图层为范围选择！

lhj743

在工作中，如果隔离图层，来选择编辑局部或者擦除，比较方便。
能不能编这么一个程序（假如有）：
1、输入选择命令
2、点取一个图元来代表准备编辑图层
3、选取这个图层中准备编辑的图元。（随便选取，而不会选择到其他图层图元）。

ET中的选择，不是很好用。
1、我在删除部分门窗时，因为是炸开的，因为靠近其他图层线条太近，要放大一个一个选择删除，真是太麻烦了。
2、在一张复杂的图中，我可能对某个图层的部分作出编辑，一个个选取太复杂了。
请前辈们能编出这么功能的程序。谢谢！

gysjy

现给出一例，可以删除符合条件的图元：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:nn( / lay sn ss)
   
5.   (setq sn (car (entsel "\n点取物体:"))
   
6.         lay (cdr (assoc 8 (entget sn)))
   
7.   )
   
8.   (setq ss (ssget (list (cons 8 lay))))
   
9.   (if ss (command "erase" ss ""))
   
10.   (princ)
    
11. )  
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:nn( / lay sn ss)<br />   (setq sn (car (entsel "\n点取物体:"))<br />         lay (cdr (assoc 8 (entget sn)))<br />   )<br />   (setq ss (ssget (list (cons 8 lay))))<br />   (if ss (command "erase" ss ""))<br />   (princ)<br /> )  <br />   [/FONT]<br />

如做其它的编辑，将(if ss (command "erase" ss ""))中的erase改为其他的命令即可。

lhj743

感谢，
完全符合使用要求！
gysjy朋友，
能不能仅仅建立选择集，
才能通用。
每次修改命令，的确麻烦点

gysjy朋友，
我又想到，
能不能再分别做几个功能
1、按照颜色
2、或按照图层
3、或按照图块
4、按照文字
5、按照线型
建立选择集

gysjy

如仅仅建立选择集，把上述程序中(if ss (command "erase" ss ""))删除即可。
将上述程序中两处数字8改为数字0，即可按图元类型进行选择。

倒数第一名

建议楼主把下面这二个程序加入到所在目录，装入entfil.lsp后，运行
如command:e回车
'entifil
会出现对话框，
即可满足你的需求
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1、按照颜色
2、或按照图层
3、或按照图块
4、按照文字
5、按照线型
建立选择集
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
原程序是别人开发的，我只是传上来供大家研究之用。呵呵。版权归原创作者。

倒数第一名

耶还少了一个对话框文件。补上。

chxl5878

顶顶顶顶顶顶顶顶