关于按照颜色值筛选对象的问题

bbkcylh

我想实现，通过点选一个实体，然后根据它的颜色，全部选中途中相同颜色的实体对象。我是通过读取TrueColor的ColorIndex属性来获取颜色索引值。但是有个问题了。当颜色值为256，既为bylayer类型时，就搞不定了。这种情况应该怎么做呢。谢谢

'************************************************************************************
'按颜色选择相同颜色的实体对象：************************************
'************************************************************************************
Sub PublicSub333()
On Error GoTo errhandle
     ThisDrawing.Utility.Prompt vbCrLf & "当前命令：颜色选择" & vbCrLf
'     Exit Sub

    Dim i As Long
    Dim k As Long
    Dim entityObj As AcadEntity '实体变量
    Dim nColor As Integer '颜色值
   '创建空白选择集
    Dim SelSet As AcadSelectionSet
    If ThisDrawing.SelectionSets.Count > 0 Then '如果选择集已经存在，删除
        For i = 0 To ThisDrawing.SelectionSets.Count - 1
           If ThisDrawing.SelectionSets.Item(i).Name = "SelSet" Then
              Set SelSet = ThisDrawing.SelectionSets.Item("SelSet")
              SelSet.Delete
              Exit For
           End If
        Next i
    End If
    Set SelSet = ThisDrawing.SelectionSets.Add("SelSet")

    ThisDrawing.Utility.GetEntity entityObj, setpoint, "请拾取对象："
    nColor = entityObj.TrueColor.ColorIndex '获取颜色值

    '0为block，256为bylayer，
    Dim FilterType(0) As Integer
    Dim FilterData(0) As Variant
    Dim lyObj As AcadLayer
    Set lyObj = ThisDrawing.Layers.Item(entityObj.Layer)

    If nColor = 256 Then '颜色为bylayer时不能刷选？？？？？？？？？？？？？？？？？？？？？？
       nColor = lyObj.TrueColor.ColorIndex
    End If

    FilterType(0) = 62
    FilterData(0) = nColor
    SelSet.Select acSelectionSetAll, , , FilterType, FilterData '将目标颜色所有对象添加到选择集中

    SelSet.Highlight True

    Exit Sub
errhandle:
    If Err.Number = -2147352567 Then
       ThisDrawing.Utility.Prompt "取消选择" & vbCrLf
    Else
       ThisDrawing.Utility.Prompt vbCrLf & Err.Number & vbCrLf
       ThisDrawing.Utility.Prompt vbCrLf & Err.Description & vbCrLf
    End If   
End Sub

zzyong00

    If nColor = 256 Then '颜色为bylayer时不能刷选？？？？？？？？？？？？？？？？？？？？？？
       nColor = lyObj.TrueColor.ColorIndex
    End If
把这段代码删掉就行了，画蛇添足

bbkcylh

zzyong00 发表于 2016-5-2 21:08
If nColor = 256 Then '颜色为bylayer时不能刷选？？？？？？？？？？？？？？？？？？？？？？
      ...

删了不行，所有按照bylayer的实体颜色值都是256，但是颜色是不一样的。要是删除了，都当成一样选择了

zzyong00

哪估计得选完再过滤了