Topic: delete block in all layout.

[ronjonp]

Dan,

You could use this:

Code: [Select]

(defun eblock (bname / ss)
  (if (setq ss (ssget "_X" (list (cons 2 bname))))
    (progn
      (mapcar 'entdel (mapcar 'cadr (ssnamex ss)))
      (vla-purgeall
(vla-get-activedocument (vlax-get-acad-object))
      )
    )
  )
)
(eblock)

To use in your script: (eblock "yourblockname")

Ron

[T.Willey]

If you don't want to purge everything, you can just try and erase the blocks definition from the block collection.

Code: [Select]

(if
 (not
  (vl-catch-all-error-p
   (setq BlkObj
    (vl-catch-all-apply
     'vla-Item
     (list
      (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-Acad-Object)))
      bname
     )
    )
   )
  )
 )
 (vl-catch-all-error-p 'vla-Delete (list BlkObj))
)


[Jeff_M]

Code: [Select]

.
 .....
      (mapcar 'entdel (mapcar 'cadr (ssnamex ss)))
 ....
.
Ron

Ron,
I, too, thought this would work until I was recently advised that (entdel) only works for Modelspace and the most recently active Layout. Changing the code to use ActiveX's Delete method will solve this and work for all Layouts.

Code: [Select]

(mapcar '(lambda (x)
                (vla-delete
                  (vlax-ename->vla-object x)
                 )
                )
   (mapcar 'cadr (ssnamex ss)))


[ronjonp]

Good to know Jeff. Thanks.

Ron

[CAB]

ditto
Thanks Jeff

[Joe Burke]

I wonder if anyone else thinks a program which tries to delete a block from a drawing should offer an option? Either expode all the references, including nested, and then delete the definition. Or simply delete the references and pugre the block definition.

I wrote something recently which deals with that question. I definitely felt a need to offer that option.

[ELOQUINTET]

basically i have updated our titleblock and need to go into our library and delete the old one and purge it out because when i insert the new one it is being overriden. ron i tried yours and it works great but i have a few more questions. how can i modify this so it looks for several blocks or should i repeat it in my script looking for a different eblock name? also another thing i didn't think about is that some but not all of our files are read only. i'm wondering how i can find which files are then make my changes then reset them to read only afterwards. anyone know how to do this via script?

[ronjonp]

basically i have updated our titleblock and need to go into our library and delete the old one and purge it out because when i insert the new one it is being overriden. ron i tried yours and it works great but i have a few more questions. how can i modify this so it looks for several blocks or should i repeat it in my script looking for a different eblock name? also another thing i didn't think about is that some but not all of our files are read only. i'm wondering how i can find which files are then make my changes then reset them to read only afterwards. anyone know how to do this via script?

Per Jeff M...you should use this variant:

Code: [Select]

(defun eblock (bname / ss)
  (if (setq ss (ssget "_X" (list (cons 2 bname))))
    (progn
      (mapcar '(lambda (x)
(vla-delete
   (vlax-ename->vla-object x)
)
       )
      (mapcar 'cadr (ssnamex ss))
      )
      (vla-purgeall
(vla-get-activedocument (vlax-get-acad-object))
      )
    )
  )
)
(eblock)
As far as filtering for different block names:

(eblock "blocknm1,blocknm2")

Ron

[ELOQUINTET]

thanks ron and jeff i will give this a try when i have a moment