[讨论]怎样用lisp删除图层对象

hdlyt11

1楼楼主说：[求助]：怎样用lisp删除图层对象	9pt 10pt 11pt 12pt 13pt 15pt
怎样保留图中选择的实体对象（实体所在成的所有实体都保留），而删除未选择的实体对象。比如说，执行命令，选择一个在text层的文字和dim层的标注，然后其他图元全部删除。 (defun c:test(/ s1 s2 a) (setq s1 (ssget)) (cond ((not s1) (setq s2 (ssget "X"))) (t (setq s2 (ssadd) a (entnext)) (while a (if (not (ssmemb a s1)) (ssadd a s2) ) (setq a (entnext a)) ) ) ) (command "erase" s2 "") ) 不知道手头上这段源码可以改造不？

phoenixdjq

其实我倒不建议用这样的程序

如果你对实体的层没有设置好的话，假如你的标注不是全在标注层，但是这个标注还有用

那你就惨了！