Joseph,

This will allow you to select by crossing a group of entities and delete the dimensions only. It does not show the entities selected (I have that code somewhere in the BOM editer/editor), do you two think it needs it?
[VBA]
Sub DelDim()
Dim ssetA As AcadSelectionSet
Dim gpCode(0) As Integer, InsrtPnt As Variant, InsrtPnta As Variant
Dim dataValue(0) As Variant
InsrtPnt = ThisDrawing.Utility.GetPoint(, "Pick a corner:")
InsrtPnta = ThisDrawing.Utility.GetPoint(, "Pick a corner:")
gpCode(0) = 0
dataValue(0) = "Dimension"
groupCode = gpCode
dataCode = dataValue
Set ssetA = SelectionSets.Add("DimDelete")
ssetA.Select acSelectionSetCrossing, InsrtPnt, InsrtPnta, groupCode, dataCode
ssetA.Erase
ssetA.Delete
ThisDrawing.Regen acActiveViewport
End Sub
[/VBA]