谁有删除层的涵数~

login1986

谁有删除层的涵数~

不管层里有没有实体都能删除掉~

freezl

肯定要分两部，先删掉图层上的实体，再删掉图层

login1986

Set Sset = ThisDrawing.SelectionSets.Add("ss1" & Time())

     fType(0) = 0: fData(0) = "*"
     fType(1) = 8: fData(1) = LayerName
     FilterType = fType
     FilterData = fData

 Sset.Select acSelectionSetAll, , , FilterType, FilterData
    For i = 0 To Sset.Count - 1
        Sset(i).Delete
    Next i

哪位知道为什么为个老是出现错误啊...

老是在这句的时候出现错误...

Sset.Select acSelectionSetAll, , , FilterType, FilterData

但是在运行一次就好用了..

wyj7485

定义fType,fData有问题吧,应该如下:

Dim fType(1) As Integer
Dim fData(1) As Variant

login1986

我是这样定义的..

Dim FilterType As Variant
Dim FilterData As Variant
Dim fType(0 To 1) As Integer
Dim fData(0 To 1) As Variant

wyj7485

直接这样就可以啊

Dim fType(1) As Integer
Dim fData(1) As Variant

Set Sset = ThisDrawing.SelectionSets.Add("ss1" & Time())

     fType(0) = 0: fData(0) = "*"
     fType(1) = 8: fData(1) = "0"
    

 Sset.Select acSelectionSetAll, , , fType, fData
    For i = 0 To Sset.Count - 1
        Sset(i).Delete
    Next i

login1986

谢谢你了..我在试试吧...呵..