Реклама 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 Кб, 22808 просмотров)
Тип файла: lsp change text styles (cts) 2.0c.LSP (44.3 Кб, 7090 просмотров)

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

Последний раз редактировалось VVA, 03.11.2023 в 14:28. Причина: см пост #290
Просмотров: 583824
 
Непрочитано 09.10.2018, 12:26
#221
PsixVK


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


Цитата:
Сообщение от Рyslan Посмотреть сообщение
чот эти програмки вообще не работают. ничего не меняют
нужно поменять текст стиль 25х22 на 25х22R. если через таблицу свойств менять, вылезают вопросики абракадабра какая то, а эта программа вообще ничего не меняет
вообще не понятно чего вы хотите
(если много текстов) быстрый выбор - текст стиль 25х22 - в свойствах изменить на 25х22R
у вас Текст зачем вам программа для Мтекстов?
кароче хз чего вы хотите
PsixVK вне форума  
 
Непрочитано 09.10.2018, 12:30
#222
Хмурый


 
Регистрация: 29.10.2004
СПб
Сообщений: 16,327


dwgconvert
PS один чёрт, он не сможет помочь
Вложения
Тип файла: zip DWGConvert.zip (566.9 Кб, 45 просмотров)

Последний раз редактировалось Хмурый, 09.10.2018 в 12:41.
Хмурый вне форума  
 
Непрочитано 09.10.2018, 12:53
#223
Рyslan


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


Цитата:
Сообщение от PsixVK Посмотреть сообщение
кароче хз чего вы хотите
Прошу прощения, не умею нормально объяснять. Короче, английский текст должен быть в слое Text(E) и стиль 25X22, русский текст Text(R) и стиль 25X22R. Прислали ...русский текст в слое Text(R), но в стиле 25X22. Меняю стиль на 25X22R ----весь текст превращается в кракозябры.
Рyslan вне форума  
 
Непрочитано 09.10.2018, 13:11
#224
PsixVK


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


[IMG]http://i.*******info/i9/89648ffc006a729ba8148cb7e5e3372f/1539079631/33979/1261320/E.jpg[/IMG]


[IMG]http://i.*******info/i9/0e2de7e941f174dcd9154056f22cb9e9/1539079649/40618/1261320/R.jpg[/IMG]

ну меняет толькол разная величина букв
хз какие кракозябры вы видете.
наверное из за этого:
[IMG]http://i.*******info/i9/4b2de2084b9bfd1b8c524ecbfd3510ee/1539079944/46201/1261320/neponiatnyi.jpg[/IMG]
PsixVK вне форума  
 
Непрочитано 09.10.2018, 13:21
#225
Рyslan


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


да, я тоже думаю из -за шрифта. вот чтоб еще понятнее стало. в этом файле выстави в свойствах стиль текст 25X22R и посмотри на русский текст
Вложения
Тип файла: dwg
DWG 2010
22.dwg (60.3 Кб, 37 просмотров)
Рyslan вне форума  
 
Непрочитано 09.10.2018, 13:26
#226
PsixVK


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


Цитата:
Сообщение от Рyslan Посмотреть сообщение
да, я тоже думаю из -за шрифта. вот чтоб еще понятнее стало. в этом файле выстави в свойствах стиль текст 25X22R и посмотри на русский текст
а что с ним не так?
[IMG]http://i.*******info/i9/9b393bf124b3afad0cdc6c8d11f46763/1539080832/46892/1261320/rus.jpg[/IMG]
PsixVK вне форума  
 
Непрочитано 09.10.2018, 13:36
#227
Хмурый


 
Регистрация: 29.10.2004
СПб
Сообщений: 16,327


вот простой simplex из 2014 и simplex8 на всякий
PS если замена шрифта не поможет, то надо будет, скорей всего, поменять кодовую страницу AutoCAD в реестре....
Вложения
Тип файла: rar SIMPLEX8.rar (5.6 Кб, 38 просмотров)
Тип файла: rar simplex.rar (7.5 Кб, 39 просмотров)

Последний раз редактировалось Хмурый, 09.10.2018 в 13:54.
Хмурый вне форума  
 
Непрочитано 09.10.2018, 13:54
#228
Рyslan


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


Цитата:
Сообщение от PsixVK Посмотреть сообщение
а что с ним не так?
ну замени текст стиля в свойствах, увидишь
Рyslan вне форума  
 
Непрочитано 09.10.2018, 14:02
#229
PsixVK


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


Цитата:
Сообщение от Рyslan Посмотреть сообщение
ну замени текст стиля в свойствах, увидишь
ты не поверишь!
менял все нормально отображается на картинках (которые ты скорее всего не смотрел) показано изменения в свойствах - текст читается.
у тебя проблемы со шрифтами выше человек выложил для скачивания шрифты (которых почему то у тебя нет)
версия автокада какая?
PsixVK вне форума  
 
Непрочитано 09.10.2018, 14:02
#230
Хмурый


 
Регистрация: 29.10.2004
СПб
Сообщений: 16,327


Рyslan, вот ещё попробуй https://forum.dwg.ru/showpost.php?p=655669&postcount=30
Хмурый вне форума  
 
Непрочитано 09.10.2018, 14:03
#231
PsixVK


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


тексты читаются даже при том что у меня нет того шрифта что в файле используется
PsixVK вне форума  
 
Непрочитано 09.10.2018, 14:04
#232
Рyslan


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


Цитата:
Сообщение от PsixVK Посмотреть сообщение
тексты читаются даже при том что у меня нет того шрифта что в файле используется
покажи картинку
Цитата:
Сообщение от Хмурый Посмотреть сообщение
Рyslan, вот ещё попробуй https://forum.dwg.ru/showpost.php?p=655669&postcount=30
Спасибо, пробовал. Так и не понял как она работает )))
Рyslan вне форума  
 
Непрочитано 09.10.2018, 14:06
#233
Хмурый


 
Регистрация: 29.10.2004
СПб
Сообщений: 16,327


Рyslan, у меня твой текст тоже читается нормально. Либо шрифт, либо кодовая страница. У меня на R13 и R14 приходилось менять кодовую страницу в реестре
PS кстати, обновления на AutoCAD установлены?
Хмурый вне форума  
 
Непрочитано 09.10.2018, 14:28
#234
PsixVK


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


Цитата:
Сообщение от Рyslan Посмотреть сообщение
покажи картинку
хух
картинки все выше!
есть такая штука "+" (плюсик) нажимаешь его он разворачивается.
[IMG]http://i.*******info/i9/5aeb2b79f902b4828482e7db378245a5/1539084542/23758/1261320/pliusyk.jpg[/IMG]

[IMG]http://i.*******info/i9/0dbc8c960abc22d5f43739a5ebb48677/1539084560/30836/1261320/eshche_pliusyk.jpg[/IMG]
PsixVK вне форума  
 
Непрочитано 09.10.2018, 14:41
#235
Рyslan


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


еще один файл, похоже в предыдущем не было стиля 25X22R, попробуй в русском тексте вот этот стиль выстави и посмотри как изменится русский текст
Вложения
Тип файла: dwg
DWG 2010
33.dwg (64.1 Кб, 37 просмотров)
Рyslan вне форума  
 
Непрочитано 09.10.2018, 14:49
#236
Кулик Алексей aka kpblc
Moderator

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


А не пробовали для начала dwg предоставлять полностью?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 09.10.2018, 14:49
#237
PsixVK


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


Цитата:
Сообщение от Рyslan Посмотреть сообщение
еще один файл, похоже в предыдущем не было стиля 25X22R, попробуй в русском тексте вот этот стиль выстави и посмотри как изменится русский текст
слушай ну ты наверно издеваешься?
[IMG]http://i.*******info/i9/5c1d11b79beabd489223796612fd732e/1539085753/52800/1261320/nuy.jpg[/IMG]
скучно стало и ты решил развлечь народ скачиванием твоих файлов и игры со стилями?
PsixVK вне форума  
 
Непрочитано 09.10.2018, 14:52
#238
Рyslan


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


короче забейте )) наверное у меня только так отображается
Рyslan вне форума  
 
Непрочитано 09.10.2018, 14:53
#239
PsixVK


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


Цитата:
Сообщение от Рyslan Посмотреть сообщение
короче забейте )) наверное у меня только так отображается
а как у тебя отображается?
ты хотя бы показал
PsixVK вне форума  
 
Непрочитано 09.10.2018, 15:02
#240
Рyslan


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


Цитата:
Сообщение от PsixVK Посмотреть сообщение
а как у тебя отображается?
ты хотя бы показал
Хотел принкт скрин сделать чтоб свойства видны были, чот не работает. Вот пдф
Вложения
Тип файла: pdf 33.pdf (4.6 Кб, 58 просмотров)
Рyslan вне форума  
Ответ
Вернуться   Форум 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