topic Re: Cannot Delete Duplicate Objects in Visual LISP, AutoLISP and General Customization Forum

Cannot Delete Duplicate Objects

scarroll — Thu, 19 Jul 2018 16:50:51 GMT

I am new to LISP and was hoping someone could help with this issue I have. I have a large and complex 3D design with overlapping identical 3D blocks. Is there any way to scan through the content of the file and delete the duplicate 3D blocks all at once. OVERKILL does not work and it would take way too long to manually delete the duplicates.

Any help is appreciated

These are scaffold tubes modeled in 3D blocks with basic construction lines to allow for snap points.

Re: Cannot Delete Duplicate Objects

devitg — Thu, 19 Jul 2018 23:01:24 GMT

Please upload sample.dwg

Re: Cannot Delete Duplicate Objects

DannyNL — Fri, 20 Jul 2018 07:02:25 GMT

Can you clarify what you mean by duplicate blocks?

Because in your question you mention 'overlapping' as well as 'duplicate'.

To me duplicate suggests two blocks with the same name and inserted on exactly the same insertion point. If so, this would not be too difficult to program. If they do not share the same insertion point but actually only partially overlap, this will be a lot more difficult.

Re: Cannot Delete Duplicate Objects

scarroll — Fri, 20 Jul 2018 12:51:41 GMT

They are the same block inserted in the same way on the same insertion point.

Re: Cannot Delete Duplicate Objects

devitg — Fri, 20 Jul 2018 12:55:02 GMT

please , upload a sample,dwg

Re: Cannot Delete Duplicate Objects

scarroll — Fri, 20 Jul 2018 12:57:34 GMT

I cant do that devitg.

Re: Cannot Delete Duplicate Objects

cadffm — Fri, 20 Jul 2018 13:10:03 GMT

I am pretty sure you can create a sample what is alowed to uploud.

If not. We have the knowledge, you have the data, and now?

There are not two identical blockreferences of one block.. but what is the difference?
Please select one double pair (= two) of blockreferences, use command LIST and post the result [F2].

Re: Cannot Delete Duplicate Objects

DannyNL — Fri, 20 Jul 2018 14:08:45 GMT

Try this.....not mother's finest, but had to hurry since my weekend is on.

So also only limited tested

Only blocks that match ALL properties from the list (RBD_PropertyList) will be deleted.

(defun c:RemBlkDup (/ RBD_Selection RBD_BlockInsertion RBD_PointList RBD_PropertyList RBD_MainValueList RBD_CheckValueList RBD_DeleteList)
   (if
      (setq RBD_Selection (ssget "_X" (list '(0 . "INSERT")(cons 410 (getvar "CTAB")))))
      (progn
         (foreach RBD_Item (ssnamex RBD_Selection)
            (setq RBD_BlockInsertion (vlax-safearray->list (vlax-variant-value (vla-get-InsertionPoint (setq RBD_BlockObject (vlax-ename->vla-object (cadr RBD_Item)))))))
            (if
               (not (setq RBD_PointFound (assoc RBD_BlockInsertion RBD_PointList)))               
               (setq RBD_PointList (cons (list RBD_BlockInsertion RBD_BlockObject) RBD_PointList))
               (setq RBD_PointList (subst (append RBD_PointFound (list RBD_BlockObject)) RBD_PointFound RBD_PointList))
            )
         )
         (setq RBD_PropertyList
            (list
               "EffectiveName"           "InsertionPoint"          "Rotation"                "XEffectiveScaleFactor"
               "XScaleFactor"            "YEffectiveScaleFactor"   "YScaleFactor"            "ZEffectiveScaleFactor"
               "ZScaleFactor"
            )
         )
         (foreach RBD_PointItem RBD_PointList
            (foreach RBD_Block (cdr RBD_PointItem)
               (if
                  (not (vl-position RBD_Block RBD_DeleteList))
                  (progn
                     (setq RBD_MainValueList (mapcar '(lambda (RBD_Property) (if (= (type (setq RBD_Value (vlax-get-property RBD_Block RBD_Property))) 'VARIANT) (vlax-safearray->list (vlax-variant-value RBD_Value)) RBD_Value)) RBD_PropertyList))
                     (foreach RBD_CheckBlock (cddr RBD_PointItem)
                        (setq RBD_CheckValueList (mapcar '(lambda (RBD_Property) (if (= (type (setq RBD_Value (vlax-get-property RBD_Block RBD_Property))) 'VARIANT) (vlax-safearray->list (vlax-variant-value RBD_Value)) RBD_Value)) RBD_PropertyList))
                        (if
                           (not (vl-some 'null (mapcar '(lambda (RBD_MainValue RBD_CheckValue) (equal RBD_MainValue RBD_CheckValue)) RBD_MainValueList RBD_CheckValueList)))
                           (setq RBD_DeleteList (cons RBD_CheckBlock RBD_DeleteList))
                        )
                     )
                  )
               )
            )
         )
         (if
            RBD_DeleteList
            (progn
               (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
               (foreach RBD_Block RBD_DeleteList
                  (vla-Delete RBD_Block)
               )
               (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
            )
         )
      )
   )
   (princ)
)

Re: Cannot Delete Duplicate Objects

scarroll — Fri, 20 Jul 2018 20:42:37 GMT

CADffm I cannot give you a dwg due to my companies policies, but here is the results from my LIST with two duplicates on the same snap point:

Command: LIST
2 found

BLOCK REFERENCE Layer: "SLH70"
Space: Model space
Handle = 5bc
Block Name: "SLH70"
Anonymous Name: "*U22"
at point, X= 33.5438 Y= 9.0186 Z= 12.0177
X scale factor: 1.0000
Y scale factor: 1.0000
rotation angle: 0
Z scale factor: 1.0000
InsUnits: Millimeters
Unit conversion: 0.0394
Scale uniformly: No

Re: Cannot Delete Duplicate Objects

scarroll — Fri, 20 Jul 2018 20:43:14 GMT

DannyNL what is this?

Re: Cannot Delete Duplicate Objects

DannyNL — Tue, 24 Jul 2018 06:09:55 GMT

What is what?

You are asking for a LISP to remove duplicate blocks and that is what that code is for

Re: Cannot Delete Duplicate Objects

scarroll — Tue, 24 Jul 2018 12:02:05 GMT

So, we are on the right path! Thank you very much for your help!! I tried the code you wrote and it is deleting the duplicates but its also deleting some items all together and some duplicate components remain. Is it possible to include with in the code 'if qty>1' to remove those components? Could you help with these two items in the coding? Thanks once again for all your help DannyNL!

Re: Cannot Delete Duplicate Objects

scarroll — Tue, 31 Jul 2018 17:12:28 GMT

@DannyNLAny luck with what I had brought up last post?

Re: Cannot Delete Duplicate Objects

DannyNL — Wed, 01 Aug 2018 06:37:09 GMT

I've been quite busy the last weeks and did not have time to monitor the forum each day, so I'd missed your last question. But the code should do exactly as you are requesting and should only remove duplicates and leave one (so the qty>1 is already in effect).

BUT is does check on all those properties as included in the code and if one of those properties does not match, it will not be considered a duplicate.

It is also difficult to test a routine with no example drawing from your side. I know you'd mentioned you are not able to provide one, but that does mean I need to create one myself and with those the code does work. So I'm not able to tell why in your case it sometimes works and sometimes it doesn't, without being able to check the blocks/objects on which the routine fails.

Re: Cannot Delete Duplicate Objects

Anonymous — Thu, 27 Aug 2020 06:28:38 GMT

Hi Sir, I have the same issue, multiple blocks in the same base point but different names.

Is there any way to kill duplicate blocks.

Re: Cannot Delete Duplicate Objects

karpki — Sun, 17 Jan 2021 13:51:20 GMT

Hi Danny

Could you please help.

Is it possible to recode your LISP a bit to find and delete duplicated hatches not blocks ? I'm too new in coding to make it myself.

Hathes are made by same boudary, could be in same or different layers and colours. They are not visible often cause have same hatch style and angle

Thank you in advance

BRegards

Re: Cannot Delete Duplicate Objects

kirkwj — Fri, 23 May 2025 18:39:57 GMT

It doesn't seem to be responding to "rotation" If the blocks have the same insertion point and one is at 0 rotation, one at 270, one at 180 and one at 90 it deletes 3 and leaves only one. It should leave them all as they are at different rotations.

Re: Cannot Delete Duplicate Objects

lee.pellegrin — Fri, 23 May 2025 18:59:27 GMT

Have you considered using selection cycling?