Use a filtered selection set:
Dim ss As AcadSelectionSet, pl As AcadLWPolyline
Dim fType(1) As Integer, fData(1)
Set ss = ThisDrawing.SelectionSets.Add("ss")
fType(0) = 0: fData(0) = "LWPOLYLINE"
fType(1) = 8: fData(1) =
ss.Select acSelectionSetAll, , , fType, fData
For Each pl In ss
Next
--
http://www.acadx.com
"Manuel Rivero" wrote in message
news:CE1638153C346FC535075715281C9740@in.WebX.maYIadrTaRb...
> Hi all
> How can I change all the polylines which are in an
specific layer?
> I'd llike to loop through all the entities in the layer
and modify only the
> polilines.
> Thanks in advance
> Bye
> Manuel
>
>
