unreferenced blocks

[Anonymous]

How do I "purge" unreferenced block names out of my drawing with VB? I noticed the Document object has a PURGEALL method, but I don't want to purge everything.

[joesu]

PRE
Public Sub PurgeBlocks()
Dim Block As AcadBlock
Dim Index As Long

On Error Resume Next

For Index = 0 To ThisDrawing.Blocks.Count - 1
If InStr(1, Blocks(Index).Name, "*") = 0 Then
Blocks(Index).Delete
End If
Next
End Sub
/PRE

Joe
--

[joesu]

Public Sub PurgeBlocks()

Dim Block As AcadBlock

Dim Index As Long



  On Error Resume Next

  

  For Index = 0 To ThisDrawing.Blocks.Count - 1

    If InStr(1, Blocks(Index).Name, "*") = 0 Then

      Blocks(Index).Delete

    End If

  Next

End Sub

Joe
--

[Anonymous]

Thanks.