[San-Miguel]

В чертеже много слоев. Создана группа слоев (групповой фильтр) в свойствах слоев. В эту группу перенесены особо важные слои.
В процессе работы хотелось бы мгновенно выделять все элементы рисования (отрезки, дуги, полилинии) всех слоев внутри этого группового фильтра (чтобы вывести все на передний план просмотра или скопировать в новый файл и отправить заказчику). При этом чтобы не менять порядок слоев в части заморожен/разморожен (потом обратно настраивать долго и муторно). Подчеркну, что лисп SelSim не позволяет выбрать все элементы рисования по слою (чтобы сразу и полилинии, и дуги, и отрезки и пр. выделяло)

[Сергей812]

Сообщение от San-Miguel мгновенно выделять все элементы

Сообщение от San-Miguel чтобы не менять порядок слоев в части заморожен/разморожен

между собой это плохо сочетается...

[bernata]

_FILTER или _QSELECT потом CTFL+SHIFT+C и CTFL+SHIFT+V в новый файл

Таким образом за несколько действий (отрезки, дуги, полилинии) создаётся новый файл.

[Сергей812]

Сообщение от bernata Таким образом за несколько действий (отрезки, дуги, полилинии) создаётся новый файл.

ТС явно не это имел в виду)

Сообщение от San-Miguel хотелось бы мгновенно выделять все элементы рисования (отрезки, дуги, полилинии) всех слоев внутри этого группового фильтра

Сообщение от San-Miguel Подчеркну, что лисп SelSim не позволяет выбрать все элементы рисования по слою (чтобы сразу и полилинии, и дуги, и отрезки и пр. выделяло)

т.е. если мгновенный - это:
1. Получить список групповых фильтров чертежа и предложить пользователю выбрать нужный (возможно, потом по мере роста аппетита захочется и несколько фильтров сразу выбирать чекбоксами);
2. Получить набор слоев, входящий в фильтр (если фильтров несколько - то отсеять повторные вхождения слоев);
3. Пройтись по полученному списку слоев и разблокировать/показать/разморозить слои при необходимости (хотя это не бьется с хотелками ТС - чтобы настройки слоев оставались как есть);
4. Получить в текущем пространстве чертежа все примитивы, которые располагаются на полученном ранее списке слоев и выделить их.

[trir]

В Map 3D для этого есть Запросы

[San-Miguel]

Сообщение от trir В Map 3D для этого есть Запросы

Это приложение к Автокаду? Как его установить?

[trir]

Как его установить?

при установке AutoCAD выбрать

[name02]

Можно попробовать такой лисп - он создает набор из объектов группового фильтра (имя фильтра прописано в программе). В объект попадают все объекты находящиеся на слоях группового фильтра - слои могут быть отключенными, замороженными или заблокированными - все объекты будут помещены в набор.
Объекты (кроме тех, что на заблокированных слоях) можно изменять и удалять.
Порядок прорисовки меняется для объектов на любых слоях.
Работу с групповыми фильтрами внутри других групповых фильтров не проверял (скорее всего не работает)

Код:

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

 (defun c:TST (/ lg_name _grouplayerfilterswlayernames lo_name b filter_list ss)

  (setq lg_name "Групповой фильтр1")

  (defun _grouplayerfilterswlayernames
                                       nil
    ((lambda (foo) (foo (entget (cdr (assoc 330 (entget (tblobjname "layer" "0")))))))
      (lambda (enx / dic i itm rtn)
        (and (setq dic (cdr (assoc 360 (member '(102 . "{ACAD_XDICTIONARY") enx))))
             (setq dic (cdr (assoc -1 (dictsearch dic "aclydictionary"))))
             (while (setq itm (dictnext dic (not itm)))
               (if (= "AcLyLayerGroup" (cdr (assoc 1 itm)))
                 (setq i   (assoc 300 itm)
                       rtn (cons (list (cdr i)
                                       ;; RJP » 2019-05-21 added list of layer names associated with filter
                                       (mapcar '(lambda (y) (cdr (assoc 2 (entget (cdr y)))))
                                               (vl-remove-if '(lambda (x) (/= 330 (car x))) (member i itm))
                                       ) ;_ end mapcar
                                 ) ;_ end list
                                 rtn
                           ) ;_ end cons
                 ) ;_ end setq
               ) ;_ end if
             ) ;_ end while
        ) ;_ end and
        (reverse rtn)
      ) ;_ end lambda
    )
  ) ;_ end defun

  (setq lo_name (getvar 'CTAB))

  (setq b (assoc lg_name (_grouplayerfilterswlayernames)))

  (cond
    ((null (car b))
     (princ
       (strcat "\nГруппового фильтра слоев с именем \"" (strcase lg_name) "\" в чертеже нет!")
     ) ;_ end princ
    )
    (T
     (setq filter_list
            (append
              '((-4 . "<AND"))
              ;; объекты на текущем листе
              (list (cons 410 lo_name))
              ;; объекты на слоях группового фильтра
              '((-4 . "<OR"))
              (mapcar '(lambda (x)
                         (cons 8 x)
                       ) ;_ end lambda
                      (vl-remove nil (cadr b))
              ) ;_ end mapcar
              '((-4 . "OR>"))
              '((-4 . "<NOT") (-4 . "<AND") (0 . "VIEWPORT") (67 . 1) (-4 . "AND>") (-4 . "NOT>"))
              '((-4 . "AND>"))
            ) ;_ end list
     ) ;_ end setq

     (setq ss (ssget "_X" filter_list))

     (sssetfirst nil ss)
    )
  ) ;_ end cond

  (princ)
) ;_ end defun

Файл: TST.lsp

[Linkshunter]

Сообщение от name02 Файл: TST.lsp

Попробовал, на 2015г не видит фильтры слоев. Создал новый фильтр с именем ГРУППОВОЙ ФИЛЬТР1, попробовал в код добавить свои - не видит

Команда: TST
Группового фильтра слоев с именем "ГРУППОВОЙ ФИЛЬТР1" в чертеже нет!

----- добавлено через ~3 мин. -----

Сообщение от San-Miguel При этом чтобы не менять порядок слоев в части заморожен/разморожен (потом обратно настраивать долго и муторно)

сохраните текущую(или любую другую) конфигурацию слоев а потом восстанавливайте ее там где надо.

[name02]

Сообщение от Linkshunter Попробовал, на 2015г не видит фильтры слоев. Создал новый фильтр с именем ГРУППОВОЙ ФИЛЬТР1, попробовал в код добавить свои - не видит

Проверил у себя в Autocad 2022 - работает.
Ты точно работаешь с групповыми фильтрами, а не с фильтрами по свойствам? Программа работает только с групповыми фильтрами!

[Linkshunter]

Сообщение от name02 Проверил у себя в Autocad 2022 - работает. Ты точно работаешь с групповыми фильтрами, а не с фильтрами по свойствам? Программа работает только с групповыми фильтрами! Вложение 266258

да, спасибо, работает.