Получение координат объектов (VBScript)

Главная
Примеры
ZuluGIS
Макросы
Получение координат объектов (VBScript)

Дмитрий Емельянов , 27 августа 2021

Получение координат объектов (VBScript)

Макросом получаем координаты вершин полилиний.




Sub EL_POINTS
	'Получаем активный слой карты
    Set L = zulu.ActiveMapDoc.Layers.Active
    'Объект для вывода в окно сообщений
    Set Out = OpenOutputChannel ("Сообщения")
    'Очищаем окно сообщений
    out.Clear
    'Получаем мигающий в слое объкт
    Set El = L.Elements.getElement(l.CurrentID)
    'Выводим ID объекта в окно сообщений
    out.Put "id="&El & chr(10)
    'Если объект Типовая полилиния ломаная
    if el.GraphType = 0 Then
		''  eGraphTypeTypedPolyline = 0   Типовой ломаная
        '' Может быть любой графический объект https://www.politerm.com/zuludoc/zuluax/index.html#eElemGraphType_enum.html
        'Получаем коллекцию точек, которые являются вершинами полилинии
        Set points_el = el.Points  
        'По всем точкам коллекции
        For i = 1 To points_el.Count
            'Выводим в окно сообщений номер точки и координыты X Y
			out.Put "num - " &i& " X - "  & (el.Points.GetX(i))  &  " Y - " &(el.Points.GetY(i)) & chr(10)      
		Next 
	end if 
End Sub

Скачать пример (1.32 КБ)

Метки: ГИС и инженерные сети ZuluGIS ZuluGIS

Возврат к списку

Последнее обновление — 27.08.2021 13:47:20