Добрый день!
1.Координаты должны быть в метрах.
2. Вместо MapNet1.GetShotWay нужно воспользоваться функцией TMapNet. GetShotWayByPointAndCreateObject
либо TMapNet. GetShotWayByPointExAndCreateObject, предварительно создав объект для результата Info: HOBJ с помощью функции MapObj.CreateObject
Описание функций:
TMapNet. GetShotWayByPointAndCreateObject
function GetShotWayByPointAndCreateObject(Info: HOBJ; var PointStart,PointFinish: TDOUBLEPOINT):
integer;
Метод определяет оптимальный путь между указанными точками. Граф сети предварительно должен
быть открыт функцией OpenGraph(). Параметр Info - идентификатор объекта в памяти, предварительно
созданного функцией mapCreateObject() или mapCreateSiteObject(), в котором будет размещен результат -
минимальный путь. PointStart,PointFinish - начальная и конечная точки в метрах на местности.
При ошибке возвращает ноль.
TMapNet. GetShotWayByPointExAndCreateObject
function TMapNet.GetShotWayByPointExAndCreateObject(Info: HOBJ; var PointStart,PointFinish:
TDOUBLEPOINT; select:HSelect): integer;
Метод определяет оптимальный путь между указанными точками. Граф сети предварительно должен
быть открыт функцией OpenGraph(). Параметр Info - идентификатор объекта в памяти, предварительно
созданного функцией mapCreateObject() или mapCreateSiteObject(), в котором будет размещен результат -
минимальный путь. PointStart,PointFinish - начальная и конечная точки в метрах на местности, select -
контекст условий поиска (должен содержать ребра, которые исключаются из поиска минимального пути).
При ошибке возвращает ноль.
3. Выделить объект можно средствами TMapSelect.