Mike,
Here is how you would do that.
Joe
--
Public Const LAYER = 8 'by layer
Public Function CreateSelectionSet(SelectionSet As AcadSelectionSet, _
FilterCode As Integer, _
FilterValue As String) As Boolean
Dim iFilterCode(0) As Integer
Dim vFilterValue(0) As Variant
iFilterCode(0) = FilterCode
vFilterValue(0) = FilterValue
SelectionSet.Select acSelectionSetAll, , , iFilterCode, vFilterValue
'SelectionSet.SelectOnScreen intFilterCode, varFilterValue
If SelectionSet.Count Then
CreateSelectionSet = True
End If
End Function
Public Sub DeleteEntitiesOnLayer(LayerName As String)
Dim objSS As AcadSelectionSet
Dim oEntity As AcadEntity
On Error Resume Next
'delete any previous selection set
ThisDrawing.SelectionSets("Entities").Delete
'create our new selection set
Set objSS = ThisDrawing.SelectionSets.Add("Entities")
'get the actual entities for the selection set
CreateSelectionSet objSS, LAYER, LayerName
'iterate through selection set delete each entity
For Each oEntity In objSS
oEntity.Delete
Next oEntity
End Sub
Public Sub Test()
DeleteEntitiesOnLayer "... Your Layer Name Goes Here ..."
End Sub
