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

Атрибуты по умолчанию в ГеоГрафикс

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



Зарегистрирован: 19.04.2006
Сообщения: 13
Откуда: Tuymen

СообщениеДобавлено: Вт Июл 25, 2006 2:10 pm    Заголовок сообщения: Атрибуты по умолчанию в ГеоГрафикс Ответить с цитатой

есть некая база с информацией по рекам, озерам, болотам и т.п.
при нажатии на кнопку (напрмер - отрисовать озеро) атрибуты по умолчанию становятся теми которые прописаны в базе (для озера это : цвет линии - синий, заливка- по контуру), следующим шагом мы рисуем контур озера( раз уж взял такой пример) далее появляется некий диалог с заданием параметров дополнительных и нажимаем кнопку OK.

Записан макрос для всего этого сложного процесса Smile

Вопрос в следующем!
Как в макросе записать следущее:
чтобы после отрисовки и введения дополнительных параметров атриббуты встали по умочанию на 0 то есть тип линии - 0, цвет линии - 0 и заливка - 0.

Макрос если не ошибаюсь читается сразу, не одно условие не смог подобрать. То ругается, то пишет тчо не правильный синтаксис.

Помогите плиз. Именно работать надо в ГеоГрафикс.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Leonid
давно здесь сидим


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

СообщениеДобавлено: Вт Июл 25, 2006 2:52 pm    Заголовок сообщения: Ответить с цитатой

Надо брать элемент при его создании и присваивать эти параметры.
Чтобы подробнее, надо бы посмотреть код макроса...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Bazil



Зарегистрирован: 19.04.2006
Сообщения: 13
Откуда: Tuymen

СообщениеДобавлено: Ср Июл 26, 2006 6:11 am    Заголовок сообщения: Ответить с цитатой

Leonid
к сожалению этот вариант уже рассматривали, т.е. при создании элемента присвоить такие-то параметры.
Вся фишка в том что параметры уже в базе, и после отрисовки допустим (болота), при нанесении новых элементов на чертеж(карту) рисуется именно болото Sad.
Необходим какой-то автоматический механизм (функция) сброса установленных атрибутов!

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



Зарегистрирован: 19.04.2006
Сообщения: 13
Откуда: Tuymen

СообщениеДобавлено: Ср Июл 26, 2006 7:43 am    Заголовок сообщения: Ответить с цитатой

Макрос - пример для озера!

Sub main
Dim startPoint As MbePoint
Dim point As MbePoint, point2 As MbePoint

' старт макрокоманды
MbeSendCommand "DRAFTPAL KEYIN active feature name=озеро"

MbeSendCommand "PLACE SMARTLINE "

' Задание переменной связанной с диологовим окном
MbeSetAppVariable "MGDSHOOK", "tcb->ext_locks.fillMode", 2& ' Тип заливки

MbeSetAppVariable "MGDSHOOK", "tcb->fillColor", 7& ' Цвет заливки

MbeSetAppVariable "MGDSHOOK", "tcb->fillColor", 7&

MbeSendCommand "ACTIVE COLOR "

MbeSetAppVariable "MGDSHOOK", "tcb->symbology.color", 1& ' Цвет линии

' Дальше желательно чтобы настройки все збрасивались по умолчанию на 0


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



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

СообщениеДобавлено: Ср Июл 26, 2006 9:05 am    Заголовок сообщения: Ответить с цитатой

Bazil!
Озеро граничит с болотом, болото-с лесом, лес-с пашней, по пашне идет дорога. Т.е. объекты имеют общие контура, и весьма протяженные. Как Вы с помощью макросов изображаете граничные территории? Неужели ведёте контур второй раз?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Leonid
давно здесь сидим


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

СообщениеДобавлено: Ср Июл 26, 2006 9:52 am    Заголовок сообщения: Ответить с цитатой

Как такой вариант?
Код:

MbeSendCommand "ACTIVE STYLE 0"
MbeSendCommand "ACTIVE COLOR 0"
MbeSendCommand "ACTIVE FILLCOLOR 0"
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Прикладное Часовой пояс: GMT + 3
Страница 1 из 1

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


Powered by phpBB © 2001, 2005 phpBB Group