Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Natash
Зарегистрирован: 07.03.2007 Сообщения: 21
|
Добавлено: Чт Июн 03, 2010 8:59 am Заголовок сообщения: VBA. Поменять Text Justification |
|
|
Когда меняешь юстифицатион, техт смещается, как его вернуть в начальное положение?
И еще не поиму, что есть property Техт.origin? MS Елемент информатион и вба елемент проперти показывают разные координаты...
VBA Element.origin property написано read/write для ТехтЕлемент, no как его записать?
spasibo |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Natash
Зарегистрирован: 07.03.2007 Сообщения: 21
|
Добавлено: Чт Июн 03, 2010 1:09 pm Заголовок сообщения: |
|
|
задача решена
единственное осталось непонятно с оригин |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
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
|
|
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Natash
Зарегистрирован: 07.03.2007 Сообщения: 21
|
Добавлено: Пн Авг 09, 2010 11:28 am Заголовок сообщения: |
|
|
Leonid писал(а): | В информации элемента прописан левый нижний угол текста вне зависимости от Justification
|
подозрительно как то...
у меня версия v8i
element information
geometry
origin - левый верхний
user origin - justification
.....
может origin где отдельно выставляется, как параметр задается? |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Пн Авг 09, 2010 2:16 pm Заголовок сообщения: |
|
|
Natash,
Речь шла об информации элемента в MS v8 2004 Edition.
В версии v8i используется другой инструмент для информации.
Чтобы в v8i вызвать вышеуказанное окно, нужно ввести команду
ANALYZE ELEMENT |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Natash
Зарегистрирован: 07.03.2007 Сообщения: 21
|
Добавлено: Пн Авг 09, 2010 2:34 pm Заголовок сообщения: |
|
|
Leonid писал(а): | Natash,
Речь шла об информации элемента в MS v8 2004 Edition.
В версии v8i используется другой инструмент для информации.
Чтобы в v8i вызвать вышеуказанное окно, нужно ввести команду
ANALYZE ELEMENT |
благодарю
и такой еще момент, кто знает, не поиму где взять microstation вба хелп для в8и или для ХМ... у меня для 2004... кое чего просто нет, по понятным причинам
на сайте бентли как то не нашла... |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
|