• На форуме с 4 марта 2008г.
  • Сообщений: 45
  • Спасибо: 0

Тема: Шрифт в атрибутах

Как в атрубутах поменять шрифт?

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Шрифт в атрибутах

> radan
Тебе нужно поменять свойство StyleName, соответствующее
нужному шрифту из списка стилей текста.
Только после этого нужно будет активировать эти
изменения с помощью команды ATTSYNC через командную
строку или с использованием SendCommand.
~'J'~

  • На форуме с 4 марта 2008г.
  • Сообщений: 45
  • Спасибо: 0

Re: Шрифт в атрибутах

После attributeObj.styleName = "EskdStyle"
ThisDrawing.SendCommand "_ATTSYNC" & vbCr
стиль переключается, но степень растяжения никак не регулируется. Подскажите пожалуйста, что может быть?

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Шрифт в атрибутах

Может как-то так:

    Dim newText As AcadTextStyle
    Set newText = ThisDrawing.TextStyles("EskdStyle")
    newText.Width = newText.Width * 1.5
    ThisDrawing.Regen acActiveViewport

?