Тема: Почему не работает фильтр у SelectionSet
Полдня пробился над этой конструкцией:
.............
Dim SSVL As AcadSelectionSet
Dim FType(1) As Integer
Dim FData(1) As Variant
Dim SSCol As AcadSelectionSets
Set MS = ThisDrawing.ModelSpace
Set SSCol = ThisDrawing.SelectionSets
Call SSCheck("ssvl")
Set SSVL = SSCol("ssvl")
FType(0) = 8
FData(0) = "ХХХ ХХ"
FType(1) = 100
FData(1) = "AcDb2DPolyline"
SSVL.Select acSelectionSetAll, , , FType, FData
.............
Function SSCheck(SSNM As String)
Dim SelSet As AcadSelectionSet
Dim CheckFlag As Boolean
CheckFlag = False
For Each SelSet In ThisDrawing.SelectionSets
If SelSet.name = SSNM Then
CheckFlag = True
End If
Next SelSet
If CheckFlag = False Then
ThisDrawing.SelectionSets.Add (SSNM)
Else
ThisDrawing.SelectionSets(SSNM).Clear
End If
End FunctionВ этом случае макрос выбирает ВСЕ полилинии на чертеже независимо от слоя. Когда вместо фильтра слоя подставляю фильтр по цвету, он бросает выбирать полилинии и начинает выбирать ТОЛЬКО по цвету. Никак не могу заставить выбирать и по слою и по subclass marker (dxf-код 100) одновременно.
Помогите дельным советом или прямым тычком на неграмотный код.)) Спасибо.
