[San-Miguel]

В составе группового фильтра разные слои, объединенные вручную в состав него.
Необходимо в модели выделить мгновенно все слои группового фильтра чтоб на задний план разместить

[skkkk]

Штатной команды для выделения всех объектов, принадлежащих слоям группового фильтра, нет, насколько я знаю.
Программно решить очень просто. Берем код Makswell'a здесь, меняем имя функции test на что-то осмысленное, добавляем функцию LtoT (не уверен, кто автор, но впервые я ее увидел в посте Pilot'a здесь), еще пару строк, и готово:

Код:

[Выделить все]

 ;;; Команда выделяет все объекты на слоях, принадлежащим текущему групповому фильтру слоев

(defun C:SELFILTEROBECTS ()
	(if (get_filter_layer_list)
		(sssetfirst nil (ssget "_X" (list (cons 8 (LtoT (get_filter_layer_list) ",")))))
	)
)
;;; Функция фозвращает список имён слоев текущего группового фильтра
;;; Автор - Makswell
;;; https://forum.dwg.ru/showthread.php?p=642962#post642962
(defun get_filter_layer_list (/ a ent lst)
  (foreach
	    item
		(vl-remove-if-not
		  '(lambda (x) (= (car x) 350))
		  (dictsearch
		    (vlax-vla-object->ename
		      (vla-GetExtensionDictionary
			(vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
		      )
		    )
		    "ACLYDICTIONARY"
		  )
		)
    (if	(assoc 290 (entget (cdr item)))
      (setq a (entget (cdr item))
      )
    )
  )
  (foreach item	(vl-remove-if-not '(lambda (x) (= (car x) 330)) a)
    (if	(= (cdr (assoc 0 (setq ent (entget (cdr item))))) "LAYER")
      (setq lst (cons (cdr (assoc 2 ent)) lst))
    )
  )
  lst
)

;;; Функция преобразует список строк l1 в строку с разделителями (аргумент div1 - строка с символом или символами-разделителями) между элементами исходного списка
;;; Автор, предположительно, - Pilot 
;;; https://forum.dwg.ru/showthread.php?p=47837#post47837

(defun LtoT (l1 div1 / t1 v1)
(if (not div1)(setq div1 " "))
(if (> (length l1) 1)
   (progn (setq t1 (car l1))
        (foreach v1 (cdr l1)
            (setq t1 (strcat t1 div1 v1))
        );end foreach
   );end progn
   (car l1)
);end if
);end LtoT

(princ "C:SELFILTEROBECTS")
(princ)

----- добавлено через ~9 мин. -----
Кстати, забыл: у Lee Mac'a есть программа для изменения порядка прорисовки слоев - Layer Draw Order. Может, и фильтры не придется создавать.