Trying to select property and filter based layer groups together

[Anonymous]

I am using the following sub to select layers:

(defun AT:LayerFilterList (/ #Filters #List)
  (or *Acad* (setq *Acad* (vlax-get-acad-object)))
  (or *AcadDoc*
      (setq *AcadDoc* (vla-get-activedocument *Acad*))
  ) ;_ or
  (foreach x (entget
               (setq #Filters
                      (vlax-vla-object->ename
                        (vla-item
                          (vla-getextensiondictionary
                            (vla-get-layers
                              *AcadDoc*
                            ) ;_ vla-get-layers
                          ) ;_ vla-getextensiondictionary
                          "ACAD_LAYERFILTERS"
                        ) ;_ vla-item
                      ) ;_ vlax-vla-object->ename
               ) ;_ setq
             ) ;_ entget
    (if (eq 3 (car x))
      (setq #List
             (cons (cons (cdr x)
                         (cdr (nth 10 (dictsearch #Filters (cdr x))))
                   ) ;_ cons
                   #List
             ) ;_ cons
      ) ;_ setq
    ) ;_ if
  ) ;_ foreach
  #List
) ;_ defun

When I run this, it does not pick up layer groups created manually, only layer groups created using filters.

Can someone shed some light on this?

Thanks