[VBA]关于图层删除的问题

mayuezxl · 发表于 2006-8-4 09:57:00

Private Sub CommandButton3_Click()
Dim s
s = MsgBox("你正在删除所写数字及所在层吗？", vbOKCancel, "提示")
If s = vbOK Then
Dim L As AcadLayer
Set L = ThisDrawing.Layers("wzl")
ThisDrawing.ActiveLayer = ThisDrawing.Layers("0")
Dim E As AcadEntity
  For Each E In ThisDrawing.ModelSpace
If E.Layer = "wzl" Then
   E.Delete
End If
  Next
L.Delete
ThisDrawing.Regen acActiveViewport
End If
End Sub
这个程序是先遍历整个图形空间，当碰到要删除图层中的对象时，删除该对象，然后删除图层。可是当图形空间中对象很多时（超过一百多万），要等很久才能删除图层。请问如何才能直接删除要删除图层中的对象，而不是遍历整个图形空间。谢谢各位高手的帮忙！

wyj7485 · 发表于 2006-8-4 11:58:00

建立选择集,用选择集的delete属性

mayuezxl · 发表于 2006-8-4 14:51:00

怎么建立要删除图层的选择集呢?

wyj7485 · 发表于 2006-8-4 15:57:00

Sub test()
On Error Resume Next
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
Dim Myset As AcadSelectionSet
FilterType(0) = 8: FilterData(0) = LayerName
ThisDrawing.SelectionSets.Item("Myset").Delete
Set Myset = ThisDrawing.SelectionSets.Add("Myset")
Myset.Select acSelectionSetAll, , , FilterType, FilterData
Myset.Erase
End Sub
,LayerName不能为当前层