deleting all entities from specific layer

How do I delete all 3d polylines on a specific layer? I've tried using the
following to select the 3d polylines but it does not work.


iFilterType(0) = 0
vFilterData(0) = "3dpolyline"
iFilterType(1) = 8
vFilterData(1) = "subbasin-temp"
On Error Resume Next
ThisDrawing.SelectionSets("3dpolyline").Delete
Set oSS = ThisDrawing.SelectionSets.Add("3dpolyline")
oSS.SelectOnScreen iFilterType, vFilterData

Thanks,
Craig

 

Craig,

This should delete all elements on a named layer

Have a great day.
John Coon

Public Sub eraselayer()
Dim ent As AcadEntity
For Each ent In ThisDrawing.ModelSpace
If ent.Layer = "P-ELEC-DUCT" Then '
ent.Delete
End If
Next
End Sub

 

The only way that I know of (and probably the longest) is to loop
through all the entities and test for the layer that you are after,
then delete the entity as you go.

Anthony

 

Try this. I never programmed LISP so I never had to learn the gory details
of the ACAD database well enough to know exactly what this is doing, but I
know enough to be able to borrow from
http://groups.google.com/groups?threadm=


iFilterType(0) = 0
vFilterData(0) = "POLYLINE, LWPOLYLINE"
iFilterType(1) = -4
vFilterData(1) = "&" ' bitwise and
iFilterType(2) = 70
vFilterData(2) = 8

HTH,

James

 

Thanks for your help...