如何删除DWG图中WIPEOUT对象下面所有图元。求版主解救

梦是你的未来 · 发表于 2012-12-12 14:32:34

同事提的资料图里有很多wipeout对象，我快速选择全部删除以后发现原来这些WIPEOUT对象下面还有图元，结果图乱七八糟的，仔细看了看，原来有的WIPEOUT对象下还有WIPEOUT对象，我晕，拿去问他，他说那是软件导出来的，没法儿。无奈之余不得不求助版主和各位高手帮帮忙写个小LISP，需要实现的功能：将DWG图中所有WIPEOUT对象覆盖下的图元全部删除。如果图元仅有一部分被覆盖，就沿WIPEOUT边界打断，并删除被覆盖部分。（这里的图元包括：线，多段线，填充，没有块对象）版主救救命呀，不然我要修图，要累死啦。。

梦是你的未来 · 发表于 2012-12-12 14:49:34

在线等救命

ll_j · 发表于 2012-12-12 15:05:35

命令：pickstyle，0是不关联，1是关联组。
如果你仅仅想删除wipeout，就设置0，否则就设置1，然后再用快速选择。

自贡黄明儒 · 发表于 2012-12-12 15:13:23

本帖最后由自贡黄明儒于 2012-12-12 15:14 编辑

;;试试如下程序行不行？
(defun goerase (/ WCNT)
(if (setq wsset (ssget "x" (list '(0 . "wipeout"))))
(repeat (setq WCNT (sslength wsset))
   (entdel (ssname wsset (setq WCNT (1- WCNT))))
   )）
  )

梦是你的未来 · 发表于 2012-12-12 15:20:39

外面大雪飘，好冷啊，，弱弱问一声，，
有人吗，，，

梦是你的未来 · 发表于 2012-12-13 12:02:45

ll_j 发表于 2012-12-12 15:05
命令：pickstyle，0是不关联，1是关联组。
如果你仅仅想删除wipeout，就设置0，否则就设置1，然后再用快速 ...

我是的目的是删除被WIPEOUT摭盖住的图元，不是删除WIPEOUT本身。咋弄呀？

梦是你的未来 · 发表于 2012-12-13 12:03:53

自贡黄明儒发表于 2012-12-12 15:13
;;试试如下程序行不行？
(defun goerase (/ WCNT)
(if (setq wsset (ssget "x" (list '(0 . "wipeout")) ...

说列表有缺陷，提示如下：
(LOAD "C:/Users/GGSH/Desktop/图面整理.lsp") 输入的列表有缺陷

梦是你的未来 · 发表于 2012-12-13 12:07:27

本帖最后由梦是你的未来于 2012-12-13 12:10 编辑

自贡黄明儒发表于 2012-12-12 15:13
;;试试如下程序行不行？
(defun goerase (/ WCNT)
(if (setq wsset (ssget "x" (list '(0 . "wipeout")) ...

ll_j · 发表于 2012-12-13 15:44:15

http://bbs.mjtd.com/thread-99354-1-1.html

或者用ET的extrim试试。

梦是你的未来 · 发表于 2012-12-13 17:01:06

ll_j 发表于 2012-12-13 15:44
http://bbs.mjtd.com/thread-99354-1-1.html

或者用ET的extrim试试。

那个是画框删除，和我的目的不一样。

账号		自动登录	找回密码
密码			注册

如何删除DWG图中WIPEOUT对象下面所有图元。求版主解救

本帖子中包含更多资源