Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Превращение String в acAlignment
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте!
У меня возникли трудности следующего плана:
есть файл из которого я получаю acAlignment для атрибута в блоке. Получаю я его как String. После этого его нужно указать при создании атрибута.
Подскажите пожалуйста, как это можно сделать?
Select Case ?
Спасибо, с тем как изменить выравнивание я разобрался. Можно устанавливать выравнивание Integer'ом. Теперь другая проблема.
В блок добавляю атрибут. Координаты точки вставки (-60,50).
Set Attr = Block.AddAtribute (...)
После этого меняю выравнивание
Attr.Alignment = 10
В результате атрибут вставляется с координатами базовой точки блока. А, если выравнивание не выставляю, то атрибут вставляется именно туда , куда надо.
Почему это происходит?
См. О некоторых свойствах текстовых примитивов. Там, правда, в основном на lisp ориентировано, но использование ActiveX позволяет без особых проблем перевести на VBA
Спасибо, прочитал, только для атрибута при попытке изменить TextAlignmentPoint получаю сообщение "Not applicable". По какому поводу это происходит пока не знаю =(
Всё разобрался!!!!!
При создании атрибута, его выравнивание, по умолчанию, Left, а для Left, Aligned и Fit свойство TextAlignmentPoint неприменимо.
Поэтому сначала выставляем выравнивание, а потом меняем TextAlignmentPoint
Attr.Alignment = 10 Attr.TextAlignmentPoint = Point
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Превращение String в acAlignment
Форум работает на PunBB, при поддержке Informer Technologies, Inc
