Topic: Nestet Layerfilter

[CADwiesel]

Hi there,

i'm trying to read all the Layerfilters or Layergroupfilters with the attached Layernames

Code - Auto/Visual Lisp: [Select]

1. (defun LAYGROUPFILTER( / OBJ DICT ITEM E D N LayerITEMS Layerobj Layernams Result)
2. (if(and(setq OBJ(vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))
3.       (=(vla-get-hasextensiondictionary OBJ):vlax-true)
4.       (setq OBJ(vla-GetExtensionDictionary OBJ))
5.       (not(vl-catch-all-error-p
6.             (setq DICT(vl-catch-all-apply 'vla-item (list OBJ "AcLyDictionary")))
7.           )
8.       )
9.   )
10.   (vlax-for ITEM DICT
11.     (if(and(setq E(vlax-vla-object->ename ITEM))
12.           (setq D(entget E))
13.           (=(type(cdr(assoc 1 D)))'STR)
14.           (=(strcase(cdr(assoc 1 D)))"ACLYLAYERGROUP")
15.           (=(type(setq N(cdr(assoc 300 D))))'STR)
16.       )
17.       (progn
18.         (setq LayerITEMS(member(assoc 1 D)D))
19.       (while (setq Layerobj(assoc 330 LayerITEMS))
20.         (setq Layernams(cons (cdr(assoc 2(entget(cdr  Layerobj))))Layernams))
21.         (setq LayerITEMS(vl-remove Layerobj LayerITEMS))
22.         )
23.         (setq Result(cons(cons n (list (vl-remove 'nil Layernams)))Result))
24.       )
25.     )
26.   )
27. )
28. Result
29. )

to get the Filters if they are normaly created ist'n not as heavy, but if they are nested, i've not really an Idea to get them.
Remark. I dont won't to delete them, only read and list.

Maybe somebody can show me the right step?

Regards Martin