Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Bazil
Зарегистрирован: 19.04.2006 Сообщения: 13 Откуда: Tuymen
|
Добавлено: Вт Июл 25, 2006 2:10 pm Заголовок сообщения: Атрибуты по умолчанию в ГеоГрафикс |
|
|
есть некая база с информацией по рекам, озерам, болотам и т.п.
при нажатии на кнопку (напрмер - отрисовать озеро) атрибуты по умолчанию становятся теми которые прописаны в базе (для озера это : цвет линии - синий, заливка- по контуру), следующим шагом мы рисуем контур озера( раз уж взял такой пример) далее появляется некий диалог с заданием параметров дополнительных и нажимаем кнопку OK.
Записан макрос для всего этого сложного процесса
Вопрос в следующем!
Как в макросе записать следущее:
чтобы после отрисовки и введения дополнительных параметров атриббуты встали по умочанию на 0 то есть тип линии - 0, цвет линии - 0 и заливка - 0.
Макрос если не ошибаюсь читается сразу, не одно условие не смог подобрать. То ругается, то пишет тчо не правильный синтаксис.
Помогите плиз. Именно работать надо в ГеоГрафикс. |
|
Вернуться к началу |
|
|
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Вт Июл 25, 2006 2:52 pm Заголовок сообщения: |
|
|
Надо брать элемент при его создании и присваивать эти параметры.
Чтобы подробнее, надо бы посмотреть код макроса... |
|
Вернуться к началу |
|
|
Bazil
Зарегистрирован: 19.04.2006 Сообщения: 13 Откуда: Tuymen
|
Добавлено: Ср Июл 26, 2006 6:11 am Заголовок сообщения: |
|
|
Leonid
к сожалению этот вариант уже рассматривали, т.е. при создании элемента присвоить такие-то параметры.
Вся фишка в том что параметры уже в базе, и после отрисовки допустим (болота), при нанесении новых элементов на чертеж(карту) рисуется именно болото .
Необходим какой-то автоматический механизм (функция) сброса установленных атрибутов!
макрос будет позже |
|
Вернуться к началу |
|
|
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 |
|
Вернуться к началу |
|
|
ВалВл
Зарегистрирован: 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"
|
|
|
Вернуться к началу |
|
|
|