[MrBrown]

Здравствуйте!
Вынужден обратиться к форумчанам, так как не получается макросом (#6) менять часть в Мтекстах, выделенных рамкой.
В приложении простая исполнительная схема демонтажа системы канализации. Здесь диаметры чугунных труб указаны 100мм.
Другая исполнительная схема (монтажа) один-в-один, как и демонтаж, только диаметры труб ПВХ 110мм.
Помогите мне, пожалуйста, поменять "стадом" значения диаметров, оставив нетронутыми длины труб.
Спасибо.
p.s. В модели есть ещё другие схемы с такими же Мтекстами и другими диаметрами, поэтому должны меняться только те, которые я выделяю рамкой.

[Сергей812]

Offtop: MrBrown, подчищайте внешние ссылки в файле - там и название организации, и адрес объекта.. могли бы и штампы оставить с тем же успехом)

----- добавлено через ~22 мин. -----
хм, даже писал похожее в свое время

[MrBrown]

Сергей812, благодарю за offtop, весьма ценный урок. Всё удалил и обновил свой пост.
Разбираюсь с Вашим кодом. Надеюсь, что получится.

[MrBrown]

Нет, не получается. Не знаю, как запустить в работу.
А можно ли что-то поменять в приложенном макросе подсчёта длин определённого диаметра? Он ведь понимает и разделяет диаметр от длины трубопровода. И, если существующий макрос суммирует значения длин, то, изменив что-то в коде, можно с его помощью заменить и диаметры во всех выделенных Мтекстах, оставив длины неизменными. ИМХО.

[koMon]

MrBrown,
не, ну если в тексте присутствует диаметр %%С, то однократную замену в выбранных рамкой или ещё как мтекстах можно сделать так:

Код:

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

 
(defun c:multiple_mtext_diameter_replace (/ init)
	(if (null find_diameter) (setq find_diameter "100"))
	(if (null replace_with_diameter) (setq replace_with_diameter "110"))
	(setq init (initget 7) find_diameter (itoa (getint (strcat "\nВведите диаметр для замены <" find_diameter ">: ")))
	      init (initget 7) replace_with_diameter (itoa (getint (strcat "\nВведите заменяющий диаметр <" replace_with_diameter ">: ")))
	)
	(foreach mtext (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget (list '(0 . "mtext") (cons 1 (strcat "*%%C" find_diameter "*")))))))
		(if (vl-string-search (strcat "%%C" find_diameter) (cdr (setq mtext_value_group (assoc 1 (entget mtext)))))
			(entmod (subst (cons 1 (vl-string-subst (strcat "%%C" replace_with_diameter) (strcat "%%C" find_diameter) (cdr mtext_value_group)))
				       mtext_value_group
				       (entget mtext)
			        )
			)
	  	)
	)
	(princ)
)

[MrBrown]

koMon, Спасибо за участие, при вставке кода в ком. строку всё работает. Только замена - не однократная. Есть исполнительные схемы по ГВС, ХВС, где нужно диаметр, например 50, менять на 63, 25-й на 32-й ну и другие диаметры. Было бы удобно, если бы ком. строка приглашала указать:
- какой существующий диаметр
- на какой новый менять.
К сожалению, мои знания в LISP начинаются и заканчиваются на "Ctrl+C" - "Ctrl+V". Поэтому пока буду пользоваться Вашим макросом, клонируя его с разными значениями "itoa".

[MrBrown]

Кулик Алексей aka kpblc, Offtop: благодарю за перенос моей темы в соответствующую ветку форума

[koMon]

MrBrown, не вопрос). см. #5. я имел в виду однократную замену в мтексте. в смысле если в мтексте несколько диаметров для замены, то заменится только однократно первый встретившийся.

[MrBrown]

koMon, то, что "доктор прописал". Моя благодарность.