RUS  ENG 

Выборка объектов попадающиъх на экран

Поиск  Правила  Войти
Страницы: 1
RSS
Выборка объектов попадающиъх на экран
 
#1
17.09.2015 10:35:40
Подскажите можно ли реализовать в макросе выборку объектов слоя в группу попадающих (полностью или частично) на экран монитора (без участия человека)
 
 
 
#2
17.09.2015 13:04:03
Можно. Получаете координаты местности размеров экрана IMapView.GetBoundsRectangle. Создаете контур, а затем IntersectByContour (http://politerm.com/zuludoc/zuluax/Layer_IntersectByContour.htm)
 
 
 
#3
17.09.2015 15:25:59
по поводу IMapView.GetBoundsRectangle какие координаты (сколько,какие он возвращает в справке этого нет)
 
 
 
#4
18.09.2015 10:20:57
Зависит от проекции карты. Если MapDoc.GetCRS.ProjectionType = eProjPlan (0) то в сантиметрах Если eProjLatLon (1) то в градусах, остальное в метрах
 
 
 
#5
18.09.2015 13:01:42
Я не о том, как получить из IMapView.GetBoundsRectangle конкретные координаты X и Y одного угла и второго (max и min ?) к примеру:
Xmin= Map.Views.Active.GetBoundsRectangle... в VbScript
 
 
 
#6
19.09.2015 09:49:47
Не дописано, но тоже что и у MapDoc http://www.politerm.com.ru/zuludoc/zuluax/MapDoc_GetBoundsRectangle.htm

Код
'VBScript
Sub ScreenBounds()

Set Doc = Zulu.ActiveMapDoc

Set RC = Doc.Views.Active.GetBoundsRectangle

msgbox  "Xmin: " + Cstr(RC.Xmin) + Chr(10) + "Ymin: " + Cstr(RC.Ymin) + Chr(10) + "Xmax: " + Cstr(RC.Xmax) + Chr(10) + "Ymax: " + Cstr(RC.Ymax)

End Sub
 
 
 
#7
29.09.2015 17:19:46
а из директории куда устанавливали программу "E:Program Filesulu 7.0ExamplesBuildingFLOORFLOOR.ZMP"
 
 
 
#8
30.09.2015 10:41:02
Вопрос по Function IntersectByContour(Contour As Contour, Crit As eCrossCriteria, Reserved As Long) As ElementKeys

Crit As eCrossCriteria - как указывать в VbScript?
 
 
 
#9
30.09.2015 11:33:53
Либо просто числом, либо добавить в скрипт константы:
Код
Const eFullyInside = 1
Const ePartialInside = 2
Const eFullyOrPartialInside = 4
Const eFullyOutside = 8
Const eFullyOrPartialOutside = 16
Const eFullyEqual = 32
Const eTouches = 64
Const eCrosses = 128
Const eIntersects = 1024
Const eContains = 256
 
 
 
#10
30.09.2015 11:48:34
указывается числом вот что получилось:
Код
Set Map = Zulu.ActiveMapDoc 
Set obj = CreateObject("ZuluLib.Contour")' контур
 
' открытие слоя

Set Layer1 = CreateObject("ZuluLib.Layer")

Layer1.Open "zulu://127.0.0.1:6473/Cxem/2/MapTablet500Ex.zl"   '- c сервера  ::: с диска локально - "C:\Zulu\Data\Cxem\MapTablet500Ex.b00"

if Map.Layers.GetIndexByName(Layer1)<0 then Map.Layers.Add(Layer1) ' Добавление слоя на карту через объект если слой отсуствует

Map.Layers.Activate "zulu://127.0.0.1:6473/Cxem/2/MapTablet500Ex.zl" ' активный слой


' получение объектов попадающих на экран

Set RC = Map.Views.Active.GetBoundsRectangle  'координаты экрана

'msgbox  "Xmin: " + Cstr(RC.Xmin) + Chr(10) + "Ymin: " + Cstr(RC.Ymin) + Chr(10) + "Xmax: " + Cstr(RC.Xmax) + Chr(10) + "Ymax: " + Cstr(RC.Ymax)
 
' рисуем контур
obj.AddPoint RC.Xmin, RC.Ymin
obj.AddPoint RC.Xmax, RC.Ymin
obj.AddPoint RC.Xmax, RC.Ymax
obj.AddPoint RC.Xmin, RC.Ymax
obj.AddPoint RC.Xmin, RC.Ymin


' пересекаем с объектами слоя
set elkeys = Layer1.IntersectByContour (obj,4, 0)' список ключей объектов попавших полностью или частично в контур (4)
 
 
 
#11
30.09.2015 11:50:07
спасибо
 
 
 
#12
30.09.2015 13:23:40
Еще вопрос необходимо обыграть сообщение об ошибке открытия слоя если этот слой ответствует по указанному пути
Layer.Open "путь". В документации написано что "Если указанного слоя не существует, то возникает ошибка с кодом 260. "
Как эту ошибку использовать чтобы программа в VbScript не вываливалась, а выводила к примеру сообщение "Слой "Путь" на найден"
 
 
 
#13
30.09.2015 13:58:24
разобралась через On Error GoTo 0 - по умолчанию прерывает выполнение программы при возникновении ошибки
On Error Resume Next - При включенном режиме On Error Resume Next, ошибка не приводит к прерыванию выполнения кода и программист имеет возможность самостоятельно разобраться с ней.

On Error Resume Next

Layer2.Open PUT_Plan
if Err.Number <>0 then
MSGBOX "Не найден слой"
else
MSGBOX "Загружаем слой"
end if

On Error GoTo 0
 
 
 
#14
06.10.2015 14:27:00
IntersectByContour - прекрасно работает и получает список ключей объектов слоя пересекаемый контуром , но до тех пор пока слой не ограничен пространственным объектом в ZULU сервер, т.е. пересекаемый с контуром слой изначально отображается не полностью, а в усечёном виде.
В этом случае пересечение = 0. Как это обойти?
 
 
 
#15
06.10.2015 15:04:55
А пересекается слой с контуром в той части слоя, которая отображается или за пределами видимой области?
 
 
 
#16
06.10.2015 15:38:41
и в пределах видимой области не дает пересечения в том то и дело
 
 
 
#17
06.10.2015 16:40:11
Это связано наверно не столько с объектом ограничивающим видимость слоя но и накладываемой проекцией. Сейчас изменила проекцию карты на проекцию пересекаемого слоя и пересечение случилось даже при наложенных пространственных ограничениях, что то не так видимо с координатами экрана, проекций карты и проекции слоя какой то конфликт
 
 
 
#18
06.10.2015 16:52:31
Проверил. У меня все работает. Пространственное ограничение никак не влияет.
 
 
 
Страницы: 1