want to delete something from a BLOCK without entering it
That can't be done without entering the Block definition, but if you mean you want a command or routine to handle that part for you.... The attached BlockElementDelete.lsp with its BEDEL command seems to do that [lightly tested].
Regards @shoshi9753
Try this code, to eliminate block entities, with minimal testing
;;;___
(defun c:erb (/ da s sn)
(setq da (vla-get-activedocument (vlax-get-acad-object))
s (car (nentselp "\nSelect entity inside Block: "))
sn (vlax-ename->vla-object s)
)
(vla-delete sn)
(vla-Regen da acAllViewports)
)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@john.uhden wrote:
.... nentsel and nentselp actually return a list of the deepest nested entity through the shallowest, like a line within a block "A" which is contained in block "B" which is contained in block "C."
The first item in the list (car (nentselp)) is the deepest, ....
Mine in Message 3 goes for the deepest with all those "Next" entries in its REFEDIT command, assuming not more than three levels down, but more "Next" entries could be added if it might be further down than that.
It doesn't use (nentsel) because you can't directly delete the entity returned by that if it's nested. So it does it with REFEDIT, digs down to the lowest [it is hoped] nesting level, and gets rid of the object there, re-using the pick point from the original selection, but not using the entity name from it.
But yes, if the thing you want to remove from a Block is, for example, an entire nested Block, not just a deepest-level piece within that, then some method would be needed to determine which nesting level you're after. If that's the need, I suspect it's just as easy to give in and "enter" the Block definition in REFEDIT or BEDIT to do what is wanted.
@john.uhden wrote:
..... I wasn't aware that you can't delete an entity name from somewhere in the middle of a family tree. Not even (vla-delete)?
By golly, it turns out that (vla-delete) will do it, though it's necessary to REGEN to see the change. [I had made my claim based on trying (entdel) as well as ordinary ERASE with the nested-entity name.] That lets the command shorten a little, to the attached version [minimally tested].
@shoshi9753 wrote:
.... why do I have to re-upload every drawing I open??
That's true for any routine that is not part of AutoCAD itself -- it needs to be loaded before you can use it. My preferred way to have that happen in all drawings:
Go to >this< in Help and learn about acaddoc.lsp. To find out whether you already have such a file, put this in at the command line:
(findfile "acaddoc.lsp")
and if you have one, it will tell you where it is.
Put the .lsp file in a location where AutoCAD knows to look [OPTIONS command, Files tab, Support File Search Path list], and in a plain-text editor such as Notepad, put this line in acaddoc.lsp [whether the only thing in it, or if you already have the file, added to what's already in it]:
(load "BlockElementDelete")
and it will be loaded in every drawing you create or open.
If you prefer, you can have it always ready to be loaded, but not actually loaded into a given drawing until you call for the command. Instead of the line above, use:
(autoload "BlockElementDelete" '("BEDEL"))
@shoshi9753 wrote:
..., It's not perfect but it's good enough ....
What should be different to make it perfect?
@shoshi9753 wrote:
it's not perfect, Because it deletes only one object per command and it is not possible to select a selection of several objects at the same time and delete
Everything about Message 1 was in the singular, so that's what my routine did. It's easy enough to make it let you pick more than one [see the attached revised version], but be aware that you must pick on each object individually -- there is no way that I know of to select nested objects with a window or fence or lasso.
