Список форумов Конференция САПР Bentley MicroStation Конференция САПР Bentley MicroStation
www.ustation.ru
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

VBA. Поменять Text Justification

 
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Прикладное
Предыдущая тема :: Следующая тема  
Автор Сообщение
Natash



Зарегистрирован: 07.03.2007
Сообщения: 21

СообщениеДобавлено: Чт Июн 03, 2010 8:59 am    Заголовок сообщения: VBA. Поменять Text Justification Ответить с цитатой

Когда меняешь юстифицатион, техт смещается, как его вернуть в начальное положение?
И еще не поиму, что есть property Техт.origin? MS Елемент информатион и вба елемент проперти показывают разные координаты...

VBA Element.origin property написано read/write для ТехтЕлемент, no как его записать?

spasibo
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Natash



Зарегистрирован: 07.03.2007
Сообщения: 21

СообщениеДобавлено: Чт Июн 03, 2010 1:09 pm    Заголовок сообщения: Ответить с цитатой

задача решена
единственное осталось непонятно с оригин
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Leonid
давно здесь сидим


Зарегистрирован: 28.01.2006
Сообщения: 598
Откуда: С.-Петербург

СообщениеДобавлено: Пт Июн 04, 2010 10:57 am    Заголовок сообщения: Ответить с цитатой

В информации элемента прописан левый нижний угол текста вне зависимости от Justification

Как поменять оригин текста:
Код:

    Dim oEnumerator As ElementEnumerator
    Set oEnumerator = ActiveModelReference.GetSelectedElements
    Dim pNew As Point3d
    Do While oEnumerator.MoveNext
        Dim el As TextElement
        Set el = oEnumerator.Current
        el.Redraw msdDrawingModeErase
        pNew.X = el.Origin.X - 100
        pNew.Y = el.Origin.Y - 100
        pNew.Z = el.Origin.Z - 100
        el.Origin = pNew
        el.Rewrite
        el.Redraw msdDrawingModeNormal
    Loop

Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Natash



Зарегистрирован: 07.03.2007
Сообщения: 21

СообщениеДобавлено: Пн Авг 09, 2010 11:28 am    Заголовок сообщения: Ответить с цитатой

Leonid писал(а):
В информации элемента прописан левый нижний угол текста вне зависимости от Justification



подозрительно как то...

у меня версия v8i

element information
geometry

origin - левый верхний
user origin - justification
.....
может origin где отдельно выставляется, как параметр задается?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Leonid
давно здесь сидим


Зарегистрирован: 28.01.2006
Сообщения: 598
Откуда: С.-Петербург

СообщениеДобавлено: Пн Авг 09, 2010 2:16 pm    Заголовок сообщения: Ответить с цитатой

Natash,

Речь шла об информации элемента в MS v8 2004 Edition.
В версии v8i используется другой инструмент для информации.
Чтобы в v8i вызвать вышеуказанное окно, нужно ввести команду
ANALYZE ELEMENT
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Natash



Зарегистрирован: 07.03.2007
Сообщения: 21

СообщениеДобавлено: Пн Авг 09, 2010 2:34 pm    Заголовок сообщения: Ответить с цитатой

Leonid писал(а):
Natash,

Речь шла об информации элемента в MS v8 2004 Edition.
В версии v8i используется другой инструмент для информации.
Чтобы в v8i вызвать вышеуказанное окно, нужно ввести команду
ANALYZE ELEMENT


благодарю

и такой еще момент, кто знает, не поиму где взять microstation вба хелп для в8и или для ХМ... у меня для 2004... кое чего просто нет, по понятным причинам
на сайте бентли как то не нашла...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Прикладное Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group