[Sege]

Как можно найти текст на определенном слое? Стандартный поиск/замена текста производит это по всем слоям.
Вариант отключить ненужные слои не всегда представляется возможным

[Кулик Алексей aka kpblc]

Если искать именно текст, то _.qselect можно попробовать. Там опций много, может, чего и найдется полезного

[Sege]

Сообщение от Кулик Алексей aka kpblc Если искать именно текст, то _.qselect можно попробовать. Там опций много, может, чего и найдется полезного

Не всегда ясно каким примитивом может быть требуемый для поиска текст: MTEXT или просто TEXT. В команде _.qselect нужно указывать тип примитива

[kp+]

Сообщение от Sege Как можно найти текст на определенном слое? Стандартный поиск/замена текста производит это по всем слоям. Вариант отключить ненужные слои не всегда представляется возможным

Если гора не идет к Магомету, то Магомет идет к горе.
Можно с помощью qselect или 'filter выбрать все объекты на нужных слоях и уже по ним запустить поиск текста.

[Sege]

Сообщение от kp+ Если гора не идет к Магомету, то Магомет идет к горе. Можно с помощью qselect или 'filter выбрать все объекты на нужных слоях и уже по ним запустить поиск текста.

Да, как вариант. Однако требует 2 итерации. Да и qselect надо указывать конкретный тип примитива: текст или мтекст. В моей ситуации требуемое значение текста может быть как text, так и mtext

Хочется именно функционал стандартной функции FIND, но с добавлением в этом же диалоге режима выбора слоя.

Понял, стандартными средствами скорее всего не получится.

[LenidSN]

"Понял, стандартными средствами скорее всего не получится"

Команда FILTER именно "стандартное средство"

[Автон]

Можно лиспом. Взял отсюда https://www.caduser.ru/forum/topic21233.html

Код:

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

 (defun c:slayer (/ obj_in_lay lay selayer)
  (setq obj_in_lay (entget(car(entsel "\n Определение слоя по объекту:"))))
  (setq lay (cdr (assoc 8 obj_in_lay)))
  (setq selayer (ssget "_x" (list (cons 8 lay))))
  (sssetfirst selayer selayer)
  (command "_find")
);defun

[Сергей812]

Набросал по быстрому, чтобы совсем лисп не забывать)

Код:

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

 
(defun c:QST ( / lSP lLayer lLOs)
  (setq lSP (entsel "\nSelect any object on need layer"))
  (if lSP
    (progn
	(sssetfirst nil nil) 
      	(setq lLayer (cdr (assoc 8 (entget (car lSP)))))
      	(setq lLOs (ssget "_X" (list (cons 0 "*TEXT")(cons 8 lLayer))))
	(if lLOs
	  (progn
            (princ (strcat "\nCount found texts = " (itoa (sslength lLOs))))
	    (sssetfirst nil lLOs) 
            (command "_find")
	  )
	  (princ "\nNo text found!")
	)
    )
    (princ "\nThe object is not selected!")
  )
  (princ)
)

сообщения на английском - как как редактор лиспа не "пролечен" по русской кодировке и лень это делать)

[Sege]

Всем спасибо! Лиспом получилось изящно и то что нужно!

[skkkk]

Сообщение от Сергей812 Код: [Выделить все] 07 (setq lLOs (ssget "_X" (list (cons 0 "*TEXT")(cons 8 lLayer))))

Сергей812, может, стоит в фильтр ssget добавить мультивыноски с таблицами?

[Сергей812]

Сообщение от skkkk стоит в фильтр ssget добавить мультивыноски с таблицами?

Сообщение от Sege Не всегда ясно каким примитивом может быть требуемый для поиска текст: MTEXT или просто TEXT

не входит в исходные данные)