| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Замена текстового стиля

LISP. Замена текстового стиля

Ответ
Поиск в этой теме
Непрочитано 18.09.2008, 17:53 15 | 1
LISP. Замена текстового стиля
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,990

По мотивам Замена текстового стиля
Команды 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


Описание
Цитата:
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 или гугл

Вложения
Тип файла: lsp StripMtext v5-0c.lsp (60.1 Кб, 22806 просмотров)
Тип файла: lsp change text styles (cts) 2.0c.LSP (44.3 Кб, 7085 просмотров)

__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 03.11.2023 в 14:28. Причина: см пост #290
Просмотров: 583740
 
Непрочитано 29.11.2012, 14:40
#141
Shoorup


 
Регистрация: 16.09.2006
Минск
Сообщений: 1,587
<phrase 1= Отправить сообщение для Shoorup с помощью Skype™


А как бы еще сделать поправку на определенное значение после замены текстового стиля?
Подробнее:
например имеется "стиль1" и вставленные в чертеж тексты с разными коэффициентами сжатия (КСЖ). 0.8 ; 0.765 ; 0.95 и т.д. естественно и с разной высотой текста и др. свойствами.
и имеется "стиль2" под который нужно все перегнать, НО вдобавок ко всем КСЖ прибавить поправку 0.2. Т.е. был текст с КСЖ 0.8 стал 1.0. был 0.765 стал 0.965 и т.д.
__________________
Поезд который устал от ржавого здравомыслия рельсов...
Shoorup вне форума  
 
Непрочитано 23.05.2013, 10:33
#142
sertor

Геодезист
 
Регистрация: 23.05.2012
Ухта
Сообщений: 1,374


Доброго времени суток. Уважаемые форумчане, возник вопрос такого плана. Прислан чертеж от субподрядчика. При использовании вышеописанной программы выполнил очистку форматирования Мтекста и замену текстового стиля. Но, как оказалось, полностью решить вопрос не удалось. В чертеже остались символы "№" с начертанием стиля автора чертежа. Может быть в используемом шрифте отсутствует "№"? Но тогда как сделать замену этой части текста? Программа AutoCAD Civil3D 2012 SP2. Спасибо.
Миниатюры
Нажмите на изображение для увеличения
Название: Скрин1.png
Просмотров: 210
Размер:	4.9 Кб
ID:	103900  
Вложения
Тип файла: dwg
DWG 2007
Чертеж1.dwg (340.9 Кб, 5504 просмотров)
__________________
Как-то так.
sertor вне форума  
 
Непрочитано 27.05.2013, 05:58
#143
Киренга


 
Регистрация: 07.12.2012
Сообщений: 5


Подскажите, пожалуйста, а как выполнить задачу, решаемую командой TSUP, применимо к таблицам?
Киренга вне форума  
 
Непрочитано 29.05.2013, 13:02
#144
sertor

Геодезист
 
Регистрация: 23.05.2012
Ухта
Сообщений: 1,374


Ну и в продолжение #142. Возможно ли откорректировать программу (внести дополнение) так, чтобы обрабатывались только однострочные тексты (поскольку некоторые многострочные "ломаются")? И еще такой момент. В предыдущих постах поднимался вопрос об автоматической загрузке стиля текста при открытии "чужого" чертежа. Так вот, к чему я веду. Может быть есть такая возможность заложить в самой программе указание стиля текста и шрифта по умолчанию и замену непосредственно при открытии чертежа "со стороны"? (это конечно в идеале). В нашей организации, (я думаю и не только) используют один стиль текста с одной высотой и начертанием (в пространстве модели). Спасибо.
__________________
Как-то так.
sertor вне форума  
 
Автор темы   Непрочитано 31.05.2013, 12:47
#145
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Нужно подумать. Пока у меня нет времени. Где-то числа 17.06 планирую, что появится немного больше свободного времени, гляну что можно сделать
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 18.06.2013, 23:10
1 | #146
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от sertor Посмотреть сообщение
При использовании вышеописанной программы выполнил очистку форматирования Мтекста и замену текстового стиля. Но, как оказалось, полностью решить вопрос не удалось. В чертеже остались символы "№" с начертанием стиля автора чертежа. Может быть в используемом шрифте отсутствует "№"?
В шрифте simplex.shx отсутствует символ №.
Цитата:
Сообщение от sertor Посмотреть сообщение
Но тогда как сделать замену этой части текста?
1. Использовать шрифт с символом №
2. перед очисткой форматирования и заменой текстового стиля набрать в командной строке _find Заменить № на N
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.08.2013, 16:46
#147
mechos

Ведущий архитектор
 
Регистрация: 17.01.2013
Москва
Сообщений: 31


Заголовок окна во всех командах читается некорректно (видимо проблема с кодировкой)

Это Windows 8 rus (русифицированная), чистая, без каких-либо надстроек и твикеров, AutoCAD 2013 x64 английский, так же абсолютно чистый.

Что там написано разобрался, заглянув в lsp файл. Просто довожу до сведения обнаруженную неприятность
Изображения
Тип файла: jpg CTS_Window.jpg (95.8 Кб, 1176 просмотров)

Последний раз редактировалось mechos, 14.08.2013 в 17:11.
mechos вне форума  
 
Непрочитано 14.08.2013, 16:58
#148
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


mechos, AutoCAD, поди, английский?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 14.08.2013, 17:10
#149
mechos

Ведущий архитектор
 
Регистрация: 17.01.2013
Москва
Сообщений: 31


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
mechos, AutoCAD, поди, английский?
Да ! Это нормально для него ? До этого работал со сторонними скриптами только на английском, соответственно, такая проблема возникла первый раз.
mechos вне форума  
 
Автор темы   Непрочитано 14.08.2013, 17:56
#150
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от mechos Посмотреть сообщение
Да ! Это нормально для него ?
AutoCad 2013 En, проблемы с кодировкой в программах
Похоже что пока нормально, к сожалению.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 30.08.2013, 01:07
#151
alldmc


 
Регистрация: 02.07.2006
Ростов
Сообщений: 276


Выполнил форматирование текста, но некоторый текст остался жирным, а некоторый отформатировался нормально, хотя стиль у всех одинаковым стал. Как убрать жирный текст?
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.png
Просмотров: 245
Размер:	49.5 Кб
ID:	110816  
alldmc вне форума  
 
Непрочитано 30.08.2013, 01:26
#152
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,989


alldmc, координату Z у жирных текстов обнули
Nike вне форума  
 
Непрочитано 01.10.2013, 15:41
#153
lemurz9


 
Регистрация: 17.04.2012
Нижний Новгород
Сообщений: 23


Добрый день!
Подскажите, пожалуйста, возник вопрос по этой программке:
воспользовалась командой _TSUP, предварительно задав для своего тестового стиля наклон 15 и коэф-т сжатия 0,8. В результате, угол наклона применился ко всем текстовым объектам, а сжатие нет. В чем может быть дело?
Если открыть этот мтекст и просто выбрать тот же самый текстовый стиль, то сжатие срабатывает. Но не открывать же их все. Файлик прилагается.
Вложения
Тип файла: dwg
DWG 2007
Чертеж1.dwg (1.01 Мб, 4542 просмотров)

Последний раз редактировалось lemurz9, 01.10.2013 в 16:18.
lemurz9 вне форума  
 
Непрочитано 18.11.2013, 11:42
#154
pentaone


 
Регистрация: 10.05.2013
Сообщений: 41


Добрый день, скажите а данная программа не заменяет текстовый стиль у мультивыноски?
pentaone вне форума  
 
Автор темы   Непрочитано 21.11.2013, 15:02
#155
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от pentaone Посмотреть сообщение
Добрый день, скажите а данная программа не заменяет текстовый стиль у мультивыноски?
Уже заменяет. Обновил до версии 1.7 Правда пока только в командах CTS и CTSU
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 25.11.2013, 17:17
#156
zvyagaaa


 
Регистрация: 11.08.2011
Сообщений: 41


А можно сделать, чтобы и в настройках размерных стилей тоже менялся текстовый стиль?
zvyagaaa вне форума  
 
Непрочитано 13.12.2013, 19:54
#157
kifa


 
Регистрация: 03.12.2009
Сообщений: 1,847


Добрый день! А форматирование в многострочных атрибутах, как я понимаю, это лисп не обрабатывает?
kifa вне форума  
 
Автор темы   Непрочитано 16.12.2013, 16:48
#158
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


kifa, Поподробнее. Какая именно команда. Желательно приложить dwg c примером
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.12.2013, 18:38
#159
kifa


 
Регистрация: 03.12.2009
Сообщений: 1,847


TSUP вот это командой пробовал.
http://forum.dwg.ru/showpost.php?p=1...&postcount=211 вот в этой теме боролся с глюком.
в итоге заменил шрифт и вычистил все руками. Почему то не убрать форматирование было с помощью команды
kifa вне форума  
 
Непрочитано 07.07.2014, 09:18
#160
Alexander88


 
Регистрация: 24.10.2012
Сообщений: 65


CTS -CTSU - TSUP - purge - CTS -CTSU - TSUP - purge - как было 30 стилей, так и осталось...Как они не удалялись, так и не удаляются....
Alexander88 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Замена текстового стиля

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Замена текстого стиля Shoorup Программирование 43 19.05.2015 09:22
Есть ли замена текстового редактора MtmdEdit 2.4.0 beta for AutoCAD 2007 dextron3 Программирование 16 23.06.2008 20:54
Библиотека доступа к содержимому растров из LISP - существуе kp+ LISP 6 16.10.2007 21:45
загрузка DOS прог через LISP Gaa LISP 15 12.08.2005 19:19
Настройка "Стандартного" текстового стиля. Кулик Алексей aka kpblc AutoCAD 6 23.10.2003 22:49