How can I remove same object of repeat by lisp?

[skchui6159]

Same as topic.

Can a lisp can erase the repeated object (SAME COORDINATE, SAME SIZE , SAME PROPERTIES...)in AUTOCAD? Thankz.

[paullimapa]

How's about SelectSimilar?

[skchui6159]

@paullimapa Sorry, It should be keep 1 of the object, other should be erase. One object in same location should be kept one. Other object should be erase.

[cadffm · Accepted solution]

Programming:

Compare all objectdata of all object, delete all similars but one.

LazyDrafter:

Runs OVERKILL [F1]

LazerProgrammer:

Controles -OVERKILL [F1] by command-statement.

[skchui6159]

@cadffm Thank a lot!

[paullimapa]

Before running Overkill I see 4 objects looking like this:

After running Overkill I see 1 object looking like this:

You can also try this code and enter at the command prompt: REM

; rem function removes duplicates but keeps the one initially selected
; OP:
; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/how-can-i-remove-same-object-of-repeat-by-lisp/m-p/13305272#M478451
(defun c:rem (/ ss)
 (if (setq ss (ssget "_+.:E:S"))
  (progn 
   (command "_.selectsimilar" ss "")
   (if (ssget "_P")
    (progn
     (command "_.Erase" "_P" "_R" (ssname ss 0) "")
     (sssetfirst nil ss)
    )
   )
  )
 )  
 (princ)
)

Afterwards you should see only 1 object looking like this:

[skchui6159]

Thank you very much, it is the upgrade function of select similar.

[paullimapa]

You are welcome…cheers!!!