dieblockdie by Robert Bell

[Ursus Uziemblo]

Robert,
it is very nice code, but please explain why it works in my logic (wrong) it kills only INSERT part of other block definition (vla-delete object) is inside (vlax-for object block..). How Your code find insert with given name? What I missed?
Ursus Uziemblo

 

[BG]

Could that file be used for AutoCAD 2000??

 

[Mark Propst]

I believe that was in response to a poster who thought he had already deleted all direct insertions of the block but still could not purge, thus roberts solution would get the remaining embedded occurances.

 

[R. Robert Bell]

Yes.

--
R. Robert Bell, MCSE
www.AcadX.com

| Could that file be used for AutoCAD 2000??
|
|
| | > Robert,
| > it is very nice code, but please explain why it works | > in my logic (wrong) it kills only INSERT part of other block definition | > (vla-delete object) is inside (vlax-for object block..). | > How Your code find insert with given name? | > What I missed? | > Ursus Uziemblo | > | > | |

 

[R. Robert Bell]

In the object model, even the layouts are simply blocks. So even a "normal" insertion in Model Space is a nested block, by definition.

I loop thru all the Blocks in the Blocks collection, looping thru each Object in the Block itself, looking for BlockReferences (which are inserts). If I find a BlockReference, I check its Name, and if there is a match, I delete it.

A Regen updates the drawing visibly.

Here is the code for others that might have missed the post Ursus was referring to.

;;; Written by: R. Robert Bell
(defun rrbIieBlockDie (BlkN / Doc)
(vl-Load-Com)
(setq BlkN (strcase BlkN)
Doc (vla-Get-ActiveDocument (vlax-Get-Acad-Object)))
(vlax-For Block (vla-Get-Blocks Doc)
(vlax-For Object Block
(if (and
(= (vla-Get-ObjectName Object) "AcDbBlockReference")
(= (strcase (vla-Get-Name Object)) BlkN))
(vla-Delete Object))))
(vla-Regen Doc acAllViewports)
(princ))

Usage: (rrbIieBlockDie "StupidBlock")

 

[Ursus Uziemblo]

Thanks Robert for explanation - I did not thing of modelSpace like a block - learn something new - thanks again Ursus

 

[cadtank]

so a user could do the same thing with a layer, correct?

 

[R. Robert Bell]

You could use a similar approach to find what is *on* a layer (and optionally delete it if that is what you wish). However, layers can still be referenced by other conditions, such as a PViewport freezing that layer.

--
R. Robert Bell, MCSE
www.AcadX.com

| so a user could do the same thing with a layer, correct? | | | | > In the object model, even the layouts are simply blocks. So even a | "normal" | > insertion in Model Space is a nested block, by definition. | > | > I loop thru all the Blocks in the Blocks collection, looping thru each | > Object in the Block itself, looking for BlockReferences (which are | inserts). | > If I find a BlockReference, I check its Name, and if there is a match, I | > delete it. | > | > A Regen updates the drawing visibly. | > | > Here is the code for others that might have missed the post Ursus was | > referring to. | > | > ;;; Written by: R. Robert Bell | > (defun rrbIieBlockDie (BlkN / Doc) | > (vl-Load-Com) | > (setq BlkN (strcase BlkN) | > Doc (vla-Get-ActiveDocument (vlax-Get-Acad-Object))) | > (vlax-For Block (vla-Get-Blocks Doc) | > (vlax-For Object Block | > (if (and | > (= (vla-Get-ObjectName Object) | "AcDbBlockReference") | > (= (strcase (vla-Get-Name Object)) BlkN)) | > (vla-Delete Object)))) | > (vla-Regen Doc acAllViewports) | > (princ)) | > | > Usage: (rrbIieBlockDie "StupidBlock") | > | > | > -- | > R. Robert Bell, MCSE | > www.AcadX.com | > | > | > | > | Robert, | > | it is very nice code, but please explain why it works | > | in my logic (wrong) it kills only INSERT part of other block definition | > | (vla-delete object) is inside (vlax-for object block..). | > | How Your code find insert with given name? | > | What I missed? | > | Ursus Uziemblo | > | | > | | > | > | |

 

[cadtank]

cool, thanks.