---

Hallo zusammen,

ich habe vor in einem VBA-Programm diverse Layerfilter nach Eigenschaften anzulegen.
Funktioniert soweit mit der Filterung nach Namen.
Hier mal der Code:

Code:

---

On Error Resume Next
'Layerfilter hinzufügen, Filter "Ansichtsfenster" wird erstellt, alle Layer mit AF*
        Dim objDict As AcadDictionary
        Dim objFilterAF As AcadXRecord
        Dim intXRDType(7) As Integer
        Dim varXRDValue(7) As Variant
        Set objDict = ThisDrawing.Layers.GetExtensionDictionary.AddObject("ACAD_LAYERFILTERS", "AcDbDictionary")
        Set objFilterAF = objDict.AddXRecord("Ansichtsfenster")
        intXRDType(0) = 1: varXRDValue(0) = "Ansichtsfenster"
        intXRDType(1) = 1: varXRDValue(1) = "Ansichtsfenster*,Symbole_Layout*"
        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) = "*"
        objFilterAF.SetXRecordData intXRDType, varXRDValue

---

Nun möchte ich einen Filter auf der zweiten Ebene anlegen, Quasi einen zusätzlichen Filter vom vorgenannten Filter.

Zudem hätte ich gerne einen Filter für alle Layer, die gesperrt, gefrorern oder ausgeschaltet sind.

Hat jemand einen Ahnung wie ich da vorgehen muss?

Vielen Dank im Voraus!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hatte mal ein ähnliches Problem
Vielleicht hilft Dir diese Antwort von CAD-Hübner auch weiter ..

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP