[Shoorup]

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

[Олег (jr.)]

Попробуй так, для атрибутов наверно придется применить
команду _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))

[Shoorup]

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


Как бы все тексты на чертеже увеличить КС на 0.2 ?

[Hans667]

После замены всех стилей CTSU при редактировании строчки таблицы и перехода на следующую возвращается форматирование.

[d1mey]

Сообщение от Hans667 После замены всех стилей CTSU при редактировании строчки таблицы и перехода на следующую возвращается форматирование.

Лечения нет?