Puging a block

[suresh738]

Hi, i am facing a problem while purging blocks. i want to purge a perticular block through vba. i could able to use only purgeall command from vba. how can i giva an option to select a block name which has to be purged.
If any one is havig idea in this, please tell me.
Thanks & Regards
Suresh.

[Anonymous]

You can search the block reference and block by
name and delete them.

'This will delete block reference

For i = 0 To ThisDrawing.ModelSpace.Count -
1

 Set ent =
ThisDrawing.ModelSpace.Item(i)

If ent.ObjectName = "AcDbBlockReference"
Then

 Set blockRef = ent
 
 If
bref.Name = "Your BlockRefenceName" Then

    blockRef .Delete

    Exit For

 End If
 
End If

'This will delete the block

For i = ThisDrawing.Blocks.Count - 1 To 0 Step
-1

Set block = ThisDrawing.Blocks.Item(i)

if block.Name = "YourBlockName"
then 

 block.Delete

 Exit For
End If 

Next

Gabriel

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"suresh738" <
href="mailto:suresh738@yahoo.com">suresh738@yahoo.com> wrote in message

href="news:f0f1a64.-1@WebX.maYIadrTaRb">news:f0f1a64.-1@WebX.maYIadrTaRb...

Hi,
i am facing a problem while purging blocks. i want to purge a perticular block
through vba. i could able to use only purgeall command from vba. how can i
giva an option to select a block name which has to be purged.
If any one
is havig idea in this, please tell me.
Thanks & Regards

Suresh.