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

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

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

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

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

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

Последний раз редактировалось VVA, 03.06.2019 в 13:20. Причина: орфография
Просмотров: 199684
 
Непрочитано 24.11.2010, 00:22
#121
Кулик Алексей aka kpblc
Moderator

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


VVA, вспомни про регенерацию таблиц. Сам же на нее мне указывал в свое время ))
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 20.02.2011, 23:14
#122
Farest-1

Конструктор
 
Регистрация: 19.12.2005
Подольск
Сообщений: 54
Отправить сообщение для Farest-1 с помощью ICQ Отправить сообщение для Farest-1 с помощью Skype™


Всё замечательно всё работает
Но есть одно но.
Например есть чертёж (как у всех он поделён на разные стили текстов)
где-то размерный, основной, текстовый и так далее, понимаю что нужно выбирать в игнорируемые эти стили.
Вот попал текстовый стиль зараза и не удаляется сидит где то в блоках или атрибутах пришлось во всём чертеже заменять на 1-н стиль.
Если возможность замены стиля в выбранных (то есть выбираем область и заменяем на выбранный стиль).
В области могут попадаться блоки и атрибуты .
Farest-1 вне форума  
 
Непрочитано 10.06.2011, 16:26
#123
Kyxa


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


Подкажите в чем причина. Lisp-ом только начинаю пользоваться, похоже чего-то не понимаю... (((
Вопрос #53, такая же песня (но я что-то не нашёл конкретного ответа):

Команда: (ru-textstyle-update "*")
Ждите, привожу стиль
'*' к определению...
; ошибка: неверный тип аргумента: lentityp nil
Kyxa вне форума  
 
Автор темы   Непрочитано 10.06.2011, 18:22
#124
VVA

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


Kyxa, Нужно использовать команды (CTS CTSU TSUP ) Как - смотри ссылку в моей подписи
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.06.2011, 13:04
#125
Kyxa


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


VVA
Это понятно...
Команда CTS: всплывает окно с выбором стилей, выбираю ненужные (несколько), далее окно со стилем назначения (там остаётся один), двойной щелчок по нему. Всё. Далее _purge. Ничего не меняется. А ошибку выдает, только если макросом пользоваться.
Kyxa вне форума  
 
Автор темы   Непрочитано 14.06.2011, 17:07
#126
VVA

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


Цитата:
Сообщение от Kyxa Посмотреть сообщение
далее окно со стилем назначения (там остаётся один)
Ну так у тебя ничено не будет. Оставшиеся в этом окне стили приведутся к выбранному
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.06.2011, 20:00
#127
Kyxa


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


VVA
Всё спасибо! Разобрался!

Последний раз редактировалось Kyxa, 14.06.2011 в 20:28.
Kyxa вне форума  
 
Непрочитано 14.11.2011, 15:35
#128
Vombat

HVAC (ОВК)
 
Регистрация: 08.10.2005
Ukraine, L'viv
Сообщений: 821


Здравствуйте
Подскажите, пожалуйста, как можно избавится от непонятных символов после применения «LISP. Замена текстового стиля». Прилагаю фрагмент с проблемным «MTEXT». Такие чертежи приходят регулярно от архитектора и технолога.
Спасибо.
Миниатюры
Нажмите на изображение для увеличения
Название: mtext trabl 1.jpg
Просмотров: 476
Размер:	67.8 Кб
ID:	69535  Нажмите на изображение для увеличения
Название: mtext trabl 2.jpg
Просмотров: 338
Размер:	43.2 Кб
ID:	69536  
Вложения
Тип файла: dwg
DWG 2004
text.dwg (49.0 Кб, 7376 просмотров)
Vombat вне форума  
 
Автор темы   Непрочитано 15.11.2011, 11:55
1 | #129
VVA

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


Непонятные символы - это коды форматирования мтекста
Убрать можно так
1. Использовать не CTS, а CTSU
2. Команда UNF-MTEXT
Учти, что наклон мтекста задан форматированием. Ести хочешь выборочно сносить форматирование, то см. StripMtext
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 15.11.2011, 12:37
#130
Vombat

HVAC (ОВК)
 
Регистрация: 08.10.2005
Ukraine, L'viv
Сообщений: 821


VVA, спасибо Вам огромное.
Сегодня все получилось за первым разом, а вчера пол дня возился, результата не было (см. скин №2), загадка какая-то...
Спасибо
Vombat вне форума  
 
Непрочитано 27.11.2011, 23:20
#131
seregas


 
Регистрация: 17.08.2011
Minsk
Сообщений: 60


StripMtext не удаляет высоту текста, оставляет две установки высоты. Как от этого избавится ? И еще не понятно -- при удалении всего форматирования какие параметры он принимает за базовые ?

Может какая новая вверсия есть, кроме той, что в шапке -- на их форуме надо ждать подтверждение регистрации админом. Странный у них форум, наверное, он мои отпечатки по базе проверяет

Последний раз редактировалось seregas, 27.11.2011 в 23:25.
seregas вне форума  
 
Автор темы   Непрочитано 28.11.2011, 10:27
#132
VVA

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


На форуме последняя версия StripMtext 5-0c, как и здесь. Для удаление всего форматирования можно попробовать UNF-MTEXT или UnFormat String
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 09.12.2011, 14:21
#133
Nata1

Инженер
 
Регистрация: 10.11.2008
Владимирская обл., пос. Вольгинский
Сообщений: 147


Уважаемый VVA, я сохранила код StripMtext 5-0 из поста #1, но у меня вместо букв иероглифы. Это неправильно? Как вернуть буквы?
Нажмите на изображение для увеличения
Название: Иероглифы StripMtext v5.JPG
Просмотров: 330
Размер:	276.3 Кб
ID:	71144
О, получилось исправить. Сохранила не в Блокноте, а WordPad. Теперь нормальный текст в лиспе.
__________________
AutoCAD 2014

Последний раз редактировалось Nata1, 09.12.2011 в 14:41. Причина: Получилось
Nata1 вне форума  
 
Непрочитано 13.12.2011, 14:06
#134
Yuzer

Мозговой штурм
 
Регистрация: 26.10.2008
Рідна ненька - Україна, Харків
Сообщений: 5,028
Отправить сообщение для Yuzer с помощью ICQ Отправить сообщение для Yuzer с помощью Skype™


VVA, после использования лиспа (Замена текстового стиля+CTS) все равно остаются текстовые стили в списке текстовых стилей. Найти я их не могу (ни в атрибутах, ни в тТексте, ни в МТексте). Как это можно вылечить?
__________________
Нужен расчетчик по Green Book.
Tekla Structures тоже я.
Yuzer вне форума  
 
Автор темы   Непрочитано 13.12.2011, 14:21
#135
VVA

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


файл покажи
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.12.2011, 19:21
#136
Yuzer

Мозговой штурм
 
Регистрация: 26.10.2008
Рідна ненька - Україна, Харків
Сообщений: 5,028
Отправить сообщение для Yuzer с помощью ICQ Отправить сообщение для Yuzer с помощью Skype™


Самфайл. Он немного зависает....
__________________
Нужен расчетчик по Green Book.
Tekla Structures тоже я.

Последний раз редактировалось Yuzer, 23.12.2011 в 23:57.
Yuzer вне форума  
 
Автор темы   Непрочитано 14.12.2011, 11:14
#137
VVA

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


Имя текстового стиля?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.12.2011, 12:37
#138
Yuzer

Мозговой штурм
 
Регистрация: 26.10.2008
Рідна ненька - Україна, Харків
Сообщений: 5,028
Отправить сообщение для Yuzer с помощью ICQ Отправить сообщение для Yuzer с помощью Skype™


Нужно, чтобы все было Текст.
__________________
Нужен расчетчик по Green Book.
Tekla Structures тоже я.
Yuzer вне форума  
 
Непрочитано 16.02.2012, 15:29
#139
Tayfun-astana


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


Добрый день, сорри за вопрос от чайника: а возможно настроить акад так чтобы при открытии чертежа все шрифты во всех стилях были isocpeur. А их высота. наклон и т.д. оставались прежними ? или как настроить так ... чтобы если открываетя чертеж с неизвестыми шрифтам (всмысле нету в папке фонтс) то они заменялись тоже на isocpeur?
Tayfun-astana вне форума  
 
Непрочитано 16.02.2012, 15:49
#140
KSI


 
Регистрация: 19.03.2004
Калининград
Сообщений: 1,842


Tayfun-astana, а не смущает, что при замене шрифтов все тексты могут "поплыть"? Ведь в разных шрифтах ширина одного и того же символа может отличаться (при одинаковой высоте текста).
А подмена недостающего шрифта прописана переменной FONTALT, или в "Настройке" на закладке "Файлы" искать "Файл альтернативного шрифта".
KSI вне форума  
Ответ
Вернуться   Форум 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