[Ingpro]

Команда "Найти", выбираю МТекст из двух строк, но в открывшемся окне остается только 1-я строка?
Это как-нибудь решается? AutoCAD 2015...

[baksconstructor]

Сообщение от Ingpro Это как-нибудь решается?

Попробуйте программой "АвтоЗаменаCAD" , там по моему многострочный переваривает.

[Ingpro]

Сообщение от baksconstructor Попробуйте программой "АвтоЗаменаCAD" , там по моему многострочный переваривает.

Если попытаться написать многострочный текст в графу "Заменить чем" после Enter остается только первая строка.
Например многострочный текст:
строка 1
строка 2
строка 3
записывается как строка 1

[Сергей812]

Может мой код и сработает... а что поле ввода "видит" только первую строку - это так контрол TextBox в диалоге замены настроен разработчиками как однострочное поле ввода, тут только если свой диалог писать

[Ingpro]

Сергей812, спасибо. Но AutoCAD выдаёт ошибку.
Команда: (ReplaceMTextExt (car (entsel "Выберите мультитекст:")) "Значение для замены" "Новое значение")
Выберите мультитекст:; ошибка: no function definition: REPLACEMTEXTEXT
Возможно я неправильно что-то делаю...
Сохраняю код из ссылки, как ReplaceMTextExt.dll, помещаю в папку Support,
загружаю через _NETLOAD...???...

[Сергей812]

Сообщение от Ingpro Возможно я неправильно что-то делаю... Сохраняю код из ссылки, как ReplaceMTextExt.dll, помещаю в папку Support, загружаю через _NETLOAD...???...

Естественно - код надо скомпилировать под соответствующую версию акада, как это делается - смотрите в инете.

[baksconstructor]

Сообщение от Ingpro Если попытаться написать многострочный текст в графу "Заменить чем" после Enter остается только первая строка.

Потому что нужно нажимать Альт + Интер, как и во всех программах.
А вообще по нормальному - просто из блокнота копипастом.

[Ingpro]

Сообщение от baksconstructor Потому что нужно нажимать Альт + Интер, как и во всех программах. А вообще по нормальному - просто из блокнота копипастом.

К сожалению в окне НАЙТИ - эти советы не работают, при вставке из блокнота из двух строк остается одна, на Альт + Интер нет никакой реакции...

[baksconstructor]

Сообщение от Ingpro К сожалению в окне НАЙТИ - эти советы не работают

Я с экселем перепутал, нужно Шифт+Интер. Могли и попробовать варианты сами.

[Ingpro]

Сообщение от baksconstructor Я с экселем перепутал, нужно Шифт+Интер.

Это только для проги "АвтоЗаменаCAD", для стандартной НАЙТИ не работает...

[Ingpro]

Сообщение от Ingpro К сожалению в окне НАЙТИ - эти советы не работают, при вставке из блокнота из двух строк остается одна

Окольными путями удалось решить задачу по замене Мтекстов в несколько строк на другой Мтекст.
https://forum.dwg.ru/showthread.php?...24#post2082024

Код:

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

 ;; Спасибо, koMon #4770 ☆ 10.11.2024
;; https://forum.dwg.ru/showthread.php?p=2082024#post2082024
;; Лисп выделяет мтексты (в том числе и многострочные) по указанному мтексту-образцу, потом делайте с ними, что хотите...удаляйте...заменяйте...
  (defun c:Sel-mtxt ( )
(setq pattern (getpropertyvalue (car (entsel "\nОбразец МТекста для фильтрации: ")) "text")
      mtext_filtered_sset (ssadd)
)
(if (setq mtext_sset (ssget '((0 . "mtext"))))
  (sssetfirst nil
	  (foreach mtext  
		  (vl-remove-if-not '(lambda (mtext) (vl-string-search pattern (getpropertyvalue mtext "text")))
		    		     (vl-remove-if 'listp (mapcar 'cadr (ssnamex mtext_sset)))
		  )
	    	  (ssadd mtext mtext_filtered_sset)
	  )
  )
)
 (princ)
 )

Можно этот лисп использовать в связке с replace.lsp. Это отличная альтернатива команде Найти (и Заменить),
которая не поддерживаеет многострочные МТексты.
Лисп для замены во вложении.