Public Sub AcadEraseAll()
    strCommonBlockPath = "C:\Autodrawing\Common_Drawings\"
    'This sub uses the Selection set object to "Erase All"
    On Error Resume Next
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Item("Junk")
    
    If Not ssetObj Is Nothing Then
        ThisDrawing.SelectionSets.Item("Junk").Delete
    End If
    
    Set ssetObj = ThisDrawing.SelectionSets.Add("Junk")
    
    ssetObj.Select acSelectionSetAll
    ssetObj.Erase
    ThisDrawing.Close False
    GetABlankDrawing
    
End Sub


Public Sub GetABlankDrawing()
    
    ThisDrawing.Application.Documents.Add ("acad")
    
End Sub