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

Вернуться   Форум 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 Кб, 22811 просмотров)
Тип файла: lsp change text styles (cts) 2.0c.LSP (44.3 Кб, 7092 просмотров)

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

Последний раз редактировалось VVA, 03.11.2023 в 14:28. Причина: см пост #290
Просмотров: 583890
 
Непрочитано 19.01.2021, 14:28
#281
farookh1


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


Почему-то в 2021 автокаде не сбрасывает stripmtext. В 2019 работает нормально, а в 2021 вроде окно появляется, но результата нет
farookh1 вне форума  
 
Непрочитано 01.03.2021, 11:28
2 | #282
farookh1


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


Нашел решение: LISPSYS=0

Последний раз редактировалось farookh1, 03.03.2021 в 13:51.
farookh1 вне форума  
 
Непрочитано 31.05.2021, 12:11
#283
RuslanK


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


Огромное спасибо автору лиспа. Очень помог в работе.
RuslanK вне форума  
 
Непрочитано 31.05.2021, 14:30
#284
posetitel


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


Цитата:
Сообщение от farookh1 Посмотреть сообщение
Нашел решение: LISPSYS=0
Это что за команда? Где такое нужно указать?
posetitel вне форума  
 
Непрочитано 31.05.2021, 15:12
#285
Кулик Алексей aka kpblc
Moderator

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


Это не команда, а системная переменная. Доступна начиная с ACAD2021. Я у себя на сайтике про нее разгонял в свое время.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 15.06.2021, 16:14
#286
Des501(К)


 
Регистрация: 01.03.2019
Одесса
Сообщений: 2
Отправить сообщение для Des501(К) с помощью Skype™


А можно ли как-то выполнить команду CTSU и TSUP без диалоговых окон, а просто передав в команду название нужного стиля?
Есть масса чертежей, которые нужно "причесать". Я сделал кнопки, удобно и работает шикарно. Но каждый раз выбирать в меню просто долго. Я бы сделал кнопочки на конкретные стили (их пару штук всего) и очень быстро бы обработал пачку чертежей.
Des501(К) вне форума  
 
Непрочитано 23.12.2021, 21:53
#287
NewNeo


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


Цитата:
Сообщение от VVA Посмотреть сообщение
Глюкус обыкновениус
Обновил до версии 2.0a (кое-что было не учтено в функции, убирающей форматирование мтекста)
Действуешь правильно по п.5
Уважаемый автор! Приложение замечательное, спасибо огромное! Пользуюсь уже долгое время, но недавно столкнулся с такой же проблемой, попробовал новую версию (2.0а), помогло, но сейчас еще раз выскакивают эти служебные символы даже при использовании версии 2.0а, в чем может быть проблема? Файл с примером проблемного текста прикладываю.
Вложения
Тип файла: dwg
DWG 2018
Чертеж2.dwg (439.4 Кб, 37 просмотров)
NewNeo вне форума  
 
Автор темы   Непрочитано 24.12.2021, 15:56
1 | #288
VVA

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


Цитата:
Сообщение от NewNeo Посмотреть сообщение
но сейчас еще раз выскакивают эти служебные символы даже при использовании версии 2.0а
Обновил до версии change text styles (cts) 2.0b.LSP. Не было учтено форматирование
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 24.12.2021, 16:15
#289
NewNeo


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


Цитата:
Сообщение от VVA Посмотреть сообщение
Обновил до версии change text styles (cts) 2.0b.LSP. Не было учтено форматирование
Благодарю Вас, все работает!
NewNeo вне форума  
 
Непрочитано 14.04.2022, 19:12 Новый баг...
#290
NewNeo


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


Обнаружил еще один баг( Приложение удаляет блоки вставленные внутри таблица автокада... Можно это как-то исправить?
NewNeo вне форума  
 
Автор темы   Непрочитано 15.04.2022, 15:22
1 | #291
VVA

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


Цитата:
Сообщение от NewNeo Посмотреть сообщение
Обнаружил еще один баг
Обновил до версии change text styles (cts) 2.0c.LSP
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 16.04.2022 в 12:19.
VVA вне форума  
 
Непрочитано 15.04.2022, 15:30
#292
NewNeo


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


все работает! спасибо огромадное! за оперативность отдельное! 🤝

все работает! спасибо огромадное! за оперативность отдельное! 🤝

Последний раз редактировалось Кулик Алексей aka kpblc, 15.04.2022 в 16:58.
NewNeo вне форума  
 
Непрочитано 16.04.2022, 08:39
#293
Nike

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


Вот спасибо! я чуть с ума не сошел что мне так все время так гадило
Nike вне форума  
 
Непрочитано 25.07.2022, 14:46
#294
konstryktor


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


Добрый день! При использовании приложения Change text style стили текста, назначенные в размерных стилях не меняются?
konstryktor вне форума  
 
Непрочитано 29.07.2022, 12:30
#295
Taridaks


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




Размеры спокойно меняются через стандартные инструменты автокада. Выбираете нужный стиль размера и в настройках задаёте стиль текста.
Taridaks вне форума  
 
Непрочитано 15.08.2022, 11:13
#296
Dimas77


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


Вопрос: При установке замена сработала, но теперь при попытке редактировании однострочного текста двойным кликом всегда выскакивает окно замены текстовых стилей, Autocad 2016, 2021 как сделать чтобы при редактировании не вызывалась команда CTS? Удалил эти лисп надстройки с компьютера из папок и автозагрузки, перегрузил, теперь при редактировании однострочного текста двойным кликом: Команда: _CTS Неизвестная команда "CTS". Для вызова справки нажмите F1. Невозможно просто изменить однострочный текст двойным нажатием.
Dimas77 вне форума  
 
Автор темы   Непрочитано 16.08.2022, 17:05
#297
VVA

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


Dimas77, Команда никуда себя не записывает. Как вариант, посмотри что у тебя записано на текст в файле меню узел "Операции при двукратном нажатии". (Команда _.QUICKCUI, далее "Операции при двукратном нажатии")
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 12.02.2023, 04:44
#298
Domovoj


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


Добрый день. Запускаю команду CTSU. Текстовый стиль меняется. В многострочном тексте угол наклона 0, в однострочном -угол наклона 15. Как сделать угол наклона везде 0.
п.с. разобрался. После запуска команды TSUP все стало хорошо.

Последний раз редактировалось Domovoj, 12.02.2023 в 08:08.
Domovoj вне форума  
 
Непрочитано 16.02.2023, 05:39
#299
dovserg


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


Спасибо большое автору! Не с первого раза (нуб), но получилось!)
dovserg вне форума  
 
Непрочитано 16.08.2023, 11:50
| 1 #300
Amiens


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


Добрый день. в SMT не очищает параметр высоты в 2020 и 2021 акаде

Amiens вне форума  
Ответ
Вернуться   Форум 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