Координаты точки
Добавлено: 15 ноя 2017, 08:03
Добрый день уважаемые.
Пытаюсь получить координаты точек, выполняя следующий код:
Как видно из Bounds координаты точки должны быть в указанном диапазоне, но в результате получается
Пытаюсь получить координаты точек, выполняя следующий код:
Код: Выделить всё
Set Map CoordSys NonEarth Units "m" Bounds (609413.2115, 6749861.88848) (609501.4865, 6749924.73195)
Fetch First From Selection
Do While Not EOT(Selection)
MyObj = Selection.obj
If ObjectInfo(myobj, OBJ_INFO_TYPE) = OBJ_POINT Then
X = ObjectGeography(MyObj, OBJ_GEO_POINTX)
Y = ObjectGeography(MyObj, OBJ_GEO_POINTY)
Print "X=" & X
Print "Y=" & Y
end if
Fetch Next From Selection
loop
Традиционный вопрос: что я делаю неправильно?X=5.48087
Y=60.7035