This will erase everything except xrefs, active layer, active style, etc....

Public Sub EraseAll(Doc As AcadDocument)
Dim Entity As AcadEntity
Dim Layout As AcadLayout

For Each Layout In Doc.Layouts
For Each Entity In Layout.Block
Entity.Delete
Next
Next

Call Doc.PurgeAll

Set Entity = Nothing
Set Layout = Nothing

End Sub