请教对选择集中的对象的判断条件

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(2) = 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也有问题，其他的参数试了很多，就是不行

向大家求救了

tnt1095

i.lineweight  = 0.30 肯定是有问题的

chman

上浮一次

 

wyj7485

'这样可以实现,其余部分自己加

Sub tt()
Dim tuceng1 As AcadSelectionSet
On Error Resume Next

Dim FilterType(0 To 6) As Integer
Dim FilterData(0 To 6) As Variant
FilterType(0) = -4
FilterData(0) = "<or"
FilterType(2) = 0
FilterData(3) = "Line"
FilterType(4) = 0
FilterData(4) = "Polyline"
FilterType(5) = 0
FilterData(5) = "LWPolyline"
FilterType(6) = -4
FilterData(6) = "or>"

ThisDrawing.SelectionSets.Item("tuceng1").Delete
Set tuceng1 = ThisDrawing.SelectionSets.Add("tuceng1")
tuceng1.Select acSelectionSetAll, , , FilterType, FilterData

 

Dim i As AcadLine
For Each i In tuceng1
If i.Lineweight = 30 Then'即线宽0.3
i.Layer = "tt"
Update
End If
Next

End Sub

chman

so good，现在回头看，判断为pline（line）才用i.Lineweight