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

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

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

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

По мотивам Замена текстого стиля
Команды 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 Кб, 12109 просмотров)
Тип файла: lsp change text styles (cts) 2.0.LSP (41.7 Кб, 317 просмотров)

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

Последний раз редактировалось VVA, 03.06.2019 в 13:20. Причина: орфография
Просмотров: 201415
 
Непрочитано 09.03.2010, 02:37
#101
wetr

инженер
 
Регистрация: 09.08.2006
Владивосток
Сообщений: 1,553
<phrase 1= Отправить сообщение для wetr с помощью Skype™


VVA, TSUP обрабатывает примитывы только на текущем листе. Приходится запускать ее на каждом
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)
wetr вне форума  
 
Автор темы   Непрочитано 09.03.2010, 11:35
#102
VVA

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


wetr, Обновил до версии 1.4
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 10.03.2010, 04:23
#103
wetr

инженер
 
Регистрация: 09.08.2006
Владивосток
Сообщений: 1,553
<phrase 1= Отправить сообщение для wetr с помощью Skype™


VVA, спасибо!
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)
wetr вне форума  
 
Непрочитано 10.03.2010, 16:12
#104
Voltos

проектировщик РЗА
 
Регистрация: 21.02.2009
Кемерово
Сообщений: 67


VVA, все просто, файл получен из другого источника, существующий Мтекст частично правился. Скажем А512 изменили на А552, и после смены стиля получаем А552 тость правленная часть текста не форматируется в группе, только в редакторе Мтекста повторным применением того же стиля. Вот так.
__________________
Сделать лужу - одно,.. а вот наступить в чужую - совсем другое!

Последний раз редактировалось Voltos, 10.03.2010 в 16:25.
Voltos вне форума  
 
Автор темы   Непрочитано 10.03.2010, 19:16
#105
VVA

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


Пример ввиде dwg в студию
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 11.03.2010, 05:20
#106
Voltos

проектировщик РЗА
 
Регистрация: 21.02.2009
Кемерово
Сообщений: 67


StripMtext v5-0b.lsp работает, спасибо, архиполезная весчь!
Вложения
Тип файла: dwg
DWG 2004
12.dwg (41.4 Кб, 3922 просмотров)
__________________
Сделать лужу - одно,.. а вот наступить в чужую - совсем другое!

Последний раз редактировалось Voltos, 19.03.2010 в 13:51. Причина: Заработало
Voltos вне форума  
 
Автор темы   Непрочитано 07.04.2010, 09:56
#107
VVA

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


Voltos, Что-то я не понял в чем проблема. Для смены форматирования MTEXT'а нужно применять не CTS, а CTSU
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.04.2010, 07:10
#108
Voltos

проектировщик РЗА
 
Регистрация: 21.02.2009
Кемерово
Сообщений: 67


Спасибо, уже разобрался
__________________
Сделать лужу - одно,.. а вот наступить в чужую - совсем другое!
Voltos вне форума  
 
Непрочитано 16.04.2010, 03:08
#109
Chapter

Инженер-проектировщик автомобильных дорог
 
Регистрация: 21.10.2009
Южно-Сахалинск
Сообщений: 245
<phrase 1=


Вот чертеж. Нужно заменить стиль STANDARD на Основной 2.5-1, который уже добавлен в чертеж. Это у меня не получается сделать CTS, CTSU.

Это проблема чертежа? или как то можно подправить код? Помогите пожалуйста.

Если перевести из STANDARD в аннотатив, а потом из аннотатив в Основной, то нормально. А если из STANDARD в Основной то что то не получается вот.
Вложения
Тип файла: dwg
DWG 2007
Знак.dwg (71.7 Кб, 3855 просмотров)

Последний раз редактировалось Chapter, 16.04.2010 в 03:19.
Chapter вне форума  
 
Непрочитано 29.07.2010, 14:36
#110
acyxou


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


после выполнения команды CTSU на первый взгляд все вроде сработало, но если выбрать любую ячейку таблицы, то все форматирование в ячейках снова становится прежним, т.е. таким, каким было до выполнения команды CTSU. С программой StripMText такого замечено не было.
__________________
Users are not stupid, they are busy.
acyxou вне форума  
 
Автор темы   Непрочитано 30.07.2010, 09:11
#111
VVA

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


acyxou, файл покажи
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 30.07.2010, 12:40
#112
acyxou


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


Обычный файл, созданный через "Open with no template - Metric".
Вложения
Тип файла: dwg
DWG 2007
Test.dwg (70.5 Кб, 3833 просмотров)
__________________
Users are not stupid, they are busy.
acyxou вне форума  
 
Непрочитано 10.10.2010, 18:49 Как изменить текст в выноске спдс?
#113
Wer666


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


Извините люди за мою безграмотность, но прочитав все посты данной темы - я так и не понял как поменять текст в выноске спдс((( Обычный текст заменяется, а вот в выносках нет( Подскажите пошагово что нужно сделать что бы поменять текст и в выносках тоже????
Заранее Всем Спасибо!)
Wer666 вне форума  
 
Непрочитано 10.10.2010, 19:02
#114
Кулик Алексей aka kpblc
Moderator

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


Объекты СПДС подчиняются своим законам... Там надо использовать отдельные функции, мало связанные со стандартными объектами
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 10.10.2010, 19:11
#115
Wer666


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


Т.е. никак???((((
Wer666 вне форума  
 
Непрочитано 10.10.2010, 19:22
#116
Кулик Алексей aka kpblc
Moderator

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


На данный момент - никак. В зависимости от версии СПДС поведение и программное представление может быть различным.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 23.11.2010, 15:02
#117
Vildar

AutoCAD
 
Регистрация: 26.07.2007
Москва
Сообщений: 1,064


Подскажите, а стаблицами она как поступает?
Запустил cts, 15 минут жду, пока акад не отвечает.
Vildar вне форума  
 
Автор темы   Непрочитано 23.11.2010, 16:50
#118
VVA

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


Если Автокад не откликнится и файл не секретный, то покажи. Может где ошибочка закралась
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.11.2010, 17:08
#119
Vildar

AutoCAD
 
Регистрация: 26.07.2007
Москва
Сообщений: 1,064


Таблицу экспортнул из офиса, теперь в о всех ячейках шрифт colibri, от него нужно избавиться. Т.е. нужно зайти во все ячейки и назначить стиль принудительно иначе никак не меняется.

Файл не очень секретный, можно я его по почте сброшу. Написал письмо об этом.
Буду ждать. Спасибо.
Vildar вне форума  
 
Непрочитано 23.11.2010, 17:24
#120
pan

добрый человек
 
Регистрация: 23.02.2004
Глушь
Сообщений: 964


Цитата:
Сообщение от Wer666 Посмотреть сообщение
Как изменить текст в выноске спдс?


Извините люди за мою безграмотность, но прочитав все посты данной темы - я так и не понял как поменять текст в выноске спдс((( Обычный текст заменяется, а вот в выносках нет( Подскажите пошагово что нужно сделать что бы поменять текст и в выносках тоже????
Заранее Всем Спасибо!)
СПДС-Настройка:
Миниатюры
Нажмите на изображение для увеличения
Название: выноска.JPG
Просмотров: 276
Размер:	82.4 Кб
ID:	48745  

Последний раз редактировалось pan, 23.11.2010 в 17:32.
pan вне форума  
Ответ
Вернуться   Форум 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