[求助]只把图层打开的对象加入到选择集遇到问题

chen_0801

各位高手，麻烦你们帮帮我 看看程序，我只想把图层设置为打开的那些实体对象加入到选择集，可以下面的代码却没有把任何对象加入到选择集，请帮我看看问题出在什么地方了 谢谢

'把图层设置为关闭的过滤掉
    Dim entry As AcadLayer
    ReDim filterdata(0 To ThisDrawing.Layers.Count - 1) As String
    Dim NO1 As Integer
    NO1 = 0
    '遍历图层
    For Each entry In ThisDrawing.Layers
        If entry.LayerOn = True Then
            filterdata(NO1) = entry.Name
        End If
    Next
    '定义选择集过滤器
    Dim filterTYPE1() As Integer
    Dim filterDATA1() As String
    Dim e1 As Integer
    For e1 = 0 To NO1
        filterTYPE1(e1) = 8
        filterDATA1(e1) = filterdata(e1)
    Next e1
    ssetObj.Select acSelectionSetAll, , , filterTYPE1, filterDATA1

mccad

你没有加入“OR”的逻辑，所以就变成了“AND”了。

如果只是OR，可以把所有图层用逗号隔开，所以上面的程序可以简单化， 只需要把过滤的图层名组合在一行里用逗号隔开。

gdzhou

dim n as integer,i as integer

dim ft(0) as integer

dim fd(0)

ft(0)=8

dim Sl() as string

n=-1

for i=0 to thisdrawing.layers.count-1

if thisdrawing.layers(i).layeron=true then

    n=n+1

redim preserve sl(n)

  sl(n)=thisdrawing.layers(i).name

endif

next i

fd(0)=join(sl,",")

dim sset as acadselection

.......

....

chen_0801

真心感谢 上面两位。