[求助]：怎样用lisp删除图层对象

[复制链接]

hdlyt11

发表于 2009-3-6 09:22:17 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

怎样保留图中选择的实体对象（实体所在成的所有实体都保留），而删除未选择的实体对象。比如说，执行命令，选择一个在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 "")
)
不知道手头上这段源码可以改造不？

实体, 对象, 删除