• Саша
  • Восстановленный участник
  • На форуме с 3 апреля 2002г.
  • Сообщений: 46
  • Спасибо: 0

Тема: Подскажите как задать Justify для текста и атрибута?

Подскажите как задать значение Justify для текста и атрибута

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

Re: Подскажите как задать Justify для текста и атрибута?

    Dim txt As AcadText
    Dim atr As AcadAttribute
    Dim atr_ref As AcadAttributeReference
    txt.Alignment = acAlignmentCenter
    atr.Alignment = acAlignmentLeft
    atr_ref.Alignment = acAlignmentMiddle

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

Re: Подскажите как задать Justify для текста и атрибута?

Только после изменения выравнивания текста надо учесть, что контрольные точки могут меняться (также см. http://www.arcada.com.ua/forum/viewtopic.php?t=653 )

  • Саша
  • Восстановленный участник
  • На форуме с 3 апреля 2002г.
  • Сообщений: 46
  • Спасибо: 0

Re: Подскажите как задать Justify для текста и атрибута?

> kpblc
Вот с этим у меня и возникли проблемы, кргда задаю выравнивание по центру, у меня атрибут улетает в 0,0,0, что делать не знаю, подскажите, по ссылке ничего не понял....

Set attributeobject = blockObj.AddAttribute(Height, Mode, Promt, InsertionPoint, Tag, Value)
      attributeobject.Alignment = acAlignmentCenter

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

Re: Подскажите как задать Justify для текста и атрибута?

> Саша
Чтобы вернуть атрибут (или текст) на место, надо привязать его обратно
к точке вставки

Set attributeobject = blockObj.AddAttribute(Height, Mode, Promt, InsertionPoint, Tag, Value)
attributeobject.Alignment = acAlignmentCenter
attributeobject.TextAlignmentPoint = InsertionPoint
attributeobject.Update ''<-чтобы это видно было сразу

Fatty
~'J'~