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

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

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

Ответ
Поиск в этой теме
Непрочитано 24.03.2008, 17:03
Замена текстого стиля
Shoorup
 
Минск
Регистрация: 16.09.2006
Сообщений: 1,587

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

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Попробуй так, для атрибутов наверно придется применить
команду _ATTSYNC после этого
Измени имя шрифта соответсвенно твоим стандартам и потом
скажи как работает:
Код:
[Выделить все]
(defun C:demo(/ adoc txtstyle)
(setq adoc(vla-get-activedocument (vlax-get-acad-object)))
(setq txtstyle (vla-item (vla-get-textstyles adoc) "SCB"));<-- set your style name here
  
  (if (equal (strcase (vla-get-fontfile txtstyle)) "ROMANS__.TTF");; <-- двойное подчеркивание после имени шрифта
    (vl-catch-all-apply
      '(lambda ()
	(progn
	  ;; измени имя шрифта здесь (см. в свойствах файла шрифта в папке (getenv "WINDIR") Fonts)
	  ;; или из другой папки где у тебя хранятся эти файлы (например в самом Автокаде) :
	   (setq fontfile (findfile (strcat (getenv "WINDIR") "\\fonts\\trebuc.ttf")));; <-- Trebuchet MS.ttf
	   (vla-put-fontfile txtstyle fontfile)
	   )
	)
      )
    )
  ;;изменяем коэффициент сжатия:
    (vla-put-width txtstyle 1.0)
  (vla-regen adoc acAllViewports)

(princ)
)
(or(vl-load-com)(princ))
Олег (jr.) вне форума  
 
Автор темы   Непрочитано 21.01.2013, 15:57
#42
Shoorup


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


не прокатывает... ктоме того что меняется КС на 1.0 больше ничего не происходит. Может я направильно оформляю файл лиспа?
"ROMANS__.TTF" я написал "ROMANS__.SHX" - шрифт который нужно заменить
\\fonts\\Standart SCB.ttf" - шрифт на который нужно заменить.


Как бы все тексты на чертеже увеличить КС на 0.2 ?
__________________
Поезд который устал от ржавого здравомыслия рельсов...
Shoorup вне форума  
 
Непрочитано 23.04.2013, 14:17
#43
Hans667

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


После замены всех стилей CTSU при редактировании строчки таблицы и перехода на следующую возвращается форматирование.
Вложения
Тип файла: dwg
DWG 2010
Spec.dwg (217.2 Кб, 932 просмотров)
__________________
Errare humanum est, insipientis perseverare
Hans667 вне форума  
 
Непрочитано 19.05.2015, 09:22
#44
d1mey


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


Цитата:
Сообщение от Hans667 Посмотреть сообщение
После замены всех стилей CTSU при редактировании строчки таблицы и перехода на следующую возвращается форматирование.
Лечения нет?
d1mey вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Замена текстого стиля

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание размерного стиля amator Программирование 13 12.04.2009 00:45
детализация в advance steel 7.1 и настройка стиля. 8infinity Advance Steel 30 12.02.2009 00:23
замена шрифтов в документах Fenomen AutoCAD 7 16.01.2008 12:29
Как программно узнать масштабный коэфф. размерного стиля? kp+ Программирование 1 18.07.2006 12:37
Настройка "Стандартного" текстового стиля. Кулик Алексей aka kpblc AutoCAD 6 23.10.2003 22:49