VBA: Rotina para apagar polilinhas de layer específica

A rotina que se segue em VBA, serve para apagar polilinhas existentes no desenho pertencente a uma layer específica.

Sub erasepolylayer()

' variaveis

 Dim ent As AcadEntity ' variavel entidade

 Dim lay As AcadLayer  'variavel layer

 Dim sset As AcadSelectionSet ' variavel selecção

 Set sset = ThisDrawing.SelectionSets.Add("GetLines")

 sset.Select acSelectionSetAll

 For Each ent In sset

  If TypeOf ent Is AcadLWPolyline Then

   If ent.Layer = "nome_da_layer" Then 'filtrar por nome de layer

    ent.Erase 'erase

   End If

  End If

 Next ent

End Sub

Obrigado

Obrigado