• Adel
  • Восстановленный участник
  • На форуме с 16 мая 2007г.
  • Сообщений: 56
  • Спасибо: 0

Тема: Как задать сжатие MTextа?

Здравствуйте! Появилась проблема -
Нужно чтобы MText был со сжатием 0,9. Где определяется сжатие не могу найти - ни в определении стиля текста, ни в самом MTexte...

  Dim newText As AcadTextStyle
  Set newText = ThisDrawing.TextStyles.Add("ISO")
  newText.SetFont "ISOCPEUR", False, False, 1, 0
  newText.height = 3#
  corner(0) = 20#: corner(1) = 85#: corner(2) = 0#
  width = 140
  text="Спецификация"
  Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
  MTextObj.StyleName = "ISO"

  • Adel
  • Восстановленный участник
  • На форуме с 16 мая 2007г.
  • Сообщений: 56
  • Спасибо: 0

Re: Как задать сжатие MTextа?

Не хотелось в содержимое текста сжатие вставлять : {\W0.9;Спецификация}. Неужели нет свойства сжатие для этих объектов?

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

Re: Как задать сжатие MTextа?

> Adel
Только в настройках стиля текста
Создай такой стиль и перенеси тексты
на этот стиль
Либо только с форматированием как тобой же
и предложено
~'J'~

  • Adel
  • Восстановленный участник
  • На форуме с 16 мая 2007г.
  • Сообщений: 56
  • Спасибо: 0

Re: Как задать сжатие MTextа?

Для меня лучше сделать блок с текстом с нужным стилем и делать его тихой вставкой(вставить, а потом удалить), чтобы стиль остался.

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как задать сжатие MTextа?

> Adel
http://dwg.ru/f/showthread.php?t=4071 - там есть варианты создания текстовых и размерных стилей. Правда, на lisp...

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

Re: Как задать сжатие MTextа?

> Adel
Ну так для этого наверно не стоит писать
программу
Просто создай блок в отдельном
чертеже и храни его в своих шаблонах
Быстро и практично
~'J'~

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

Re: Как задать сжатие MTextа?

> Adel
Кстати, с чего ты взял что у стиля нет фактора
сжатия?
Открой диалог после выполнения программы
Все есть:

Sub MakeTetxtStyle()
  Dim newText As AcadTextStyle
  Dim width As Double
  Dim corner(0 To 2) As Double
  Dim text As String
  Dim MTextObj As AcadMText
  Set newText = ThisDrawing.TextStyles.Add("ISO")
  newText.SetFont "ISOCPEUR", False, False, 1, 0
  newText.Height = 3#
  newText.width = 0.9 '<==фактор сжатия текста
  corner(0) = 20#: corner(1) = 85#: corner(2) = 0#
  width = 140
  text="Спецификация"
  Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
  MTextObj.StyleName = "ISO"
End Sub

~'J'~

  • Adel
  • Восстановленный участник
  • На форуме с 16 мая 2007г.
  • Сообщений: 56
  • Спасибо: 0

Re: Как задать сжатие MTextа?

> Fatty
Как все оказалось просто.:)
Спасибо огромное!

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

Re: Как задать сжатие MTextа?

> Adel
Ты меня сбил с панталыку изначально,
а я и не проверил свойства стиля
Помни всегда об F1 - сколько сэкономишь времени...
Успехов
~'J'~

  • Adel
  • Восстановленный участник
  • На форуме с 16 мая 2007г.
  • Сообщений: 56
  • Спасибо: 0

Re: Как задать сжатие MTextа?

> Fatty
Это меня слово - width "с панталыку" сбило. Не смогла связать ширину со сжатием. Извините... В F1 я и искала.

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

Re: Как задать сжатие MTextа?

> Adel
Ах, мы значит мадемуазель...
Мое почтение :)
~'J'~

  • Adel
  • Восстановленный участник
  • На форуме с 16 мая 2007г.
  • Сообщений: 56
  • Спасибо: 0

Re: Как задать сжатие MTextа?

Очень приятно.
Реверанс вам в ответ :)