[VVA]

По мотивам Замена текстового стиля
Команды CTS и CTSU подверглись косметическим улучшением.
Добавлена команда TSUP - изменение начертания текстов, атрибутов на основе установок выбранного стиля (начертание, сжатие, угол наклона).
Использована функция ru-textstyle-update любезно предоставленная ShaggyDoc
Описание команд:
Как это работает - см пост #12
CTS - замена текстовых стилей у всех объектов на выбранный
CTSU - замена текстовых стилей у всех объектов на выбранный с очисткой форматирования многострочных текстов
TSUP - Для выбранного стиля изменяется начертания всех существующих ТЕКСТОВ, АТРИБУТОВ во ВСЕХ примитивах, включая блоки в соответствии с установками стиля (начертание, сжатие, угол наклона). Сначала с помощью команды _style задаем необходимые установки стиля (шрифт, наклон, сжатие/растяжение). Затем командой TSUP для всех текстов и атрибутов, вычерченных этим стилем, устанавливается наклон, сжатие/растяжение такой же как и в определении стиля.
UNF-MTEXT - Убрать форматирование мтекста
Допустим у Вас текст, вычерченный стилем Стиль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 Отдельная команда для удаления форматирования мтекста
23.12.2011 UNF-MTEXT (vla-SetCellState item row col acCellStateNone) Снятие блокировки ячейки
21.11.2013 Добавлена обработка MLEADER. Команда CTS
20.04.2016 Добавлена функция CTS:GET-TEXTSTRING (как замена vla-get-textstring. Т.к. неверно возвращает строку при наличии юникод символов)
http://forums.autodesk.com/t5/visual...s/td-p/4365165
26.12.2017 Добавлена для таблиц vla-put-RegenerateTableSuppressed
03.06.2019 Обновление артибутов блоков, включенных в другие блоки
24.12.2021 Обновлена ф-ция mip_MTEXT_Unformat, обработка форматирования //PI
03.04.2024 Изменения в функции CTS (формулы в таблицах остаются) https://forum.dwg.ru/showthread.php?...77#post2065477 post #306

Описание

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
В версии 1.6 добавлено снятие блокировки ячейки таблицы при установке связи Datalink
Важно!!! Начиная с 2021 Автокада может не срабатывать команда stripmtext. Решение - установить системную переменную LISPSYS=0
См пост #281 и #282 или гугл

[PsixVK]

Сообщение от Рyslan Хотел принкт скрин сделать чтоб свойства видны были, чот не работает. Вот пдф

хз
очень похоже на это
цитата

[rebus]

Файл "change text styles (cts) 1.9.LSP", строка 339, похоже скобку не там поставили, где хотели:

Код:

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

 (if (= (strcase X# "C"))

[divanci]

не работает программа в этом файле (см. вложение) И вообще не понятно почему выбирать нужно игнорируемые стили, что если стилей под сотню а менять нужно всего один.

[VVA]

Сообщение от divanci не работает программа в этом файле (см. вложение)

У меня работает (Автокад 2013)

Сообщение от divanci И вообще не понятно почему выбирать нужно игнорируемые стили

А что с ними еще можно сделать? Если таковых нет жми "отмена". Написано в заголовке окна

[divanci]

Если я хочу поменять один на другой, что мне выбирать, если всего 10 стилей?

[VVA]

CTS - замена текстовых стилей у всех объектов на выбранный

Здесь решалась задача по замене всех текстовых стилей на на выбранный, в итоге должен остаться 1 стиль
Потом попросили добавить возможность делать исключение для некоторых постоянно заданных стилей
Если хочешь из 10 стилей сделать 9, то 8 добавляй в исключение

[divanci]

А можно добавить возможность выбирать переносить все кроме выбранных или переносить только выбранные и опцию отмены форматирования вместо другой команды?

[Пионер]

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

[Composter]

У меня почему то в 2019 автокаде smt не делает ничего.

[eing]

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

Вопросы
1) Какая глубина вхождения в блоки планировалась?
2) Как её увеличить?

[VVA]

eing,

Сообщение от eing После применения команд, обнаружил объекты на которых они не сработали

Каких команд?

Сообщение от eing Какая глубина вхождения в блоки планировалась?

Полная

(defun ChangeAllTextObjectsStyle (Doc StyName Ignore_Style_List Unformat / tempObjType IsLo ColCnt RowCnt) (vlax-for Blk (vla-get-Blocks Doc)

Идет проход по всем определениям блоков. Поэтому не важно какой блок куда и с какой глубиной вложен
Выложи dwg с проблемным блоком

[eing]

Файл приложен к сообщению.

Технология работ:
1)Чертежи создаются автоматизированно в Autocad 2000.
2)Чертежи дорабатываются в Autocad 2008. На этом этапе требуется произвести нормализацию шрифтов.

Порядок теста:
1)Формат - текстовые стили - редактирую угол наклона текстового стиля Gost 2.304.
2)CTSU. отмена. Gost 2.304. ok.
3)TSUP. yes. Gost 2.304. ok.
90% шрифтов изменено, 10% - нет. Если взорвать блоки, на которые не повлияло, и повторить - все шрифты будут изменены.

[VVA]

eing, Я не нашел таких блоков. Можешь оставить пару блоков, на которые не влияет или как-то их выделить в чертеже.

[eing]

Оставил в файле только проблемные блоки, в которых есть блоки, в которых не весь текст изменился.

При проверке я устанавливал угол наклона текста - 75 градусов. Соответственно измененный текст - не читаемый. Читаемый текст - на котором не сработало.

[eing]

Надеюсь ни чего не нарушаю - даю ссылку на видео где видно срабатывание не на всех объектах. 14Мб = 1минута.
https://drive.google.com/file/d/1WYN...ew?usp=sharing

[Alexorno]

Доброе время суток!
Уважаемые, AutoCAD 2019 и AutoCAD 2020 - не работает в выносках и таблицах. Ниже AutoCAD нет.
В чём может быть проблема?

[Tyhig]

VVA, это уже безразлично, но всё равно большое спасибо.
Или вы ещё живы ?

[VVA]

Tyhig, Жив
eing, Пропустил твое сообщение. Проблема была в атрибутах блоков, которые включены в другие блоки. Обновил до версии 2.0
Alexorno, Пока не имею 2019 и 2020. Скачаю, попробую

[stuff]

Спасибо
Помогла комманда - TSUP

[Wince]

С чем может быть связано, что команда «UNF-MTEXT» удаляет пробелы между словами? Можно ли это как-то решить?
Данная проблема имеется только с одним пакетом чертежей, пробовал в других-все работает как заявлено автором.
Заранее спасибо за ответ.