dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

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

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

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 18.09.2008, 17:53 9 |
LISP. Замена текстового стиля
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,747
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™

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

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

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

Последний раз редактировалось VVA, 26.12.2017 в 19:53. Причина: орфография
Просмотров: 188959
 
Непрочитано 09.10.2018, 19:28
#241
PsixVK


 
Регистрация: 19.10.2012
Киев
Сообщений: 709


Цитата:
Сообщение от Рyslan Посмотреть сообщение
Хотел принкт скрин сделать чтоб свойства видны были, чот не работает. Вот пдф
хз
очень похоже на это
цитата
PsixVK вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 15.10.2018, 18:21
#242
rebus


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


Файл "change text styles (cts) 1.9.LSP", строка 339, похоже скобку не там поставили, где хотели:
Код:
[Выделить все]
 (if (= (strcase X# "C"))
rebus вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 14.12.2018, 11:08
#243
divanci


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


не работает программа в этом файле (см. вложение) И вообще не понятно почему выбирать нужно игнорируемые стили, что если стилей под сотню а менять нужно всего один.
Вложения
Тип файла: dwg
DWG 2013
Пожарка, связь.dwg (1,008.3 Кб, 11 просмотров)
divanci вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 14.12.2018, 17:06
#244
VVA

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


Цитата:
Сообщение от divanci Посмотреть сообщение
не работает программа в этом файле (см. вложение)
У меня работает (Автокад 2013)

Цитата:
Сообщение от divanci Посмотреть сообщение
И вообще не понятно почему выбирать нужно игнорируемые стили
А что с ними еще можно сделать? Если таковых нет жми "отмена". Написано в заголовке окна
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 14.12.2018, 17:17
#245
divanci


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


Если я хочу поменять один на другой, что мне выбирать, если всего 10 стилей?
divanci вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 15.12.2018, 10:39
#246
VVA

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


Цитата:
CTS - замена текстовых стилей у всех объектов на выбранный
Здесь решалась задача по замене всех текстовых стилей на на выбранный, в итоге должен остаться 1 стиль
Потом попросили добавить возможность делать исключение для некоторых постоянно заданных стилей
Если хочешь из 10 стилей сделать 9, то 8 добавляй в исключение
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 15.12.2018, 15:53
#247
divanci


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


А можно добавить возможность выбирать переносить все кроме выбранных или переносить только выбранные и опцию отмены форматирования вместо другой команды?
divanci вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 11.01.2019, 15:27
#248
Пионер

Инженер
 
Регистрация: 11.04.2007
Москва
Сообщений: 20


Отличная программа, автору и участвующим людям большое спасибо. Хотел еще уточнить, скажите пожалуйста, можно ли каким-то образом изменить размер шрифта во всех табличках одновременно, т.к. стиль программа меняет, а вот установленный размер шрифта в стиле не устанавливает .
Пионер вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 03.02.2019, 20:41
#249
Composter

Отопление и вентиляция
 
Регистрация: 31.10.2008
Москва
Сообщений: 367


У меня почему то в 2019 автокаде smt не делает ничего.
Composter вне форума вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум 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

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||