[VVA]

По мотивам Замена текстого стиля
Команды CTS и CTSU подверглисть косметическим улучшением.
Добавлена команда TSUP - изменение начертания текстов, атрибутов на основе установок выбранного стиля (начертание, сжатие, угол наклона).
Использована функция ru-textstyle-update любезно предоставленная ShaggyDoc
Описание команд:
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

Описание

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

[dextron3]

VVA, поясните на видеоролике для чего нужно выравнивание если выполняется все по стилю с теми настройками текста которые он имел до использования макроса

[VVA]

Выравнивание - это просто дополнительные коды форматирования, которые появились в 2008 Автокаде. И их нужно обрабатывать, что и было добавлено в ф-цию, снимающую форматирование.

[getr]

Что то нехочет работать TSUP..автокад выдает следующее-

Command: TSUP
_vbastmt
Expression: ThisDrawing.SetVariable "USERI1", MsgBox ("
Производится изменение начертания всех существующих
ТЕКСТОВ, АТРИБУТОВ
во ВСЕХ примитивах, включая блоки,
выбранного стиля!

Устанавливается по определению стиля
начертание, сжатие, угол наклона
Пользоваться осторожно!
Будем делать?",4,"ИЗМЕНЕНИЕ СТИЛЕЙ!!!!")
Syntax Error

Работаю на Автокад 2005(eng).

[Builder_Drew]

Коллеги, имеется ли возможность деформатирования не всех текстовых стилей? то есть делать исключение для некоторых постоянно заданных стилей и не трогать их?

[VVA]

Имеется, но нужно править код

[getr]

Так что же там за Syntax Error такой,может кто-нибудь прояснить ситуацию?

[VVA]

getr, Потерпи немного, разгребусь, переделаю на dcl окно.
Пока как временная замена TSUP

Код:

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

(defun C:TSUP1 ( / *error* ret )
  (defun *error* (msg)(princ msg)(cts:layer-status-restore)(princ))
  (cts:layer-status-save)
  (initget "Да Нет Yes No _ Yes No Yes No")
  (setq ret (getkword "\nБудем обновлять? [Да/Нет] <Да>:"))
  (if (or (null ret)(= ret "Yes"))
  (progn
    (foreach style (_DWGRU-GET-USER-DCL (if (= (getvar "DWGCODEPAGE") "ANSI_1251") "Выберите стиль" "Select style") (vl-remove "" (ACAD_STRLSORT(tablelist "STYLE"))) t)
      (ru-textstyle-update style)
       ) ;_ end of foreach
    )
  )
  (cts:layer-status-restore)
  (princ)
  )

Можешь добавить эту команду в лисп из#1 и пока вызывать ее. Запрос будет идти в командной строке.

[getr]

Хорошо,подождем...просто вопрос как то висел в воздухе.

[VVA]

Сообщение от getr Хорошо,подождем...просто вопрос как то висел в воздухе.

Еще ждешь? Обновил #1

[getr]

Ага ...жду,пока работаю по варианту как ты советовал выше.
После запуска обновленного лиспа автокад выдал-
no function definition: VECTOR_LINE
Опять незадача...

[VVA]

getr, Вечная проблема с библиотечными функциями. Исправил #1

[getr]

А вот теперь все океюшки...Спасибо.

[Volodich]

Странно, а у меня вылезает такая вот ошибка:

Команда: (ru-textstyle-update "*") Ждите, привожу стиль '*' к определению... ; ошибка: неверный тип аргумента: lentityp nil

И со стилем ничего не делается...

Может быть потому что автокад 2006 рус?

[VVA]

Volodich, Выложи или скинь файл на почту. Со стилем в ru-textstyle-update ничего делаться и не будет.Тексты будут приводиться к установкам стиля. Почитай про TSUP и чуть ниже в #1

[dextron3]

VVA, А существует лисп который Мульти тексты превращает в обычные тексты?

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

Ага. _explode называется.

[dextron3]

Кулик Алексей aka kpblc, это опасно можно взорвать лишнего, я вот подумал, может в этот лисп интегрировать опцию такую, чтобы работала только с м-текстами, опционально, а то существуют люди которые до сих пор пользуются м-текстами

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

Ага, а _qselect придуман просто так, получается?

[dextron3]

Кулик Алексей aka kpblc, так когда взрываешь м-тексты ведут себя не адекватно, утолщаются расширяются, глаз до глаз нужен...

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

А что ж ты хочешь-то, для принудительно сформатированного текста такое и будет!