[求助]：请教对选择集中的对象的判断条件

chman

Sub tt()
   Dim tuceng1 As AcadSelectionSet
   

'×××××使用选择集前最应该使用的判断×××××××××
Dim xzj As Object
   For Each xzj In ThisDrawing.SelectionSets
         If xzj.Name = "tuceng1" Then
           ThisDrawing.SelectionSets.Item("tuceng1").Delete
         End If
    Next
'××××××××忘了当初是摘的还是想的。以上我认为是使用选择集中最应该使用的判断×××××'这种方法可以避免出现提示选择集存在无法创建，或者是没有选择集而强制删除××××导致操作失败的结果
  Dim ss As Object
   Set ss = ThisDrawing.SelectionSets.Add("tuceng1")
   ss.Select acSelectionSetAll

   dim i as acadobject
   For Each i In ss
    If i.Layer = tt  and i.lineweight  = 0.30 and i.color = 80 Then          '此处我想加入的判断条件：图层，线宽，颜色等等，此处出错了。无法达到我的需要。不知道是不是我i的定义错了还是怎么回事，除了LAYER可以正确的识别，其他的都不行，求助大家了

            i.Layer = "kk"

                       Update
     
          End If
          Next
  End Sub

在线苦等中

雪山飞狐(lzh)

你可以用过滤器吗

chman

我的目的是：
选择屏幕上所有的线
然后按照图层，线型，线宽大小，颜色号等信息重新分层。
补充一下程序的过滤器
Sub tt()
Dim tuceng1 As AcadSelectionSet
Dim xzj As Object
For Each xzj In ThisDrawing.SelectionSets
If xzj.Name = "tuceng1" Then
ThisDrawing.SelectionSets.Item("tuceng1").Delete
End If
Next

Dim FilterType(0 To 6) As Integer
    Dim FilterData(0 To 6) As Variant
    FilterType(0) = -4
    FilterData(0) = "<or"  
    FilterType(1) = 0
    FilterData(1) = "Arc"
    FilterType(2) = 0
    FilterData(2) = "Circle"
    FilterType(3) = 0
    FilterData(3) = "Line"
    FilterType(4) = 0
    FilterData(4) = "Polyline"
    FilterType(5) = 0
    FilterData(5) = "LWPolyline"
    FilterType(6) = -4
    FilterData(6) = "or>
   
   ss.Select acSelectionSetAll, , , FilterType, FilterData
Dim ss As Object
Set ss = ThisDrawing.SelectionSets.Add("tuceng1")
ss.Select acSelectionSetAll

dim i as acadobject
For Each i In ss
       If i.Layer = tt and i.ConstantWidth = 0.30 and i.color = 80 Then
    i.Layer = "kk1"
       Update
      elseif  i.layer = 22 and i.ConstantWidth= 0.30 then      
      i.layer= "kk2"
       End If
      Next
End Sub
个人觉的，如果可以用if来区分的话
如上所示
可能要简洁，易读一些
我总共有一百多个图层
如果每个层都用过滤器，程序可能会很冗长
现在图层用layer这个参数是正确的
都是多义线的时候constantwidth也正确
color就不对了，其他的参数试了很多，就是不行