取图元颜色和线型有大问题？？？？？

apollotime

AcadSelectionSet　取图元颜色和线型

AcadSelectionSet　取图元颜色和线型，在不同图层内，只以取到２５６这个值

代码如下：

Sub main()
  Dim sets As AcadSelectionSet
  Dim i As Integer
  Set sets = ThisDrawing.SelectionSets.Add("Select")
  sets.SelectOnScreen
  For i = 0 To sets.Count - 1
    MsgBox "当前颜色值为：" & sets.Item(i).color
  Next i
  sets.Delete
End Sub

谢谢！！！

apollotime

Sub main()
  Dim sets As AcadSelectionSet
  Dim i As Integer
  Set sets = ThisDrawing.SelectionSets.Add("Select")
  sets.SelectOnScreen
  For i = 0 To sets.Count - 1
     If sets.Item(i).color = 256 Then
        MsgBox "当前颜色值为：" & ThisDrawing.Layers.Item(sets.Item(i).Layer).TrueColor.ColorIndex
     Else
        MsgBox "当前颜色值为：" & sets.Item(i).color
     End If
    
   
  Next i
  sets.Delete
End Sub

这样解决行吗