topic Re: How can I remove same object of repeat by lisp? in Visual LISP, AutoLISP and General Customization Forum

How can I remove same object of repeat by lisp?

skchui6159 — Fri, 07 Feb 2025 02:41:10 GMT

Same as topic.

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

Re: How can I remove same object of repeat by lisp?

paullimapa — Fri, 07 Feb 2025 06:41:00 GMT

How's about SelectSimilar?

回复： How can I remove same object of repeat by lisp?

skchui6159 — Fri, 07 Feb 2025 07:33:17 GMT

@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.

Re: How can I remove same object of repeat by lisp?

cadffm — Fri, 07 Feb 2025 08:07:48 GMT

Programming:

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

LazyDrafter:

Runs OVERKILL [F1]

LazerProgrammer:

Controles -OVERKILL [F1] by command-statement.

Re: How can I remove same object of repeat by lisp?

skchui6159 — Fri, 07 Feb 2025 09:04:28 GMT

@cadffm Thank a lot!

Re: How can I remove same object of repeat by lisp?

paullimapa — Fri, 07 Feb 2025 20:46:31 GMT

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:

Re: How can I remove same object of repeat by lisp?

skchui6159 — Sat, 08 Feb 2025 12:59:16 GMT

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

Re: How can I remove same object of repeat by lisp?

paullimapa — Sat, 08 Feb 2025 13:21:28 GMT

You are welcome…cheers!!!