[VVA]

По мотивам Замена текстого стиля
Команды CTS и CTSU подверглисть косметическим улучшением.
Добавлена команда TSUP - изменение начертания текстов, атрибутов на основе установок выбранного стиля (начертание, сжатие, угол наклона).
Использована функция ru-textstyle-update любезно предоставленная ShaggyDoc
Описание команд:
CTS - замена текстовых стилей у всех объектов на выбранный
CTSU - замена текстовых стилей у всех объектов на выбранный с очисткой форматирования многострочных текстов
TSUP - Для выбранного стиля изменяется начертания всех существующих ТЕКСТОВ, АТРИБУТОВ во ВСЕХ примитивах, включая блоки в соответствии с установками стиля (начертание, сжатие, угол наклона). Сначала с помощью команды _style задаем необходимые установки стиля (шрифт, наклон, сжатие/растяжение). Затем командой TSUP для всех текстов и атрибутов, вычерченных этим стилем, устанавливается наклон, сжатие/растяжение такой же как и в определении стиля.
Допустим у Вас текст, вычерченный стилем Стиль1 с углом наклона 15 градусов. Вызываем команду _style и выставляем в стиле Стиль1 угол 0. В тексте угол остался прежним 15 градусов. Чтобы синхронизировать параметры текста с параметрами стиля (наклон, сжатие/растяжение) и вызываем команду TSUP.

Возможный вариант макроса для пунктов 3-5

Код:

(if (null C:CTS)(load "change text styles (cts)"));CTS;(cts:layer-status-save);(ru-textstyle-update "*");_.PURGE;

***Изменения
22.10.2008 Добавлена обработка форматирования МТЕКСТОВ для Автокада с 2008 версии (выравнивание влево, вправо, посередине, по ширине, распределенное)
02.12.2008 Изменена ф-ция cts:msg-yes в соответствии с постом #46 Диалог строится не VBA, а лиспом (dcl)
26.02.2009 Версия 1.3 Исключена обработка блоков внешних ссылок (Спасибо Sleekka). Добавлен выбор игнорируемых стилей
16.03.2009 В версии 1.3 CTSU исправлена ошибка с разным количеством аргументов
05.02.2010 Добавлена обработка дополнительного форматирования в ф-цию mip_MTEXT_Unformat (см. сообщение wetr)
09.03.2010 В версии 1.4 в TSUP исправлена ошибка обработки примитивов только на текущем листе
03.06.2010 Отдельная команда для удаления форматирования мтекста

Описание

DESCRIPTION StripMtext v5.0b Copyright© Steve Doman and Joe Burke 2010 StripMtext is an AutoLISP program that runs inside AutoCAD 2000 or above and enables the AutoCAD user to quickly remove unwanted Mtext formatting embedded in Mtext, Mleaders, Dimensions, Tables, and Multiline Attributes objects.

Оригинальный пост (требуется регистрация)

В версии 1.5 добавлена отдельная команда UNF-MTEXT для удаления форматирования MTEXTa

[wetr]

VVA, TSUP обрабатывает примитывы только на текущем листе. Приходится запускать ее на каждом

[VVA]

wetr, Обновил до версии 1.4

[wetr]

VVA, спасибо!

[Voltos]

VVA, все просто, файл получен из другого источника, существующий Мтекст частично правился. Скажем А512 изменили на А552, и после смены стиля получаем А552 тость правленная часть текста не форматируется в группе, только в редакторе Мтекста повторным применением того же стиля. Вот так.

[VVA]

Пример ввиде dwg в студию

[Voltos]

StripMtext v5-0b.lsp работает, спасибо, архиполезная весчь!

[VVA]

Voltos, Что-то я не понял в чем проблема. Для смены форматирования MTEXT'а нужно применять не CTS, а CTSU

[Voltos]

Спасибо, уже разобрался

[Chapter]

Вот чертеж. Нужно заменить стиль STANDARD на Основной 2.5-1, который уже добавлен в чертеж. Это у меня не получается сделать CTS, CTSU.

Это проблема чертежа? или как то можно подправить код? Помогите пожалуйста.

Если перевести из STANDARD в аннотатив, а потом из аннотатив в Основной, то нормально. А если из STANDARD в Основной то что то не получается вот.

[acyxou]

после выполнения команды CTSU на первый взгляд все вроде сработало, но если выбрать любую ячейку таблицы, то все форматирование в ячейках снова становится прежним, т.е. таким, каким было до выполнения команды CTSU. С программой StripMText такого замечено не было.

[VVA]

acyxou, файл покажи

[acyxou]

Обычный файл, созданный через "Open with no template - Metric".