Как добавить слой к групповому фильтру?

Нашел что, фильтры хранятся в словаре прикрепленном к таблице слоев - ACLYDICTIONARY
Можно попробовать вручную поковырять. Но это опасно  :D

Как добраться до LayerManager из VBA не знаю.
На NET или ARX есть такой класс - LayerManager.

Создавать фильтр получается след-им кодом:

Dim objDict As AcadDictionary
Dim objFilter As AcadXRecord
Dim intXRDType(6) As Integer
Dim varXRDValue(6) As Variant
Set objDict = ThisDrawing.Layers.GetExtensionDictionary.AddObject("ACAD_LAYERFILTERS", "AcDbDictionary")
Set objFilter = objDict.AddXRecord("TEXT")
intXRDType(0) = 1: varXRDValue(0) = "TEXT"
intXRDType(1) = 1: varXRDValue(1) = "T-*"
intXRDType(2) = 1: varXRDValue(2) = "*"
intXRDType(3) = 1: varXRDValue(3) = "*"
intXRDType(4) = 70: varXRDValue(4) = 0
intXRDType(5) = 1: varXRDValue(5) = "*"
intXRDType(6) = 1: varXRDValue(6) = "*"
objFilter.SetXRecordData intXRDType, varXRDValue

А как к созданному фильтру добавить слой непонятно...

Ты наверное путаешь Фильтр по свойствам и Групповой фильтр.  :D
Добавить слой можно только в Групповой фильтр.

А ну да, в данном примере создаётся фильтр по свойствам, будем разбираться

Спасибо, попробую под Net написать

Тфу это же подпись  :D