yang686526

[讨论]怎样用lisp删除图层对象
www.dimcax.com
[讨论]怎样用lisp删除图层对象
[求助]：怎样用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 "")
)
不知道手头上这段源码可以改造不？

d
其实我倒不建议用这样的程序
如果你对实体的层没有设置好的话，假如你的标注不是全在标注层，但是这个标注还有用
那你就惨了！
工资真的要涨了，心里更加爱党了，能给孩子奖赏了，见到老婆敢嚷了，敢尝海鲜鹅掌了，闲时能逛商场了，遇见美女心痒了，结果物价又涨了！
d