[Hofrin]

Здравствуйте. Проблема заключается в том, что у выносок, которым задали цвет в редакторе, этот самый цвет невозможно поменять через свойства. Я знаю, что его можно поменять вручную, но что делать если таких выносок несколько десятков или сотен? Хотелось-бы оптимизировать данный процесс. Может кто знает Lisp или способ сбросить/изменить цвет всех выносок на чертеже? Буду признателен если поможете.

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

Поиск по форуму - StripMText. Скорее всего, поможет.

[Ingpro]

https://forum.dwg.ru/showthread.php?t=167952
оптом текст/мтекст (в том числе с принудительной колоризацией) в цвет bylayer можно этим, автор koMon

Код:

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

 (defun c:de_color_m_text_bylayer (/ mtext_list mtext_string coloring_found color_pos)
	(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
	(setq mtext_list (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget ":L" '((0 . "*text")))))))
	(foreach mtext mtext_list 
		(setq mtext_string (cdr (assoc 1 (entget mtext)))
			  coloring_found nil
		)
		(while (or 
					(setq color_pos (vl-string-search "\c" mtext_string))
					(setq color_pos (vl-string-search "\C" mtext_string))
			   )
					(setq mtext_string (strcat (substr mtext_string 1 (1- color_pos))
											   (substr mtext_string (+ 2 (vl-string-search ";" mtext_string color_pos)))
									   )
					      coloring_found (if (null coloring_found) t) 
					)
		)
		(if coloring_found 
			(vla-put-textstring (vlax-ename->vla-object mtext) mtext_string)
		)
		(if (/= 256 (vla-get-color (vlax-ename->vla-object mtext))) (vla-put-color (vlax-ename->vla-object mtext) 256))  
	)
	(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
	(princ)
)

Может, кто-нибудь из профи посоветует, как добавить в выбор лиспа и мвыноски...
Если StripMtext не поможет. Как вариант (плохой, конечно), мвыноски разнести, а текст "послою" с помощью de_color_m_text_bylayer
Но StripMtext v5-0c.lsp хорошо справляется с задачей

[Hofrin]

Сообщение от Кулик Алексей aka kpblc Поиск по форуму - StripMText. Скорее всего, поможет.

К сожалению не помагает

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

Сообщение от Ingpro https://forum.dwg.ru/showthread.php?t=167952 оптом текст/мтекст (в том числе с принудительной колоризацией) в цвет bylayer можно этим, автор koMon Код: [Выделить все] (defun c:de_color_m_text_bylayer (/ mtext_list mtext_string coloring_found color_pos) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (setq mtext_list (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget ":L" '((0 . "*text"))))))) (foreach mtext mtext_list (setq mtext_string (cdr (assoc 1 (entget mtext))) coloring_found nil ) (while (or (setq color_pos (vl-string-search "\c" mtext_string)) (setq color_pos (vl-string-search "\C" mtext_string)) ) (setq mtext_string (strcat (substr mtext_string 1 (1- color_pos)) (substr mtext_string (+ 2 (vl-string-search ";" mtext_string color_pos))) ) coloring_found (if (null coloring_found) t) ) ) (if coloring_found (vla-put-textstring (vlax-ename->vla-object mtext) mtext_string) ) (if (/= 256 (vla-get-color (vlax-ename->vla-object mtext))) (vla-put-color (vlax-ename->vla-object mtext) 256)) ) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ) ) Может, кто-нибудь из профи посоветует, как добавить в выбор лиспа и мвыноски... Если StripMtext не поможет. Как вариант (плохой, конечно), мвыноски разнести, а текст "послою" с помощью de_color_m_text_bylayer Но StripMtext v5-0c.lsp хорошо справляется с задачей

StripMtext v5-0c.lsp не помогает, а код выделяет текст, а на выноски

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

Сообщение от Hofrin К сожалению не помагает

Ты б образец такого файла показал - что изначально, и к какому виду приводить. Может, кто-то чего дельного и подскажет.

[Ingpro]

Сообщение от Hofrin StripMtext v5-0c.lsp не помогает, а код выделяет текст, а не выноски

Если не собираетесь мвыноски редактировать, а так, чтобы лучше смотрелось, мвыноски взорвите и получившийся мтекст перекрасьте с помощью de_color_m_text_bylayer...
А лучше выложите dwg с мвыносками, посмотрим, что можно сделать...

[affandy]

в ModPlus есть такая функция (в бесплатной версии работает).