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

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

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

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

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

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

Последний раз редактировалось VVA, 03.06.2019 в 13:20. Причина: орфография
Просмотров: 203858
 
Непрочитано 18.09.2008, 18:22
#2
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


что такое деформатирование? (это перевод в обычный текст?)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 18.09.2008, 18:30
#3
VVA

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


Это я так перевел unformat. Деформатирование - очистка форматирования многострочного текста. Исправил в #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 18.09.2008, 18:34
#4
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, что то не могу сообразить мне дали чертеж АР там есть мой стиль, я черчу прямыми буквами, а лисп не выправил ни в размерах цыфры не просто буквы может я не понял принцип лиспа?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 18.09.2008, 21:46
#5
VVA

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


dextron3, Чем и что делал? Думаю что не понял принципа.

*** Добавлено. Исправлена неточночть в ru-textstyle-update. Обновлен #1.

> ShaggyDoc в ru-textstyle-update добавил проверку (выделена красным). Имя стиля может хранится в нижнем регитре.
Код:
[Выделить все]
    (if (and (or (= "TEXT" ent_type)
                 (= "ATTRIB" ent_type)
                 (= "ATTDEF" ent_type)
             ) ;_ end of or
             (or (= "*" style_name)
                 (= (strcase style_name)(strcase (cdr (assoc 7 ent_data))))
             ) ;_ end of or
        ) ;_ end of and
...
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 18.09.2008 в 22:13.
VVA вне форума  
 
Непрочитано 18.09.2008, 22:56
#6
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


вот видеоролик у меня не работает ничегошеньки....
Вложения
Тип файла: rar Untitled.rar (1.42 Мб, 919 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 19.09.2008, 10:47
#7
VVA

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


В твоем фильме не видны настройки текстового стиля GOST 2.304. TSUP согласовывает настройки СТИЛЯ (начертание, наклон, ширину) и текстов, вычерченных этим стилем
Изображения
Тип файла: gif TSUP.gif (225.4 Кб, 19538 просмотров)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 19.09.2008, 20:48
#8
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA,

вот мои настройки
Вложения
Тип файла: rar Untitled1.rar (565.2 Кб, 694 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 19.09.2008, 20:51
#9
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


А вот автокадовский файл для разминки
Вложения
Тип файла: rar AR.rar (184.6 Кб, 590 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 20.09.2008, 11:03
#10
VVA

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


dextron3, Мы наверное не понимаем друг друга. Разминка прошла успешно. Я изменил описание команды TSUP в #1. Может будет немного понятнее. Еще обращаю внимание, что в коде было исправление и нужно было скачать его еще раз. Не знаю, есть ли ты в числе тех 11 на данный момент, но скачай еще раз на всякий случай.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 20.09.2008, 16:11
#11
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, теперь я начал Вас понимать, оказывается мы друг друга не понимали:

Почему я не то подумал:


Предыстория.


Изначально я приучился чертить в одном стиле с появления программы СПДС, так как там можно было эффективно использовать масштабы, не ковыряясь в стилях, еще по молодости, когда я сталкнулся с масштабированием, я для каждого масштаба создавал отдельный стиль, но при этом во всех стилях использовал одинаковый текст и наклон, а также сжатие, поэтому и получалось очень много стилей, соответсвенно свои стили приходили из других организаций, иногда доходило что в одном чертеже около 18 стилей. Приносит мне архитектор черчеж, у него площади одним стилем начерчены, размеры другим, надписи другим и тп. вот вам и набралось стилей...

Хотелось просто иметь волшебную кнопку, и когда приносят с дальних краев чертеж, нажал бы эту кнопку, и чертеж превратился в чертеж как будто это рисовал его ты со своим до боли знакомым стилем, а все заморские стили удалялились или пурджелись...


Как я думал это работает.


1. Выбираем мной настроенный стиль.
2. Все стили переводятся в мой настроенный стиль (а не каждый для каждого в отдельности, как теперь я понял работает у вас)
3. В итоге чертеж будет выполнен одним стилем, с соответсвующими ему параметрами (а то получается эти стили из чертежа в черчеж по всему городу таскается)
4. После проведения процедуры все ненужные стили удаляются


Важно:
Сам лисп должен менять стиль, т.е. текст, толщину, наклон, но не должен менять высоту букв.(и размеров это тоже касается, а вот засечки беруться из моего стиля)

PS Если такое возможно, буду ждать ответа, а если не целесообразно то буду ждать аргументов..

заранее спасибо..
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 21.09.2008, 11:37
#12
VVA

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


Это работает так:
1. CTS приводит все текстовые примитивы к вабранному тобой стилю.
2. TSUP синхронихзирует тексты с выбранным или выбранными (почитай внимательно диалог) стилями., т.е. назначает текстам угол наклона и степень сжатия-растяжения как в стиле, которым они в данный момент написаны.
Толщину задавай весом линии, к этой теме она отношения не имеет.
Высота остается такой как и была.
Лисп стиль не меняет, а берет из него данные (угол наклона и сжатие/растяжение)
Поэтому в твоем случае
1. Создаешь или выбираешь из существующих стиль, который оставишь
2. Выставляешь в этом стиле нужный шрифт, угол наклона и степень сжатия/растяжения
3. CTS (или CTSU) - всем текстам назначается твой стиль
4. TSUP - синхронизирует тексты и описание стиля.
5. PURGE (можно purge выполнить после п. 3.)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 21.09.2008, 12:08
#13
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, о то что надо, как и хотел, спасибо!

можно у вас макрос теперь на кнопку попросить, с 3 го по 5й пункт, шоб сразу процесс автоматом шел...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 21.09.2008, 15:55
#14
VVA

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


Обновил #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 21.09.2008, 19:49
#15
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, не работает максрос чтото делает непонятное и хде в макросе TSUP
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 21.09.2008, 20:02
#16
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


Код:
[Выделить все]
^C^C(if (null C:CTS)(load "Lisp/CTSU.lsp")) CTS;TSUP;-Purge;a;;n;-Purge;a;;n;-Purge;a;;n
вот мои наброски
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 21.09.2008, 20:16
#17
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


вот кстати принесли чертеж электрики, куча стилей
Миниатюры
Нажмите на изображение для увеличения
Название: Snap12.jpg
Просмотров: 2232
Размер:	29.8 Кб
ID:	10268  
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 21.09.2008, 20:57
#18
VVA

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


Код:
[Выделить все]
(if (null C:CTS)(load "change text styles (cts)"));CTS;(cts:layer-status-save);(ru-textstyle-update "*");_.-PURGE;_ALL;*;_No
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 21.09.2008, 21:10
#19
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


Offtop: VVA, TSUP так и не увидел
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 22.09.2008, 11:40
#20
gest

GEODATA Engineering S.p.A.
 
Регистрация: 11.02.2005
Монино
Сообщений: 668


Удалено.
gest вне форума  
 
Непрочитано 22.09.2008, 16:10
#21
K_R_H


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


VVA,
И все таки хочется чтобы команд CSTU давла возможность поменять вес линий.
Т.е у меня файл в котором очень много маркировок в виде блоков с атрибутами. Можно ли одним махом попенять свойства текста в атрибутах (в частности вес линий).
K_R_H вне форума  
 
Автор темы   Непрочитано 22.09.2008, 16:40
#22
VVA

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


K_R_H, Давай отделять мух от котлет. Эти команды изменяют начертание текста, зависящее от стиля.
У тебя вопрос по правильной организации блока или приведении существующих блоков к правильной организации. (Наследование цвета, типа линии, веса линии). Тебе скорее всего сюда
LISP. Нормализация блоков текущего файла.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 30.09.2008, 14:52
#23
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, у меня в файле в одном тексте наклон не убирается чего только не делал,
Миниатюры
Нажмите на изображение для увеличения
Название: Snap1.jpg
Просмотров: 416
Размер:	23.9 Кб
ID:	10510  
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 30.09.2008, 15:10
#24
VVA

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


файл где?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 30.09.2008, 15:31
#25
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, Вы от меня вчера файл получили с лайаутами? или не дошел?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 30.09.2008, 15:36
#26
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


Вот файло основное подчеркнул...
Вложения
Тип файла: rar 456.rar (361.8 Кб, 319 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 30.09.2008, 17:41
#27
VVA

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


dextron3, Файл получил, пока нет времени посмотреть.
Если это текст "1. Разрез 1-1 см.л.7." то в команде _style выбери стиль DIM1, задай угол 0 и выполни команду TSUP
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 30.09.2008, 19:06
#28
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, так лисп должен заменить размер DIM1, моим выбранным, а потом зайдествовать из моего стиля настройки, а там прямые буковки то,
мне потом еще приходится кисточкой дорабатывать,

но вопрос волнует почему все остальные тексты то меняются а вот эти нет...?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 30.09.2008, 19:44
#29
VVA

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


dextron3, У меня так и делает. CTS - меняю стиль (на SPDS), TSUP - причесываю тексты как в стиле. Попробуй скачай файл заново, может у тебя старая версия?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 30.09.2008, 20:36
#30
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, СПАСИБО!
действительно у меня была старая версия, странно всегда следил за обновлениями
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 01.10.2008, 20:31
#31
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


dextron3, опять вопрос почему размерные стили не меняет, по идеи после отработки лиспа должен быть один стиль текста и один размерный стиль а этого не получается, буду рад ответу...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 01.10.2008, 20:36
#32
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


вот после использования лиспа стали размерные стили вообще сос трелками что то не могу сообразить вроде было нормально а куда все подевалось...

Мой размер синий
Миниатюры
Нажмите на изображение для увеличения
Название: Snap1.jpg
Просмотров: 389
Размер:	38.2 Кб
ID:	10569  
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 01.10.2008, 21:11
#33
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, Еще БАГ нашел в лиспе, меняет текстовый стиль именно в том лайауте который на данный момент активен, в других же не меняет, попробуйте в том файле который я вам отправил, наделать лайаутов и применить лисп....
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 01.10.2008, 21:19
#34
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


Вот ролик для достоверности:
Вложения
Тип файла: rar Untitled.rar (367.4 Кб, 390 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 02.10.2008, 10:21
#35
VVA

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


Беру паузу до среды (8 октября), т.к. еду в командировку.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 02.10.2008, 13:27
#36
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, буду бездельничать до 9 октября тогда
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 07.10.2008, 11:53
#37
Builder_Drew

Строительство, проектирование, IT, документооборот
 
Регистрация: 12.03.2007
Урал - опорный край державы
Сообщений: 44
<phrase 1=


хватит бездельничать! :-) подскажите, есть ли решение как заставить у всех размерных стилей, а также у объектов spdsGrid сменить текстовый стиль на заданный?
Builder_Drew вне форума  
 
Автор темы   Непрочитано 07.10.2008, 12:07
#38
VVA

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


Builder_Drew, Предлагаю научный метод: метод тыка. Создай несколько текстовых стилей, несколько размерных стилей и попробуй CTS. Посмотри на результат, сделай выводы.
Если spdsGrid обладает свойством TextStyle, то должет поменяться. Поможет опять таки научный метод.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 07.10.2008, 12:32
#39
Кулик Алексей aka kpblc
Moderator

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


Работа с объектами СПДС из-под лиспа по меньшей мере затруднительна.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 22.10.2008, 16:32
#40
VVA

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


Добавлена обработка форматирования МТЕКСТОВ для Автокада с 2008 версии (выравнивание влево, вправо, посередине, по ширине, распределенное)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 22.10.2008, 22:18
#41
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, поясните на видеоролике для чего нужно выравнивание если выполняется все по стилю с теми настройками текста которые он имел до использования макроса
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 22.10.2008, 22:57
#42
VVA

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


Выравнивание - это просто дополнительные коды форматирования, которые появились в 2008 Автокаде. И их нужно обрабатывать, что и было добавлено в ф-цию, снимающую форматирование.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 30.10.2008, 14:11
#43
getr

Конструктор
 
Регистрация: 06.04.2005
Из тех ворот-откуда весь народ.
Сообщений: 342
<phrase 1=


Что то нехочет работать TSUP..автокад выдает следующее-

Command: TSUP
_vbastmt
Expression: ThisDrawing.SetVariable "USERI1", MsgBox ("
Производится изменение начертания всех существующих
ТЕКСТОВ, АТРИБУТОВ
во ВСЕХ примитивах, включая блоки,
выбранного стиля!

Устанавливается по определению стиля
начертание, сжатие, угол наклона
Пользоваться осторожно!
Будем делать?",4,"ИЗМЕНЕНИЕ СТИЛЕЙ!!!!")
Syntax Error

Работаю на Автокад 2005(eng).
__________________
"Мнение не бывает ни истинным, ни ложным, а лишь полезным в жизни или бесполезным. ",- Ауробиндо
И не надо делать удивленных движений руками.
getr вне форума  
 
Непрочитано 11.11.2008, 13:55
#44
Builder_Drew

Строительство, проектирование, IT, документооборот
 
Регистрация: 12.03.2007
Урал - опорный край державы
Сообщений: 44
<phrase 1=


Коллеги, имеется ли возможность деформатирования не всех текстовых стилей? то есть делать исключение для некоторых постоянно заданных стилей и не трогать их?
Builder_Drew вне форума  
 
Автор темы   Непрочитано 11.11.2008, 16:55
#45
VVA

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


Имеется, но нужно править код
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 12.11.2008, 09:15
#46
getr

Конструктор
 
Регистрация: 06.04.2005
Из тех ворот-откуда весь народ.
Сообщений: 342
<phrase 1=


Так что же там за Syntax Error такой,может кто-нибудь прояснить ситуацию?
__________________
"Мнение не бывает ни истинным, ни ложным, а лишь полезным в жизни или бесполезным. ",- Ауробиндо
И не надо делать удивленных движений руками.
getr вне форума  
 
Автор темы   Непрочитано 12.11.2008, 11:20
#47
VVA

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


getr, Потерпи немного, разгребусь, переделаю на dcl окно.
Пока как временная замена TSUP
Код:
[Выделить все]
(defun C:TSUP1 ( / *error* ret )
  (defun *error* (msg)(princ msg)(cts:layer-status-restore)(princ))
  (cts:layer-status-save)
  (initget "Да Нет Yes No _ Yes No Yes No")
  (setq ret (getkword "\nБудем обновлять? [Да/Нет] <Да>:"))
  (if (or (null ret)(= ret "Yes"))
  (progn
    (foreach style (_DWGRU-GET-USER-DCL (if (= (getvar "DWGCODEPAGE") "ANSI_1251") "Выберите стиль" "Select style") (vl-remove "" (ACAD_STRLSORT(tablelist "STYLE"))) t)
      (ru-textstyle-update style)
       ) ;_ end of foreach
    )
  )
  (cts:layer-status-restore)
  (princ)
  )
Можешь добавить эту команду в лисп из#1 и пока вызывать ее. Запрос будет идти в командной строке.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 12.11.2008, 16:35
#48
getr

Конструктор
 
Регистрация: 06.04.2005
Из тех ворот-откуда весь народ.
Сообщений: 342
<phrase 1=


Хорошо,подождем...просто вопрос как то висел в воздухе.
__________________
"Мнение не бывает ни истинным, ни ложным, а лишь полезным в жизни или бесполезным. ",- Ауробиндо
И не надо делать удивленных движений руками.
getr вне форума  
 
Автор темы   Непрочитано 02.12.2008, 18:33
#49
VVA

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


Цитата:
Сообщение от getr Посмотреть сообщение
Хорошо,подождем...просто вопрос как то висел в воздухе.
Еще ждешь? Обновил #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 03.12.2008, 14:59
#50
getr

Конструктор
 
Регистрация: 06.04.2005
Из тех ворот-откуда весь народ.
Сообщений: 342
<phrase 1=


Ага ...жду,пока работаю по варианту как ты советовал выше.
После запуска обновленного лиспа автокад выдал-
no function definition: VECTOR_LINE
Опять незадача...
__________________
"Мнение не бывает ни истинным, ни ложным, а лишь полезным в жизни или бесполезным. ",- Ауробиндо
И не надо делать удивленных движений руками.
getr вне форума  
 
Автор темы   Непрочитано 04.12.2008, 12:44
#51
VVA

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


getr, Вечная проблема с библиотечными функциями. Исправил #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 04.12.2008, 14:24
#52
getr

Конструктор
 
Регистрация: 06.04.2005
Из тех ворот-откуда весь народ.
Сообщений: 342
<phrase 1=


А вот теперь все океюшки...Спасибо.
__________________
"Мнение не бывает ни истинным, ни ложным, а лишь полезным в жизни или бесполезным. ",- Ауробиндо
И не надо делать удивленных движений руками.
getr вне форума  
 
Непрочитано 09.12.2008, 10:59
#53
Volodich

проектировщик-электрик
 
Регистрация: 20.12.2007
Челябинск
Сообщений: 446


Странно, а у меня вылезает такая вот ошибка:
Цитата:
Команда: (ru-textstyle-update "*")
Ждите, привожу стиль
'*' к определению...
; ошибка: неверный тип аргумента: lentityp nil
И со стилем ничего не делается...

Может быть потому что автокад 2006 рус?
__________________
Неважно, что что-то идет неправильно. Возможно, это хорошо выглядит...
Volodich вне форума  
 
Автор темы   Непрочитано 09.12.2008, 16:41
#54
VVA

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


Volodich, Выложи или скинь файл на почту. Со стилем в ru-textstyle-update ничего делаться и не будет.Тексты будут приводиться к установкам стиля. Почитай про TSUP и чуть ниже в #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 11.01.2009, 08:34
#55
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, А существует лисп который Мульти тексты превращает в обычные тексты?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 11.01.2009, 08:40
#56
Кулик Алексей aka kpblc
Moderator

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


Ага. _explode называется.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 11.01.2009, 09:08
#57
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


Кулик Алексей aka kpblc, это опасно можно взорвать лишнего, я вот подумал, может в этот лисп интегрировать опцию такую, чтобы работала только с м-текстами, опционально, а то существуют люди которые до сих пор пользуются м-текстами
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 11.01.2009, 09:18
#58
Кулик Алексей aka kpblc
Moderator

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


Ага, а _qselect придуман просто так, получается?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 11.01.2009, 09:32
#59
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


Кулик Алексей aka kpblc, так когда взрываешь м-тексты ведут себя не адекватно, утолщаются расширяются, глаз до глаз нужен...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 11.01.2009, 09:34
#60
Кулик Алексей aka kpblc
Moderator

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


А что ж ты хочешь-то, для принудительно сформатированного текста такое и будет!
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 11.01.2009, 10:23
#61
Romanich

Robot и Хобот
 
Регистрация: 29.08.2003
Abu Dhabi
Сообщений: 940
Отправить сообщение для Romanich с помощью Skype™


dextron3,
Цитата:
а то существуют люди которые до сих пор пользуются м-текстами
И будут пользоваться, потому что м-текст это мегаудобная вещь.
__________________
Robot и Хобот
Romanich вне форума  
 
Непрочитано 11.01.2009, 10:33
#62
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,762


Romanich
Все удобства на прочь убивают его недостатки.
__________________
Шаг 12й......
Мои публикации
DEM вне форума  
 
Непрочитано 11.01.2009, 14:04
#63
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


Кулик Алексей aka kpblc,
Алгоритм лиспа:
1. Выбираются все м-тексты
2. Взрываются
3. Опять выбираются
4. Дальше обрабатываются существующим лиспом

вот так как то...
буду рад за помощь может максросом тут получиться обойтись..
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 13.01.2009, 11:39
#64
Hans667

сети
 
Регистрация: 12.04.2007
SPb
Сообщений: 534
Отправить сообщение для Hans667 с помощью AIM Отправить сообщение для Hans667 с помощью Skype™


VVA в первом посте CSTU поправь на правильный.А то сбивает с упти истинного. Не понимаю чем CTS отличается от замены стиля у всех объектов сразу в панели свойств
__________________
Errare humanum est, insipientis perseverare
Hans667 вне форума  
 
Автор темы   Непрочитано 13.01.2009, 16:32
#65
VVA

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


А что в CSTU не правильного?
Цитата:
Не понимаю чем CTS отличается от замены стиля у всех объектов сразу в панели свойств
А тем, что меняет стили у ВСЕХ примитивов (в том числе в блоках, атрибутах, размерах, а так же на всех листах. Короче по всей базе чертежа)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.01.2009, 15:19
#66
Hans667

сети
 
Регистрация: 12.04.2007
SPb
Сообщений: 534
Отправить сообщение для Hans667 с помощью AIM Отправить сообщение для Hans667 с помощью Skype™


ну CTSU наверно а не CSTU. Иначе выдает что команда не известная
__________________
Errare humanum est, insipientis perseverare
Hans667 вне форума  
 
Автор темы   Непрочитано 14.01.2009, 15:33
#67
VVA

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


Исправил
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 12.02.2009, 03:42
#68
wetr

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


VVA, очередной МЕГА РЕСПЕКТИЩЕ!!!
Вот что значит человек занимается своим делом.
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)
wetr вне форума  
 
Непрочитано 26.02.2009, 15:40
#69
Sleekka

-
 
Регистрация: 24.07.2005
Москва
Сообщений: 1,453


Есть рац предложения:
функцию:
Код:
[Выделить все]
;Extensions:
;It is possible to add bulged segments too by extending the data structure "segment" with (p1 p2 bulge) for curved segments and use a line-arc resp. arc-arc intersection method for those. Then a straight segment is still representable with (p1 p2) 
;line-arc and arc-arc intersection methods are e.g. in GLNADS.C of the AutoCAD SDK 2.0 and may be easily ported to AutoLISP. Another method is with VLA where it is possible to use (vla-intersect-with obj1 obj2), which works with curves and splines too. 
;;Posted by T.Willey 
;;http://www.theswamp.org/index.php?topic=14247.15
;;Обработка всех примитивов рисунка через VLA
;; Doc - vla указатель на обрабатываемый документ
;; StyName - имя стиля
;; Unformat t - снос форматирования nil - нет
(defun ChangeAllTextObjectsStyle (Doc StyName Unformat / tempObjType IsLo ColCnt RowCnt)
(vlax-for Blk (vla-get-Blocks Doc)
 (setq IsLo (if (= (vla-get-IsLayout Blk) :vlax-true) T nil))
 (if (= (vla-get-IsXref Blk) :vlax-false)
  (vlax-for Obj Blk (setq tempObjType (vla-get-ObjectName Obj))
   (if (and Unformat (vlax-property-available-p Obj 'Textstring))
     (vla-put-Textstring Obj (substr (apply 'strcat (mapcar '(lambda(x)(strcat "\\P" x))
     (mapcar 'mip_MTEXT_Unformat (str-str-lst (vla-get-Textstring Obj) "\\P")))) 3)))
   (cond
    ((vl-position tempObjType '("AcDbText" "AcDbMText" "AcDbAttributeDefinition"))
     (vla-put-StyleName Obj StyName)(if (not IsLo)(vla-put-Layer Obj "0")))
    ((wcmatch tempObjType "AcDb*Dimension")(vla-put-TextStyle Obj StyName))
    ((= tempObjType "AcDbBlockReference")
     (foreach Att (vlax-invoke Obj 'GetAttributes)
      (vla-put-StyleName Att StyName))
     (foreach Att (vlax-invoke Obj 'GetConstantAttributes)
      (vla-put-StyleName Att StyName)))
    ((= tempObjType "AcDbTable")(setq ColCnt 0)
     (repeat (vla-get-Columns Obj)(setq RowCnt 0)
      (repeat (vla-get-Rows Obj)(vlax-invoke Obj 'SetCellTextStyle RowCnt ColCnt StyName)
       (setq RowCnt (1+ RowCnt)))
      (setq ColCnt (1+ ColCnt)))))))))
Поменять на:
Код:
[Выделить все]
;Extensions:
;It is possible to add bulged segments too by extending the data structure "segment" with (p1 p2 bulge) for curved segments and use a line-arc resp. arc-arc intersection method for those. Then a straight segment is still representable with (p1 p2) 
;line-arc and arc-arc intersection methods are e.g. in GLNADS.C of the AutoCAD SDK 2.0 and may be easily ported to AutoLISP. Another method is with VLA where it is possible to use (vla-intersect-with obj1 obj2), which works with curves and splines too. 
;;Posted by T.Willey 
;;http://www.theswamp.org/index.php?topic=14247.15
;;Modify by Sleekka
;;Обработка всех примитивов рисунка через VLA
;; Doc - vla указатель на обрабатываемый документ
;; StyName - имя стиля
;; Unformat t - снос форматирования nil - нет
(defun ChangeAllTextObjectsStyle (Doc StyName Unformat / tempObjType IsLo ColCnt RowCnt)
(vlax-for Blk (vla-get-Blocks Doc)
 (setq IsLo (if (= (vla-get-IsLayout Blk) :vlax-true) T nil))
 (if
   ;start the initial code
	;(= (vla-get-IsXref Blk) :vlax-false) 
   ;end the initial code

   
   ;;start added by Sleekka
   (and
       (= (vla-get-IsXref Blk) :vlax-false)
	(not (wcmatch (_dwgru-property-get blk 'name) "*|*")) 
       )
      ;;end added by Sleekka
  (vlax-for Obj Blk (setq tempObjType (vla-get-ObjectName Obj))
   (if (and Unformat (vlax-property-available-p Obj 'Textstring))
     (vla-put-Textstring Obj (substr (apply 'strcat (mapcar '(lambda(x)(strcat "\\P" x))
     (mapcar 'mip_MTEXT_Unformat (str-str-lst (vla-get-Textstring Obj) "\\P")))) 3)))
   (cond
    ((vl-position tempObjType '("AcDbText" "AcDbMText" "AcDbAttributeDefinition"))
     (vla-put-StyleName Obj StyName)(if (not IsLo)(vla-put-Layer Obj "0")))
    ((wcmatch tempObjType "AcDb*Dimension")(vla-put-TextStyle Obj StyName))
    ((= tempObjType "AcDbBlockReference")
     (foreach Att (vlax-invoke Obj 'GetAttributes)
      (vla-put-StyleName Att StyName))
     (foreach Att (vlax-invoke Obj 'GetConstantAttributes)
      (vla-put-StyleName Att StyName)))
    ((= tempObjType "AcDbTable")(setq ColCnt 0)
     (repeat (vla-get-Columns Obj)(setq RowCnt 0)
      (repeat (vla-get-Rows Obj)(vlax-invoke Obj 'SetCellTextStyle RowCnt ColCnt StyName)
       (setq RowCnt (1+ RowCnt)))
      (setq ColCnt (1+ ColCnt)))))))))
ну и закинуть туды функцию _dwgru-property-get
Потому что если в обрабатываемом чертеже есть внешние ссылки а у ссылок есть блоки у которых есть атрибуты, мтексты и тд, то поменять стили таких атрибутов нельзя и программа возвращает ошибку, хотя конечно посещают мысли что проще все в vl-catch-all_apply оборачивать.

Последний раз редактировалось Кулик Алексей aka kpblc, 26.02.2009 в 23:18.
Sleekka вне форума  
 
Непрочитано 26.02.2009, 23:17
#70
Кулик Алексей aka kpblc
Moderator

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


Еще один вариант фильтрации внешних ссылок:
Код:
[Выделить все]
(defun is-ent-xref (ent)
                          ;|
*    Функция проверяет, является ли переданный указатель внешней ссылкой
*    ent	указатель на проверяемый примитив
|;
  (if (setq ent (cond
                  ((= (type ent) 'vla-object) ent)
                  ((= (type ent) 'ename) (vlax-ename->vla-object ent))
                  ) ;_ end of cond
            ) ;_ end of setq
    (or (and (vlax-property-available-p ent 'isxref)
             (equal (vla-get-isxref ent) :vlax-true)
             ) ;_ end of and
        (and (= (vla-get-objectname ent "AcDbBlockReference")
                (vlax-property-available-p ent 'path)
                ) ;_ end of =
             ) ;_ end of and
        ) ;_ end of or
    ) ;_ end of if
  ) ;_ end of defun
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 27.02.2009, 09:20
#71
Sleekka

-
 
Регистрация: 24.07.2005
Москва
Сообщений: 1,453


Алексей, вариант, не плохой, но я говорил не об этом.
Дело в том что блоки находящиеся внутри внешней ссылки, светят в текущем чертеже с именами примерно такими: Чертеж1(вертикальная палочка)Блок1. Дак вот эти блоки на isXref возвращают nil, и рассматриваются как блоки текущего чертежа, но у этих блоков нельзя изменить ни одного свойства.
Sleekka вне форума  
 
Автор темы   Непрочитано 27.02.2009, 10:11
#72
VVA

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


Добавил в #1 версию 1.3. Толком еще не тестировал, поэтому пока не убрил 1.2.
Помимо НЕ обработки блоков и текстовых стилей внешних ссылок добавил еще один запрос на игнорируемые стили (т.е. те, трогать которые не нужно). Если нужно причесать все стили, в 1-м запросе жмем отмена.
> Кулик Алексей aka kpblc По поводу еще одного варианта фильтрации всего, что приходит от внешних ссылок. Я использую snvalid. Имена с символом "|" она не пропускает.
Отсечь текстовые стили внешних ссылок : (vl-remove-if-not '(lambda(x)(snvalid x))(tablelist "STYLE"))
Отсечь слои внешних ссылок : (vl-remove-if-not '(lambda(x)(snvalid x))(tablelist "LAYER"))
ну и так далее
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 27.02.2009, 12:35
#73
Кулик Алексей aka kpblc
Moderator

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


Скажу честно - код сейчас смотреть и по-нормальному расковыривать нет времени, поэтому практически оффтоп: просто я сначала запрашиваю все обрабатываемые элементы, из них исключаю внешние ссылки. Потом, если попались блоки, по "внутренностям" блоков опять же с исключением внешних ссылок, вставленных в блок. Добавляя полученный состав к общему списку. Ну и так далее, чистой рекурсией.
P.S. У меня в 2008-м удавалось "поиграться" с составом внешних ссылок текущего документа, и даже что-то там я менял Но это до первой перезагрузки ссылок Потом я просто вставил фильтрацию и подобные извращения прекратились.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 28.02.2009, 14:09
#74
Sleekka

-
 
Регистрация: 24.07.2005
Москва
Сообщений: 1,453


в 1.3 ошибка
в команде C:CTSU
Код:
[Выделить все]
(ChangeAllTextObjectsStyle (vla-get-activedocument (vlax-get-acad-object)) st t))
передается 3 аргумента а требуется 4.
Sleekka вне форума  
 
Автор темы   Непрочитано 16.03.2009, 20:06
#75
VVA

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


Цитата:
в 1.3 ошибка
в команде C:CTSU
Исправил версию 1.3. Обновил пост #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 06.04.2009, 16:32
#76
timer


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


Кто-нибудь пробовал такой лисп написать и к размерным стилям?
timer вне форума  
 
Непрочитано 06.04.2009, 16:58
#77
Sleekka

-
 
Регистрация: 24.07.2005
Москва
Сообщений: 1,453


там не нужно...
Sleekka вне форума  
 
Непрочитано 06.04.2009, 22:23
#78
timer


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


Почему не нужно? Было бы неплохо.
timer вне форума  
 
Непрочитано 06.04.2009, 22:55
#79
Sleekka

-
 
Регистрация: 24.07.2005
Москва
Сообщений: 1,453


Изучи стандартные средства автокада - там их достаточно...
Sleekka вне форума  
 
Непрочитано 06.05.2009, 12:02
#80
Hans667

сети
 
Регистрация: 12.04.2007
SPb
Сообщений: 534
Отправить сообщение для Hans667 с помощью AIM Отправить сообщение для Hans667 с помощью Skype™


а ширину МТекста сразу на всех примитивах убить не удастся?или обнулить допустим.
__________________
Errare humanum est, insipientis perseverare
Hans667 вне форума  
 
Автор темы   Непрочитано 06.05.2009, 14:32
#81
VVA

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


Hans667, Это подойдет? Взято здесь
Код:
[Выделить все]
;; Author unknown, modifications by CAB
;;
;;;********************************************************************; 
;;; Change Mtext width                                                 ; 
;;;--------------------------------------------------------------------; 
;;; This function will allow you to change the Mtext width of selected ; 
;;; text. I use this to help in my drafting duties. I hate having to   ; 
;;; do things repetitavly, so this helps me eliaviate some of that.    ; 
;;;********************************************************************; 
(defun C:ChangeTW (/ Obj-list Obj NewWidth ssget->vla-list)
  (vl-load-com)
  ;;===================================================================; 
  ;; SSGET->VLA-LIST                                                   ; 
  ;;-------------------------------------------------------------------; 
  (defun ssget->vla-list (selection-set / index vla-list)
    (setq index (if selection-set (1- (sslength selection-set)) -1))
    (while (>= index 0)
      (setq vla-list (cons (vlax-ename->vla-object
                             (ssname selection-set index)) vla-list)
            index    (1- index)
      )
    )
    vla-list
  )
;;;===================================================================; 

  (vla-StartUndoMark (vla-Get-ActiveDocument (vlax-Get-Acad-Object)))
  (setq Obj-list (ssget->vla-list (ssget '((0 . "MTEXT")))))
  (setq NewWidth (getdist ">>:Enter new Mtext width: "))
  (mapcar
    '(lambda (obj)
       (if (vlax-property-available-p Obj 'Width)
         (vlax-put-property Obj 'Width NewWidth)
         (vlax-Release-Object Obj)
       )
     )
    Obj-list
  )
  (prompt "\>>:Objects Changed, program complete.")
  (vla-EndUndoMark (vla-Get-ActiveDocument (vlax-Get-Acad-Object)))
  (princ)
)
(prompt "\n***  Mtext width change loaded, Enter ChangeTW to run.  ***")
(princ)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 06.05.2009, 15:01
#82
Hans667

сети
 
Регистрация: 12.04.2007
SPb
Сообщений: 534
Отправить сообщение для Hans667 с помощью AIM Отправить сообщение для Hans667 с помощью Skype™


так это надо в код добавить или отделиным лиспом?
__________________
Errare humanum est, insipientis perseverare
Hans667 вне форума  
 
Автор темы   Непрочитано 06.05.2009, 16:57
#83
VVA

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


Можно и так и так. Как больше нравится
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 03.06.2009, 21:01
#84
Рyslan


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


Всем привет. Такой вопрос. Работаем с иностранцами, у них под автокад есть свой профиль, там блоки слои много чего. Русский текст печатается с английской раскладкой. когда чертеж открываешь в их профиле все нормально, текст читается, но он был только под 2006 акад. а в русском 2008 вместо русского текста абракадабра из латинских букв. может есть какие то методы борьбы с этим? text- ntrcn, а должно быть текст
Рyslan вне форума  
 
Автор темы   Непрочитано 04.06.2009, 10:43
#85
VVA

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


Рyslan,
1. Профиль можно экспортировать/ импортировать
2. Твой вариант похож на этот
Цитата:
Чтобы не создавать тему: возможен-ли лисп (а может, уже где-то есть) для перевода текста с английской раскладки клавиатуры на русскую. Т.е. имеется куча файлов, в которых как-бы набирали по-русски текст, забыв переключить язык.
Решение в посте #10
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 04.06.2009, 12:18
#86
Рyslan


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


я пробовал экспортировать, пока не получается. за лисп спасибо, буду пробовать
Рyslan вне форума  
 
Непрочитано 06.10.2009, 12:04
#87
vovan981


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


Всем привет. У меня проблема со шрифтом, много говорить не буду, кидаю файл и скриншоты в формате .doc. Верхний файл с ужирненным текстом, как справиться с этой проблемой?
Вложения
Тип файла: dwg
DWG 2007
Шрифт.dwg (266.6 Кб, 5457 просмотров)
Тип файла: doc Шрифт.doc (233.5 Кб, 202 просмотров)
vovan981 вне форума  
 
Непрочитано 04.02.2010, 09:26
#88
wetr

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


VVA, после "утюжки" файла с помощью CTSU местами не стираются куски из форматирования. И если до проходки элементы форматирования не видны, то после - становятся видны.
Прикладываю проблемный файл с мультитекстом.
Вложения
Тип файла: dwg
DWG 2004
Пример.dwg (43.6 Кб, 5463 просмотров)
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)
wetr вне форума  
 
Автор темы   Непрочитано 05.02.2010, 11:09
#89
VVA

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


Обновил версию 1.3 Не помню, для чего оставил 1.2 Наверное нужно удалить?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.02.2010, 13:58
#90
wetr

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


VVA, спасибо! В понедельник буду массированно тестировать!
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)
wetr вне форума  
 
Автор темы   Непрочитано 05.02.2010, 17:45
#91
VVA

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


Чтобы в понедельник не было скучно добавил в #1 StripMtext v5
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.02.2010, 20:46
#92
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, поясните для чего новый лисп в двух словах, а то я пропустил все...(
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 05.02.2010, 20:51
#93
VVA

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


Ну так вроде на картинке все показано. В двух словах StripMtext так же убирает форматирование мтекста, но можно выбирать какой тип форматирования убирать.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 22.02.2010, 18:29
#94
Valery Brelovsky

Инженер дорожник
 
Регистрация: 22.10.2007
Израиль
Сообщений: 1,848


Я как то опоздал к раздаче. И имеется несколько вопросов. Первый вопрос работает ли Лисп в 2000. И чем отличаются файлы 1,2 и1,3.
Valery Brelovsky вне форума  
 
Автор темы   Непрочитано 22.02.2010, 19:12
#95
VVA

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


Valery Brelovsky, Никаких специальных мер, чтобы он не работал в 2000 не предпринималось. Проще всего попробовать. По поводу версий я написал в #89. Наверное версию 1.2 нужно удалить.

*** Добавлено. Про версию 1.2 нашел ответ в #72
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.02.2010, 08:20
#96
Valery Brelovsky

Инженер дорожник
 
Регистрация: 22.10.2007
Израиль
Сообщений: 1,848


Но почему то вчера на работе не сработал в 2000. Делал глобальную замену всех стилей на один и результат нулевой. Вечером выложу файл на котором пробовал.

" CTS - замена текстовых стилей у всех объектов на выбранный
CSTU - замена текстовых стилей у всех объектов на выбранный с деформатирование мтексов
TSUP - изменение начертания всех существующих ТЕКСТОВ, АТРИБУТОВ во ВСЕХ примитивах, включая блоки, выбранного стиля.
Устанавливается по определению стиля начертание, сжатие, угол наклона"

Перечитал форум и понял что не правильно использовал Лисп. Посчитал что CTS не изменяет тексты атрибутов и использовал TSUP. Соответственно результат был нулевой. Т.е. CTS он меняет стили в блоках и атрибутах?

Последний раз редактировалось Valery Brelovsky, 24.02.2010 в 07:31.
Valery Brelovsky вне форума  
 
Автор темы   Непрочитано 24.02.2010, 16:56
1 | #97
VVA

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


Цитата:
Сообщение от Valery Brelovsky Посмотреть сообщение
Т.е. CTS он меняет стили в блоках и атрибутах?
Должен менять стиль везде (в модели, листе, описании блока) и во всем, что его (стиль) имеет в своих свойствах: тексты, мтексты, атрибуты, определения атрибутов, размеры, таблицы.
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 24.02.2010 в 18:07. Причина: орфография
VVA вне форума  
 
Непрочитано 24.02.2010, 17:41
#98
Valery Brelovsky

Инженер дорожник
 
Регистрация: 22.10.2007
Израиль
Сообщений: 1,848


Спасибо. Уже вроде разобрался.
Valery Brelovsky вне форума  
 
Непрочитано 03.03.2010, 07:14
#99
Voltos

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


А у меня выходит следующее, что не так?
http://forum.dwg.ru/attachment.php?a...1&d=1267589625
Миниатюры
Нажмите на изображение для увеличения
Название: 1111.jpg
Просмотров: 435
Размер:	17.2 Кб
ID:	34571  
__________________
Сделать лужу - одно,.. а вот наступить в чужую - совсем другое!
Voltos вне форума  
 
Автор темы   Непрочитано 03.03.2010, 22:55
#100
VVA

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


по картинке мне, например, не понятно в чем проблема. Лучше приложи файлик посмотреть
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 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,788
<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,788
<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,788
<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,788
<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,605


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

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей 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,605


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

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей 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,788
<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
Просмотров: 280
Размер:	82.4 Кб
ID:	48745  

Последний раз редактировалось pan, 23.11.2010 в 17:32.
pan вне форума  
 
Непрочитано 24.11.2010, 00:22
#121
Кулик Алексей aka kpblc
Moderator

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


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

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

Конструктор
 
Регистрация: 19.12.2005
Подольск
Сообщений: 54
<phrase 1= Отправить сообщение для 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,788
<phrase 1= Отправить сообщение для 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,788
<phrase 1= Отправить сообщение для 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
Просмотров: 479
Размер:	67.8 Кб
ID:	69535  Нажмите на изображение для увеличения
Название: mtext trabl 2.jpg
Просмотров: 341
Размер:	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,788
<phrase 1= Отправить сообщение для 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,788
<phrase 1= Отправить сообщение для 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,034
<phrase 1= Отправить сообщение для Yuzer с помощью Skype™


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

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


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

Мозговой штурм
 
Регистрация: 26.10.2008
Рідна ненька - Україна, Харків
Сообщений: 5,034
<phrase 1= Отправить сообщение для 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,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


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

Мозговой штурм
 
Регистрация: 26.10.2008
Рідна ненька - Україна, Харків
Сообщений: 5,034
<phrase 1= Отправить сообщение для 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 вне форума  
 
Непрочитано 29.11.2012, 14:40
#141
Shoorup


 
Регистрация: 16.09.2006
Минск
Сообщений: 1,587
<phrase 1= Отправить сообщение для Shoorup с помощью Skype™


А как бы еще сделать поправку на определенное значение после замены текстового стиля?
Подробнее:
например имеется "стиль1" и вставленные в чертеж тексты с разными коэффициентами сжатия (КСЖ). 0.8 ; 0.765 ; 0.95 и т.д. естественно и с разной высотой текста и др. свойствами.
и имеется "стиль2" под который нужно все перегнать, НО вдобавок ко всем КСЖ прибавить поправку 0.2. Т.е. был текст с КСЖ 0.8 стал 1.0. был 0.765 стал 0.965 и т.д.
__________________
Поезд который устал от ржавого здравомыслия рельсов...
Shoorup вне форума  
 
Непрочитано 23.05.2013, 10:33
#142
sertor

Геодезист
 
Регистрация: 23.05.2012
Ухта
Сообщений: 1,340


Доброго времени суток. Уважаемые форумчане, возник вопрос такого плана. Прислан чертеж от субподрядчика. При использовании вышеописанной программы выполнил очистку форматирования Мтекста и замену текстового стиля. Но, как оказалось, полностью решить вопрос не удалось. В чертеже остались символы "№" с начертанием стиля автора чертежа. Может быть в используемом шрифте отсутствует "№"? Но тогда как сделать замену этой части текста? Программа AutoCAD Civil3D 2012 SP2. Спасибо.
Миниатюры
Нажмите на изображение для увеличения
Название: Скрин1.png
Просмотров: 187
Размер:	4.9 Кб
ID:	103900  
Вложения
Тип файла: dwg
DWG 2007
Чертеж1.dwg (340.9 Кб, 5482 просмотров)
__________________
Как-то так.
sertor вне форума  
 
Непрочитано 27.05.2013, 05:58
#143
Киренга


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


Подскажите, пожалуйста, а как выполнить задачу, решаемую командой TSUP, применимо к таблицам?
Киренга вне форума  
 
Непрочитано 29.05.2013, 13:02
#144
sertor

Геодезист
 
Регистрация: 23.05.2012
Ухта
Сообщений: 1,340


Ну и в продолжение #142. Возможно ли откорректировать программу (внести дополнение) так, чтобы обрабатывались только однострочные тексты (поскольку некоторые многострочные "ломаются")? И еще такой момент. В предыдущих постах поднимался вопрос об автоматической загрузке стиля текста при открытии "чужого" чертежа. Так вот, к чему я веду. Может быть есть такая возможность заложить в самой программе указание стиля текста и шрифта по умолчанию и замену непосредственно при открытии чертежа "со стороны"? (это конечно в идеале). В нашей организации, (я думаю и не только) используют один стиль текста с одной высотой и начертанием (в пространстве модели). Спасибо.
__________________
Как-то так.
sertor вне форума  
 
Автор темы   Непрочитано 31.05.2013, 12:47
#145
VVA

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


Нужно подумать. Пока у меня нет времени. Где-то числа 17.06 планирую, что появится немного больше свободного времени, гляну что можно сделать
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 18.06.2013, 23:10
1 | #146
VVA

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


Цитата:
Сообщение от sertor Посмотреть сообщение
При использовании вышеописанной программы выполнил очистку форматирования Мтекста и замену текстового стиля. Но, как оказалось, полностью решить вопрос не удалось. В чертеже остались символы "№" с начертанием стиля автора чертежа. Может быть в используемом шрифте отсутствует "№"?
В шрифте simplex.shx отсутствует символ №.
Цитата:
Сообщение от sertor Посмотреть сообщение
Но тогда как сделать замену этой части текста?
1. Использовать шрифт с символом №
2. перед очисткой форматирования и заменой текстового стиля набрать в командной строке _find Заменить № на N
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.08.2013, 16:46
#147
mechos

Ведущий архитектор
 
Регистрация: 17.01.2013
Москва
Сообщений: 31


Заголовок окна во всех командах читается некорректно (видимо проблема с кодировкой)

Это Windows 8 rus (русифицированная), чистая, без каких-либо надстроек и твикеров, AutoCAD 2013 x64 английский, так же абсолютно чистый.

Что там написано разобрался, заглянув в lsp файл. Просто довожу до сведения обнаруженную неприятность
Изображения
Тип файла: jpg CTS_Window.jpg (95.8 Кб, 1152 просмотров)

Последний раз редактировалось mechos, 14.08.2013 в 17:11.
mechos вне форума  
 
Непрочитано 14.08.2013, 16:58
#148
Кулик Алексей aka kpblc
Moderator

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


mechos, AutoCAD, поди, английский?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 14.08.2013, 17:10
#149
mechos

Ведущий архитектор
 
Регистрация: 17.01.2013
Москва
Сообщений: 31


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
mechos, AutoCAD, поди, английский?
Да ! Это нормально для него ? До этого работал со сторонними скриптами только на английском, соответственно, такая проблема возникла первый раз.
mechos вне форума  
 
Автор темы   Непрочитано 14.08.2013, 17:56
#150
VVA

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


Цитата:
Сообщение от mechos Посмотреть сообщение
Да ! Это нормально для него ?
AutoCad 2013 En, проблемы с кодировкой в программах
Похоже что пока нормально, к сожалению.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 30.08.2013, 01:07
#151
alldmc


 
Регистрация: 02.07.2006
Ростов
Сообщений: 276


Выполнил форматирование текста, но некоторый текст остался жирным, а некоторый отформатировался нормально, хотя стиль у всех одинаковым стал. Как убрать жирный текст?
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.png
Просмотров: 215
Размер:	49.5 Кб
ID:	110816  
alldmc вне форума  
 
Непрочитано 30.08.2013, 01:26
#152
Nike

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


alldmc, координату Z у жирных текстов обнули
Nike вне форума  
 
Непрочитано 01.10.2013, 15:41
#153
lemurz9


 
Регистрация: 17.04.2012
Нижний Новгород
Сообщений: 19


Добрый день!
Подскажите, пожалуйста, возник вопрос по этой программке:
воспользовалась командой _TSUP, предварительно задав для своего тестового стиля наклон 15 и коэф-т сжатия 0,8. В результате, угол наклона применился ко всем текстовым объектам, а сжатие нет. В чем может быть дело?
Если открыть этот мтекст и просто выбрать тот же самый текстовый стиль, то сжатие срабатывает. Но не открывать же их все. Файлик прилагается.
Вложения
Тип файла: dwg
DWG 2007
Чертеж1.dwg (1.01 Мб, 4520 просмотров)

Последний раз редактировалось lemurz9, 01.10.2013 в 16:18.
lemurz9 вне форума  
 
Непрочитано 18.11.2013, 11:42
#154
pentaone


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


Добрый день, скажите а данная программа не заменяет текстовый стиль у мультивыноски?
pentaone вне форума  
 
Автор темы   Непрочитано 21.11.2013, 15:02
#155
VVA

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


Цитата:
Сообщение от pentaone Посмотреть сообщение
Добрый день, скажите а данная программа не заменяет текстовый стиль у мультивыноски?
Уже заменяет. Обновил до версии 1.7 Правда пока только в командах CTS и CTSU
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 25.11.2013, 17:17
#156
zvyagaaa


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


А можно сделать, чтобы и в настройках размерных стилей тоже менялся текстовый стиль?
zvyagaaa вне форума  
 
Непрочитано 13.12.2013, 19:54
#157
kifa


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


Добрый день! А форматирование в многострочных атрибутах, как я понимаю, это лисп не обрабатывает?
kifa вне форума  
 
Автор темы   Непрочитано 16.12.2013, 16:48
#158
VVA

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


kifa, Поподробнее. Какая именно команда. Желательно приложить dwg c примером
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.12.2013, 18:38
#159
kifa


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


TSUP вот это командой пробовал.
http://forum.dwg.ru/showpost.php?p=1...&postcount=211 вот в этой теме боролся с глюком.
в итоге заменил шрифт и вычистил все руками. Почему то не убрать форматирование было с помощью команды
kifa вне форума  
 
Непрочитано 07.07.2014, 09:18
#160
Alexander88


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


CTS -CTSU - TSUP - purge - CTS -CTSU - TSUP - purge - как было 30 стилей, так и осталось...Как они не удалялись, так и не удаляются....
Alexander88 вне форума  
 
Автор темы   Непрочитано 07.07.2014, 10:56
#161
VVA

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


Alexander88,
1. Файл где?
2. Не факт что они должны удалиться. Например - прокси объеты Там речь идет про блоки и типы линий, но это справедливо и для текстовых стилей
3. Поэтому файл где?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 07.07.2014, 11:11
#162
Alexander88


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


Файл в два раз больше допустимого, архитектура не автокаде сделана...REMOVEALLPROXY не особо помогло, больше помогли overkill, aectocad.
Alexander88 вне форума  
 
Непрочитано 07.07.2014, 11:34
#163
Alexander88


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


Прошелся еще раз по прокси - не хотят удаляться...
Вложения
Тип файла: dwg
DWG 2007
Сводный план - 1105.dwg (9.02 Мб, 2913 просмотров)
Alexander88 вне форума  
 
Непрочитано 07.07.2014, 11:56
#164
Кулик Алексей aka kpblc
Moderator

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


Alexander88, во-первых, в файле полно ошибок. Во-вторых, в файле есть следы СПДС GraphiCS. В третьих, после нормальной очистки файл "худеет" в полтора раза
Вложения
Тип файла: dwg
DWG 2007
Сводный план - 1105(CAD2009).dwg (6.10 Мб, 2901 просмотров)
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 07.07.2014, 12:04
#165
Alexander88


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


Проверял
Код:
[Выделить все]
Команда: _audit
Исправить все обнаруженные ошибки? [Да/Нет] <Н>: Д
Проверка заголовка
Проверка таблиц
Проверка объектов, проход 1
Проход 1: проверено объектов: 131000
Проверка объектов, проход 2
Проход 2: проверено объектов: 131000
Проверка блоков
 Проверено блоков: 332
Проверка AcDsRecords
Всего найдено ошибок: 0, исправлено: 0
Стерто 0 объектов
Выполнял все рекомендации (изначально было 40 МБ)
Как Вы еще в 1,5 сжали?
Кстати текстовые стили по-прежнему остались..
Alexander88 вне форума  
 
Непрочитано 07.07.2014, 12:26
#166
Кулик Алексей aka kpblc
Moderator

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


Если остались - значит, они где-то используются. Учитывая, сколько в файле блоков копирования-вставки, ничего удивительного. Кстати, блоки вида *X тоже надо бы вычищать
А чистил я стандартно...
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 07.07.2014, 12:29
#167
Alexander88


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


То есть "CTS - замена текстовых стилей у всех объектов на выбранный" - мне не поможет? Нужно ручками работать?
Alexander88 вне форума  
 
Непрочитано 07.07.2014, 12:35
#168
Кулик Алексей aka kpblc
Moderator

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


Цитата:
Сообщение от Alexander88 Посмотреть сообщение
То есть "CTS - замена текстовых стилей у всех объектов на выбранный" - мне не поможет? Нужно ручками работать?
Чего не знаю, того не знаю.
P.S. Может быть, толику порядка добавит команда _.attsync
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 07.07.2014, 13:01
#169
VVA

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


Команда _-wblock с режимом * уменьшила размер на 30%
Команда CTS заменила текстовые стили
Вложения
Тип файла: dwg
DWG 2007
556644.dwg (5.93 Мб, 2856 просмотров)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 30.01.2015, 09:57
#170
BIKE-off


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


Файл экспортирован из Компаса. Весь многострочный текст содержит внутреннее форматирование вида "\H3.5;\W0.965;\Q15;\Q15;\H5.0" и подобное. При использовании команды CTSU (TSUP для блоков и атрибутов) внутреннее форматирование сбрасывается и высота текста берётся из свойств текстового объекта. Значения высоты не совпадают. Приходится всё править руками. Дело осложняется тем, что при экспорте создаётся большое количество блоков, содержащих текст, а туда так просто не доберёшься.

Есть ли возможность быстрого редактирования файла с сохранением значения высоты текста из внутреннего форматирования?
Файл примера прикладываю.
Вложения
Тип файла: dwg
DWG 2000
Текст.dwg (113.5 Кб, 2036 просмотров)
BIKE-off вне форума  
 
Непрочитано 07.04.2015, 15:37
#171
A.Hillys


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


Столкнулся со следующим - для некоторых мультивыносок не сбрасывается форматирование текста, а именно цвет. Для каких-то - сбрасывается.
Чем эти два типа отличаются - не пойму, прилагаю пример и прошу помощи. Сбрасывал как вручную, через контекстное меню в редакторе текста , так и с помощью StripMtext.
Вложения
Тип файла: dwg
DWG 2010
Фоматирование выносок.dwg (33.9 Кб, 1652 просмотров)
A.Hillys вне форума  
 
Автор темы   Непрочитано 07.04.2015, 23:02
#172
VVA

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


Цитата:
Сообщение от A.Hillys Посмотреть сообщение
Чем эти два типа отличаются - не пойму
Я так же не могу понять в чем разница.
Пока заметил, что если кисточкой ( _matchprop ) наследовать свойства, то он становится нормальным
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 08.04.2015, 10:26
#173
A.Hillys


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


Да, это я тоже заметил.
Вдруг (возможно, после применения unnormalize (переопределение свойств объектов, здесь же, на форуме, найденном) все мультивыноски в черетеже стали такими, как мы видим.
С другой стороны, в испытуемом файле при применении unnormalize нормальная выноска остается нормальной.
A.Hillys вне форума  
 
Непрочитано 01.06.2015, 12:51
#174
posetitel


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


скажите, существует ли возможность обрабатывать только выделенные объекты с текстом, а не весь текст во всем файле?
posetitel вне форума  
 
Непрочитано 01.06.2015, 16:21
#175
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от posetitel Посмотреть сообщение
скажите, существует ли возможность обрабатывать только выделенные объекты с текстом, а не весь текст во всем файле?
так и работает, после вызова просит выбрать объекты... или у вас иначе?
freese вне форума  
 
Непрочитано 01.06.2015, 16:27
#176
posetitel


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


иначе. предлагается выбрать игнорируемые стили, про выбор объектов ничего не спрашивают.
posetitel вне форума  
 
Непрочитано 01.06.2015, 16:34
#177
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от posetitel Посмотреть сообщение
иначе. предлагается выбрать игнорируемые стили, про выбор объектов ничего не спрашивают.
а вы пробовали запускать файл StripMtext v5-0c.lsp , а не change text styles
freese вне форума  
 
Непрочитано 01.06.2015, 16:50
#178
posetitel


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


по демонстрирующей картинке я понял, что эта прога для работы с мультитекстом, причем для мультитекстов сначала надо будет выставить стиль, а потом внутреннее редактирование программа уже приведет к стилю, а у меня в чертежах есть и просто текст и мультитекст.
posetitel вне форума  
 
Непрочитано 01.06.2015, 17:01
#179
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от posetitel Посмотреть сообщение
по демонстрирующей картинке я понял, что эта прога для работы с мультитекстом
правильно поняли, т.к. в автокаде обычно только мтекст имеет еще внутреннее форматирование (это форматирование программа и исправляет), а однострочный текстдостаточно выбрать и выбрать стиль

Последний раз редактировалось freese, 01.06.2015 в 17:07.
freese вне форума  
 
Непрочитано 01.06.2015, 17:20
#180
posetitel


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


вот и хочется, чтобы change text styles (cts) 1.7.LSP мог менять не только сразу весь текст во всем чертеже, но и отдельно в выделенном фрагменте чертежа
posetitel вне форума  
 
Непрочитано 01.06.2015, 17:23
#181
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


что вы хотите от change text styles? Чтобы изменить стиль, лиспов не надо, достаточно выбрать фрагмент и выбрать стиль
freese вне форума  
 
Автор темы   Непрочитано 01.06.2015, 18:01
#182
VVA

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


Цитата:
Сообщение от posetitel Посмотреть сообщение
существует ли возможность обрабатывать только выделенные объекты с текстом,
Теоретически такая возможность есть. В программе - нет. Как вариант: вырезать выделенные объекты с текстом и вставить в новый файл, обработать CTS, затем вернуть обратно
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 01.06.2015, 19:25
#183
posetitel


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


freese, change text styles меняет стили и в блоках и на размерах, простым выбором фрагмента и выбором стиля этого не добьешься.
VVA, а планируется ли доработка лиспа до появления такой возможности?
posetitel вне форума  
 
Непрочитано 09.10.2015, 11:08
#184
CHILD_11


 
Регистрация: 10.03.2011
СПб
Сообщений: 101


команда TSUP не изменила текст внутри блоков в соответствии с текущим описанием стиля...
если захожу в блок, выбираю МТекст и "изменяю" его стиль вручную (в кавычках написал, потому что на самом-то деле стиль не меняю, просто еще раз выбираю тот же, что и был), то он обновляется в соответствии с новым описанием.
а вот через TSUP - нет.

----- добавлено через 18 сек. -----
2015 автокад
CHILD_11 вне форума  
 
Автор темы   Непрочитано 09.10.2015, 21:26
#185
VVA

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


CHILD_11, выложи файл с примером
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 12.10.2015, 10:20
#186
CHILD_11


 
Регистрация: 10.03.2011
СПб
Сообщений: 101


VVA, поправка информации: команда не меняет даже текст вне блока. Когда запускал команду в прошлый раз, то уже вручную поменял весь внеблоковый МТекст (поэтому не заметил, что не сработало).

Может, дело в том, что текст аннотативный? Файл прикладываю.
Вложения
Тип файла: dwg
DWG 2010
Чертеж1.dwg (77.1 Кб, 873 просмотров)
CHILD_11 вне форума  
 
Непрочитано 16.10.2015, 11:40 VVA
#187
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


Возможно ли модифицировать UNF-MTEXT для работы в том числе с многострочными атрибутами?

P.S. Для исключения непечатаемых символов форматирования мтекста.
Вложения
Тип файла: dwg
DWG 2010
как-применить-UNF-MTEXT-к-многострочным-атрибутам---.dwg (127.8 Кб, 815 просмотров)
__________________
tc71
perpetule вне форума  
 
Непрочитано 30.10.2015, 15:05 StripMtext
#188
fillbear


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


Подскажите, почему не работает команда StripMtext?
Файл загружается, команда запущена, идет выбор объектов, настройка параметров, а результат выдает ошибку:

Command: _smt
StripMtext v5.0c
Select objects: Specify opposite corner: 4 found

Select objects:

StripMtext Error: bad argument type: VLA-OBJECT nil


Команды файла "change text styles (cts) 1.7.LSP" работают все, включая реактор.
Спасибо.
fillbear вне форума  
 
Непрочитано 04.12.2015, 09:35
#189
nitc


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


Спасибо автору, это гениально!
nitc вне форума  
 
Непрочитано 27.01.2016, 10:14
#190
EVgen2015


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


Здравствуйте, зашел в тупик при использовании lisp. У меня стоит autocad 2014, при попытке поменять текст с помощью CTSU - загружается lisp, но при этом ничего не меняется. В 2008 все работает. Если нужно могу скинуть файл.
EVgen2015 вне форума  
 
Непрочитано 27.01.2016, 14:06
#191
sertor

Геодезист
 
Регистрация: 23.05.2012
Ухта
Сообщений: 1,340


Цитата:
Сообщение от EVgen2015 Посмотреть сообщение
Если нужно могу скинуть файл.
Приложите файл. Пока это все голословно.
__________________
Как-то так.
sertor вне форума  
 
Непрочитано 28.01.2016, 10:34
#192
EVgen2015


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


Вот, прошу. Может это проблема 2014?
Вложения
Тип файла: dwg
DWG 2004
Пример.dwg (44.7 Кб, 178 просмотров)
EVgen2015 вне форума  
 
Непрочитано 28.01.2016, 10:49
#193
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 691


Цитата:
Сообщение от EVgen2015 Посмотреть сообщение
Может это проблема 2014?
Работает нормально и в 2014 и в 2015
kacugu вне форума  
 
Непрочитано 28.01.2016, 13:09
#194
EVgen2015


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


Спасибо, значит проблемы у меня.
EVgen2015 вне форума  
 
Непрочитано 19.04.2016, 16:40
#195
LKiNg


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


Здравствуйте!
Спасибо за замечательную программку!

Есть одна проблемка - текст неизвестно как был создан - но при применении СTSU диаметры, знак Фи и верхний индекс превращаются в вопросы...

99* - (320 кгс/м\U+00B2);
принят {\Fspds|c0;\U+03B3}n=1,2.
-0,3°С.
78 \U+2205325х8мм, \U+2205159х8мм

Если бы они были сделаны %%d - проблем бы не было... А вот квадратный (верхний индекс 2) - тоже вопросом
Вложения
Тип файла: dwg
DWG 2013
Чертеж2.dwg (30.7 Кб, 14 просмотров)

Последний раз редактировалось LKiNg, 19.04.2016 в 18:02.
LKiNg вне форума  
 
Автор темы   Непрочитано 20.04.2016, 18:33
#196
VVA

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


LKiNg, Текст нормальный. Проблема известная, у Автодеска никак руки не дойдут пофиксить
Цитата:
20.04.2016 Добавлена функция CTS:GET-TEXTSTRING (как замена vla-get-textstring. Т.к. неверно возвращает строку при наличии юникод символов)
http://forums.autodesk.com/t5/visual...s/td-p/4365165
Обновил #1 до версии 1.8
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 12.01.2017, 10:31
#197
Tamara_N


 
Регистрация: 20.10.2016
Москва
Сообщений: 13


А у меня при применении команд CTSU и UNF-MTEXT в начале деформатированного текста вылезает примерно такая строчка: xl1,sm0.8,t8;
Думала, коды форматирования, посмотрела - вроде не так они выглядят, да и команды эти их убирать должны.
Подскажите, что это и как от него избавиться.

P.S. Strip M-Text попробовала, хорошо работает, никаких лишних символов.

Последний раз редактировалось Tamara_N, 12.01.2017 в 13:26.
Tamara_N вне форума  
 
Непрочитано 12.01.2017, 16:14
#198
skkkk

AutoCAD_2008->2011
 
Регистрация: 20.03.2008
Московская область
Сообщений: 2,260


Tamara_N, прикрепите к посту файл, в котором происходят указанные события. Достаточно оставить в нем только "больные" текстовые объекты до применения команд.
UnFormat String от Lee Mac пробовали?
skkkk вне форума  
 
Непрочитано 12.01.2017, 17:33
#199
Tamara_N


 
Регистрация: 20.10.2016
Москва
Сообщений: 13


UnFormat String не пробовала. StripMtext хорошо сработал, но, с одной стороны, change text styles мне кажется очень удобным, а с другой - интересно, в чем все-таки дело))
Файл с текстом прилагается.
Вложения
Тип файла: dwg
DWG 2010
Текст.dwg (73.9 Кб, 14 просмотров)
Tamara_N вне форума  
 
Непрочитано 16.01.2017, 09:06
#200
Tamara_N


 
Регистрация: 20.10.2016
Москва
Сообщений: 13


А вот так текст выглядит после применения команды UNF-MTEXT
Миниатюры
Нажмите на изображение для увеличения
Название: Text.JPG
Просмотров: 112
Размер:	50.0 Кб
ID:	182125  
Tamara_N вне форума  
 
Непрочитано 14.02.2017, 09:31
#201
Genf

В свободном плавании
 
Регистрация: 12.09.2009
г. Краснодар
Сообщений: 268


Есть ли решение по замене одного шрифта на другой не открывая файлы (пакетная замена)?

Все файлы созданы на основе единого шаблона с одним текстовым стилем, в котором прописан конкретный шрифт - вот его то и нужно заменить на другой.

Задача в замене шрифта в не одной сотне чертежей. Открывать каждый файл и менять ручками долго будет.
__________________
День прожит зря, если за день ты не узнал ничего нового

Последний раз редактировалось Genf, 14.02.2017 в 09:48. Причина: Подробности
Genf вне форума  
 
Непрочитано 15.02.2017, 11:55
1 | #202
Кулик Алексей aka kpblc
Moderator

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


Два варианта. Подключить файл стандартов dws или использовать механизм ObjectDBX (http://autolisp.ru/2010/04/08/procee...tive-document/ + http://autolisp.ru/2015/10/20/objectdbx-limits/ )
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 12.04.2017, 14:46
#203
b00


 
Регистрация: 21.10.2008
Петербург
Сообщений: 19
<phrase 1=


Можно как-то дополнить функционал CTS/CTSU/TSUP, добавив возможность назначить не только стиль, но и цвет всем текстовым объектам?
b00 вне форума  
 
Непрочитано 22.11.2017, 13:37
#204
divanci


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


с какими текстовыми объектами работает cts. Атрибуты блоков поддерживаются?
divanci вне форума  
 
Автор темы   Непрочитано 23.11.2017, 12:43
#205
VVA

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


divanci, Нажми на + в 1-м посте. Под словосочетание "у всех объектов" попадают и атрибуты блоков
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 24.12.2017, 23:47
#206
Netlog


 
Регистрация: 05.09.2005
Ростов на Дону
Сообщений: 69
<phrase 1=


Акад2007
В ячейках таблицы, в каждой, применено принудительное форматирование текста.
Команда CTSU визуально приводит таблицы в норму, но в ячейках остаются команды форматирования, и, стоит хоть что=то изменить в таблице, как вся таблица опять возвращается в исходному виду.
Если взорвать (_explode) таблицу - то получившиеся MTEXTы с очищенными атрибутами.
Netlog вне форума  
 
Автор темы   Непрочитано 25.12.2017, 14:17
#207
VVA

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


Netlog, выложи файл с примером таблицы
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 25.12.2017, 18:59
#208
Netlog


 
Регистрация: 05.09.2005
Ростов на Дону
Сообщений: 69
<phrase 1=


01, png и dwg - что было до команды CTSU
02, png и dwg - что стало после команды CTSU
Миниатюры
Нажмите на изображение для увеличения
Название: 01_cr.png
Просмотров: 134
Размер:	21.2 Кб
ID:	197170  Нажмите на изображение для увеличения
Название: 02_cr.png
Просмотров: 114
Размер:	21.8 Кб
ID:	197171  
Вложения
Тип файла: dwg
DWG 2007
01.dwg (118.6 Кб, 10 просмотров)
Тип файла: dwg
DWG 2007
02.dwg (120.4 Кб, 8 просмотров)
Netlog вне форума  
 
Автор темы   Непрочитано 26.12.2017, 19:54
#209
VVA

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


Обновил до версии 1.9
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 20.01.2018, 20:29
#210
d.mOnII

Проектирование
 
Регистрация: 22.01.2013
Минск
Сообщений: 108
Отправить сообщение для d.mOnII с помощью Skype™


странно, у меня акад 2018 полная версия лицензия. подгрузил оба лиспа, но ни одна команда не работает((( кад ее просто не видит(
d.mOnII вне форума  
 
Непрочитано 19.02.2018, 14:51
#211
Frigate

КИП, АСУ ТП, слаботочка
 
Регистрация: 02.09.2010
Москва-Тюмень
Сообщений: 421


VVA,

огромное спасибо за Unf-MTEXT

ни одна другая программа ЛИСП для деформатирования не работала с высотой.
Frigate вне форума  
 
Непрочитано 17.05.2018, 19:09 цвет в мультивыноске
| 1 #212
MFor

Инженер-проектировщик
 
Регистрация: 08.02.2007
С-Петербург
Сообщений: 100
<phrase 1=


Коллеги, прошу помочь.
SMT не хочет менять цвет текста в мультивыносках
Что не так и как победить?

Почему, даже если поменять в этой выноске цвет текста вручную, то smt возвращает обратно красный?
Почему можно скопировать свойства этой выноски на вновь созданную, но не наоборот?
Вложения
Тип файла: dwg
DWG 2013
выноска.dwg (99.6 Кб, 16 просмотров)

Последний раз редактировалось MFor, 18.05.2018 в 11:38.
MFor вне форума  
 
Автор темы   Непрочитано 19.05.2018, 08:00
#213
VVA

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


Цитата:
Сообщение от MFor Посмотреть сообщение
Почему, даже если поменять в этой выноске цвет текста вручную, то smt возвращает обратно красный?
потому что smt убирает форматирование. В этой выноске изначально без всякого форматирования цвет у мтекста красный. Скорее всего она была создана программно. Добраться до мтекста мультивыноски лиспом пока не смог
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 19.05.2018, 21:00
#214
koMon


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


Цитата:
Сообщение от VVA Посмотреть сообщение
Добраться до мтекста мультивыноски лиспом пока не смог
Красный цвет - индекс 1 - никак в тексте не помечается, остальные да:
TextString = "\\pxsm1;{\\C160;5785/35 - 12м 5784/13 - 12м } "
что-то некорректное сделано со стилем мвыноски

Последний раз редактировалось koMon, 19.05.2018 в 21:24.
koMon вне форума  
 
Непрочитано 27.07.2018, 00:20
#215
818937


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


Цитата:
Сообщение от MFor Посмотреть сообщение
SMT не хочет менять цвет текста в мультивыносках
Почему, даже если поменять в этой выноске цвет текста вручную, то smt возвращает обратно красный?
Цитата:
Сообщение от VVA Посмотреть сообщение
потому что smt убирает форматирование. В этой выноске изначально без всякого форматирования цвет у мтекста красный. Скорее всего она была создана программно. Добраться до мтекста мультивыноски лиспом пока не смог
У нас на работе ребята форматируют не стили текста/выносок, а вручную каждый элемент в редакторе. Выделают фразу - делают сжатие, меняют цвет.
У меня есть кривые выноски - текст например желтый, а полка и направляющая послою.
Я как только с бубном не прыгал, сейчас уже не помню точно, я смог редактировать текст, но с выносками не получилось - так и сделал себе новые.
В последний раз решил проблему: выноски скопировал по точке, удалил, вставил по точке блоком, в блоке взорвал, изменил цвет текста (изменял цвет в диспетчере свойств, т.е. smt жать не нужно было).
Как я понимаю - цвет текста задан либо в диспетчере свойств либо в редакторе, и соответсвенно smt не умеет скидывать одно из двух. Только что пробывал скидывать smt растяжение текста заданного в ленте - не работает.
Танцы с бубном, метод научного тыка. От некоторых команд бывает еще остаются "останки редактирования", несколько символов форматиирования. Было например "123" красным, очистил формат стало ",;.123"
PS большое спасибо, лиспы иногда очень помогают править разную рукожопость)
818937 вне форума  
 
Непрочитано 31.07.2018, 10:16
#216
guerre1403


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


VVA, Помогите, пожалуйста, макрос не работает, появляется все равно диалоговое окно. (if (null C:CTS)(load "change text styles (cts)"));CTS;(cts:layer-status-save);(ru-textstyle-update "ххх");_.PURGE;
Как изменить код, чтобы можно было запускать с командной строки, указав имя стиля.
Пробовал (ru-textstyle-update "ххх"),
пишет "Ждите, привожу стиль
'ххх' к определению...
nil"
при этом ничего стили не меняются.
С диалоговым окном проблем нет-все работает отменно!
guerre1403 вне форума  
 
Автор темы   Непрочитано 02.08.2018, 08:19
#217
VVA

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


guerre1403, Добавь свою функция в lsp файл
Код:
[Выделить все]
(defun cmdCTS (style unformat / *error*)
  ;;;Переменные
  ;;; style - имя текстового стиля, текст
  ;;; unformat - принимает 2 значения
  ;;;    t - убрать форматирование текста
  ;;;   nil - не изменять форматирования
  ;;;Использование (cmdCTS "МИП_ГОСТ" nil)
  ;;;Использование (cmdCTS "МИП_ГОСТ" t) ;_очищать дополнительное форматирование текста
   (defun *error* (msg)(princ msg)(cts:layer-status-restore)(princ))
 (cts:layer-status-save)
 (ChangeAllTextObjectsStyle (vla-get-activedocument (vlax-get-acad-object)) style nil unformat)
 (ru-textstyle-update style) 
 (cts:layer-status-restore)
 (princ)
  )
и макрос
Код:
[Выделить все]
(if (null C:CTS)(load "change text styles (cts)"));(cmdCTS "XXXXX" nil);_.PURGE;
Вроде должно работать
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.08.2018, 09:41
#218
guerre1403


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


Цитата:
Сообщение от VVA Посмотреть сообщение
guerre1403, Добавь свою функция в lsp файл
Код:
[Выделить все]

(defun cmdCTS (style unformat / *error*)
;;;Переменные
;;; style - имя текстового стиля, текст
;;; unformat - принимает 2 значения
;;; t - убрать форматирование текста
;;; nil - не изменять форматирования
;;;Использование (cmdCTS "МИП_ГОСТ" nil)
;;;Использование (cmdCTS "МИП_ГОСТ" t) ;_очищать дополнительное форматирование текста
(defun *error* (msg)(princ msg)(cts:layer-status-restore)(princ))
(cts:layer-status-save)
(ChangeAllTextObjectsStyle (vla-get-activedocument (vlax-get-acad-object)) style nil unformat)
(ru-textstyle-update style)
(cts:layer-status-restore)
(princ)
)

и макрос
Код:
[Выделить все]

(if (null C:CTS)(load "change text styles (cts)"));(cmdCTS "XXXXX" nil);_.PURGE;

Вроде должно работать
Спасибо большое!Работает! Только возникла одна проблема:он убивает все поля. Эта проблема сидит в лиспе change text styles (cts) 1.9.LSP. С этим можно что-нибудь сделать?
guerre1403 вне форума  
 
Непрочитано 08.10.2018, 15:31
#219
LcH


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


Добрый день, VVA. И все, кто отслеживает и вносит изменения и поправки в программы Замена текстовых стилей.
Эти программы давно подключены у меня в мой файл адаптации, наверное с версии 1.7, но редко использовались.
Теперь возникла необходимость частого использования и не только мной, т.е. нам необходимо перейти не только на другой текстовый стиль, а использовать другой тип шрифта, эти программы очень нужны.
Но при массовом тестировании обнаружились некоторые недочеты, некоторые действительно объяснимы, а есть моменты, которые хотелось бы избежать.
Очень хочется, чтобы вы нашли время и посмотрели файлы, которые я сейчас попытаюсь прикрепить.
На словах хочу пояснить, AutoCAD 2015, сейчас работаю с программой версии 1.9, выполняю команды CTSU, затем TSUP.
Главная неприятность - в МТекстах остаются некоторые управляющие символы, которые не сразу увидишь, особенно если работа массовая.
Надеюсь, мне ответят, можно это исправить или нет, заранее спасибо.
Вложения
Тип файла: dwg
DWG 2013
CTSU+TSUP_КР.АР_ANarrow.dwg (352.5 Кб, 9 просмотров)
Тип файла: dwg
DWG 2013
Исходный-КР.АР(01-05)_Simplex.dwg (355.9 Кб, 8 просмотров)
Тип файла: dwg
DWG 2013
CTSU+TSUP_КЖ_ANarrow.dwg (952.4 Кб, 8 просмотров)
Тип файла: dwg
DWG 2013
Исходный-КЖ(09-13)_Simplex.dwg (955.5 Кб, 8 просмотров)
Тип файла: xls Экспорт-КР.АР.xls (31.5 Кб, 7 просмотров)
LcH вне форума  
 
Непрочитано 09.10.2018, 08:45
#220
Рyslan


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


чот эти програмки вообще не работают. ничего не меняют
нужно поменять текст стиль 25х22 на 25х22R. если через таблицу свойств менять, вылезают вопросики абракадабра какая то, а эта программа вообще ничего не меняет
Вложения
Тип файла: dwg
DWG 2010
1.dwg (60.8 Кб, 10 просмотров)

Последний раз редактировалось Рyslan, 09.10.2018 в 08:56.
Рyslan вне форума  
 
Непрочитано 09.10.2018, 12:26
#221
PsixVK


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


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


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


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

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


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


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


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





ну меняет толькол разная величина букв
хз какие кракозябры вы видете.
наверное из за этого:
PsixVK вне форума  
 
Непрочитано 09.10.2018, 13:21
#225
Рyslan


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


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


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


Цитата:
Сообщение от Рyslan Посмотреть сообщение
да, я тоже думаю из -за шрифта. вот чтоб еще понятнее стало. в этом файле выстави в свойствах стиль текст 25X22R и посмотри на русский текст
а что с ним не так?
PsixVK вне форума  
 
Непрочитано 09.10.2018, 13:36
#227
Хмурый


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


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

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


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


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


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


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


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


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


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


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


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


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


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


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


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


Цитата:
Сообщение от Рyslan Посмотреть сообщение
покажи картинку
хух
картинки все выше!
есть такая штука "+" (плюсик) нажимаешь его он разворачивается.


PsixVK вне форума  
 
Непрочитано 09.10.2018, 14:41
#235
Рyslan


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


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

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


А не пробовали для начала dwg предоставлять полностью?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 09.10.2018, 14:49
#237
PsixVK


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


Цитата:
Сообщение от Рyslan Посмотреть сообщение
еще один файл, похоже в предыдущем не было стиля 25X22R, попробуй в русском тексте вот этот стиль выстави и посмотри как изменится русский текст
слушай ну ты наверно издеваешься?

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


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


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


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


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


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


Цитата:
Сообщение от PsixVK Посмотреть сообщение
а как у тебя отображается?
ты хотя бы показал
Хотел принкт скрин сделать чтоб свойства видны были, чот не работает. Вот пдф
Вложения
Тип файла: pdf 33.pdf (4.6 Кб, 23 просмотров)
Рyslan вне форума  
 
Непрочитано 09.10.2018, 19:28
#241
PsixVK


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


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