[Shoorup]

Может есть программы по замене текстового стиля.
Суть проблемы: Есть куча чертежей. Сделаны они оооочень плохо. Т.е есть ну очень много текстовых стилей, порой даже не используемых или пустых строк. Недавно было принято соглашение по замене текстового стиля на один стандартный. Простое выделение через быстрый выбор и замена не поможет т.к высота и степень сжатия для текста не известна заранее (чертежи разные и делали разные люди). Иногда все текстовые стили (не используемые) удалить не получается или их удаление занимает очень много времени. Хотелосьбы заменять их быстро и безболезненно. т.е. чтобы высота и степень сжатия, наклон сохранялись. а не используемые стили удалялись (пурж не всегда помогает)

[zenon]

VVA, зер гуд.
только вот в Mtext сбивается при наличии в нем разных шрифтов, то бишь 1 строка шрифт ***.shx другая ***.ttf третья опять shx.
Где-то мелькала прожка по снятию форматирования Mtext.
Может их объеденить????

[VVA]

CTSU-Change Text Style with Unformat text

*** Код удален
Последняя версия здесь: LISP. Замена текстового стиля

[zenon]

VVA
CTSU-Change Text Style with Unformat text
выдает ошибку

Command: CTSU ; error: bad argument value: positive 0

прикладываю файл который некоррктно обрабатываеся командой
Preseci 15.05.2008.dwg

CTS - Change Text Style

Этой нормально обрабатывается, но не происходить сброса форматирования

[VVA]

Исправил

[zenon]

VVA, спасибо, то что надо!!!

[Shoorup]

Да прога Ваще супер! Очень помогает от корявых рук! Эту прогу вообще стоит в Download добавить. Даже мои дедушки и бабушки разобрались

[Axel_]

Программа классная! А можно сделать так чтобы она заменяла только в выделенном?

[VVA]

Немного ее изменить. Но это чуть позже.

[dextron3]

VVA, спасибо, !

[Profan]

В "Готовые программы" надо ее добавить.

[VVA]

Я объединю 2 команды (со сносом форматировани и без), постараюсь учесть предложение Axel_, тогда и выложу

[VVA]

Обещанного 3 года ждут. Выложил здесь LISP. Замена текстового стиля

[serg72]

Требуется срочная помощь. В лиспе в простом тексте меняю имя шрифта с помощью vla-put-StyleName, но при переходе с курсива на прямой остается наклон текста. С помощью какого свойства можно отредактировать наклон?

[Лиспер]

ObliqueAngle - кажется, так.

[serg72]

Оно и есть. Спасибо.

[ioderey]

Проконсультируйте новичка, пожалуйста!
В Чертеже1 нужно весь текст перевести в стиль Standart (шрифт Arial.ttf).
Делал так:
После ctsu, отмена, Standart - МТексты приобретают должный вид, а Тексты слегка утолщённый "корявый" вид.
После tsup часть Текстов становится нормальными (экспликация помещений), а часть так и остаётся "корявой".(Чертёж2).
Изменение высоты и ширины в свойствах некрасивых Текстов эту утолщённость не убирает.На печати эта утолщённость заметна на глаз, что не желательно.
Копирование "корявого" текста в момент редактирования Текста и вставка в новый Текст или МТекст делает шрифт нормальным, а простое копирование и вставка ничего не меняют.
Проблема в том, что таких файлов много и копирование/вставка каждого отдельного "корявого" Текста не выход.
Делал процедуру на XP+AutoCad2008 и Win7+AutoCad2010 - результат одинаковый.

Как избавиться от утолщенности шрифта?

P.S. Я не программист, и даже не проектировщик - попросили разобраться с проблемой.

[VVA]

Я у себя проблемы не увидил. Windows7, Автокад 2009 + все сервис паки. Сообщи версию автокада, наличие сервиспаков, версию Windows, приложи копию эркана с проблемой. Попробуй переписать тексты командой RETXT

[ioderey]

RETXT переписал 119 текстов без видимых изменений на экране.
Снимок сделан из Autocad x64 2010 русский + update2 и Windows 7 x64 sp1 со всеми последующими обновлениями.
dwg из моего первого поста сделаны в Autocad 2008 русский (сервиспаки не известно какие, машина на работе, а сегодня выходной) на Windows XP sp3 + обновления.
Исходный файл пробовали преобразовать и на других машинах с тем же результатом.

P.S. похожая проблема упоминалась vovan981 http://forum.dwg.ru/showthread.php?t=24790&page=5, но осталась без ответа.

[ioderey]

удалено

[Shoorup]

Добрый день коллеги!
Нужна помощь, совет как решить проблему.

Сейчас довольно много чертежей сделано текстовым стилем с именем SCB и шрифтом romans.shx (коэффициент сжатия 0.8, высота разная, угол 0)
Требуется в этих чертежах сделать для этого же стиля (SCB) замену шрифта romans.shx на шрифт на StandartSCB.ttf и заменить коэффициент сжатия на 1.0

Допустим заменить в диспетчере стилей шрифт и коэффициент сжатия (КС) ручками довольно просто. Но на чертеже все тексты у которых был КС 0.8 так и остался. Приходится через "Быстрый поиск" искать все тексты, Мтексты, атрибуты с КС 0.8 и заменять на 1.0. А бывает сжимали тексты и 0.7, 0.6, 0.9 и т.д. Но самое страшное это то, что атрибуты в блоках быстро заменить я не знаю как.
+ к этому нужно избавиться от всех других стилей и согнать все в стиль SCB - но это задача №2

Макросом нужно сделать:
1. Заменить шрифт для стиля SCB. Там же КС ставим 1 - сделано
2. Устанавливаем стиль SCB по умолчанию - не знаю как
3. CST - как бы это все проделать макросом без выбора в окне стиля?
4. TSUP
5. Очищаем от других стилей - легко
Из минусов - все загоняется под один КС=1
Теперь это все нужно както загнать на кнопку чтоб пользователи одной кнопкой проделывали эти 5 пунктов