[编程申请]：求消除重复图形lisp程序

hcy1119

帮顶！！

jicb

用OVERKILL能不能解决呢？我一般就用这个命令

家园成员

晓东家园里的‘消重图元’也是一个个删除啊！ 一个图层有两层的内容，怎样删除一层，谢谢！

xy126800

真牛，这都能删了。

jwq690517

看起来是很麻烦的，但是后“压上”的这张图有一个特点就是肯定是用复制或移动之类的命令产生的，是在同一个时间里“压上”，所以从这里判断还是有思路可循的，问题是两张不同的图怎么删掉一张不想要的图呢？

yeticlll

overkill不行哦  这个好难

slary2002

只能消完全重复的吧

longxianhua

这不好操作吧,会误删吧

nuoyafangzhou

学习了O(∩_∩)O~

mochaolong

(defun C:DUPREM ()
   (setvar "cmdecho" 0)
   (setq f1 nil f1 0)
; Added by Jeff Tippit 08/25/99
; Start
   (initget "S L E")
   (setq SLE (getkword "\nSelect objects by [S] election set, [L]imits, or [E] ntire database: "))
   (cond
      ((= SLE "S")(setq sa (ssget)))
      ((= SLE "L")(setq sa (ssget "c" (getvar "extmin")(getvar "extmax"))))
      ((= SLE "E")(setq sa (ssget "X")))
   )
; End
   (setq ca 0 ta (sslength sa) la nil lb nil)
   (while (< ca ta)
      (setq enta (ssname sa ca) ea (cdr (entget enta))
            typa (cdr (assoc 0 ea))
      )
;      (if (= typa "POLYLINE") (progn
;         (setq entb (entnext enta) ea (cdr (entget entb)))
;      ))

; Added by Jeff Tippit 08/25/99
; Updated for R14 & 2000
; Start
   (setq a1 (assoc 5 ea))
   (setq a2 (cons 5 ""))
   (setq ea (subst a2 a1 ea))
   (if (wcmatch (getvar "ACADVER") "*15*")
      (progn
         (setq a3 (assoc 330 ea))
         (setq a4 (cons 330 ""))
         (setq ea (subst a4 a3 ea))
      )
   )
; End
      (setq la (cons enta la) lb (cons ea lb)
            ca (+ ca 1)
      )
   )
   (setq sc nil sc (ssadd) ltest lb)
   (setq ca 0)
   (setq tes (car ltest) ltest (cdr ltest) ta nil ta (length ltest))
   (while (/= ta 0)
      (if (member tes ltest) (progn
         (setq sc (ssadd (nth ca la) sc))
         (prompt "\nFound duplicate entity.")
         (setq f1 (+ f1 1))
      ))
      (setq ca (+ ca 1))
      (setq tes (car ltest) ltest (cdr ltest) ta (length ltest))
   )
   (command "erase" sc "")
   (redraw)
   (prompt "\n")(prin1 f1)(prompt " duplicate entities erased.")
   (princ)
)
(prompt "\nType DUPREM to run. Delete duplicate entity routine Ver 2.0 loaded.")
(princ)