Delete block

I'm trying to delete a block named "prelim" in a series of drawings. I can insert a block, but can't figure out how to delete an existing block in a drawing. Any help would be appreciated! Thanks.

Chris

 

in ThisDrawing module



 



Sub purgeblock()
Dim testblock As AcadBlock
Set testblock = Me.Blocks.Item("Test")



testblock.Delete



Set testblock = Nothing



End Sub



"chornb1" <> wrote in message news:...

I'm trying to delete a block named "prelim" in a series of drawings. I can insert a block, but can't figure out how to delete an existing block in a drawing. Any help would be appreciated! Thanks.

Chris

 

Assuming the block hasn't been inserted.




--
--
Ed
--



"Mark Propst" <mark-at-atreng-dot-com> wrote in message news:...



in ThisDrawing module



 



Sub purgeblock()
Dim testblock As AcadBlock
Set testblock = Me.Blocks.Item("Test")



testblock.Delete



Set testblock = Nothing



End Sub



"chornb1" <> wrote in message news:...

I'm trying to delete a block named "prelim" in a series of drawings. I can insert a block, but can't figure out how to delete an existing block in a drawing. Any help would be appreciated! Thanks.

Chris

 

for each ent in thisdrawing.modelspace
if ent.entitytype = acBlockReference then
if ent.name = "prelim"
ent.erase
end if
end if
next

this will erase on layers that are on
use selection object mode acselectall to get all entitites

this is for block refs not defs

 

naturally!







I was just lazy and assumed since he wants to delete it(which I read as purge since he said block rather than insert), he's already made sure there were no references to it or no method would delete it(purge).



 



"Ed Jobe" <> wrote in message news...



Assuming the block hasn't been inserted.




--
--
Ed
--



"Mark Propst" <mark-at-atreng-dot-com> wrote in message news:...



in ThisDrawing module



 



Sub purgeblock()
Dim testblock As AcadBlock
Set testblock = Me.Blocks.Item("Test")



testblock.Delete



Set testblock = Nothing



End Sub



"chornb1" <> wrote in message news:...

I'm trying to delete a block named "prelim" in a series of drawings. I can insert a block, but can't figure out how to delete an existing block in a drawing. Any help would be appreciated! Thanks.

Chris

 

Thanks to everyone. That did the trick. I actually did need to delete the block reference first, then purge.