Расположение точки относительно полигона

Question

Всем привет!
Помогите пожалуйста, написать функцию которая определит лежит ли точка на полигоне или вне его
Function bF(pPolygon As IPolygon, pPoint As IPoint) As Boolean

Answer 1

Используйте ITopologicalOperator.Intersect или ISpatialFilter

Answer 2

Как вариант QueryPointAndDistance(..) .

Answer 3

Всем спасибо!
использовал QueryPointAndDistance.

Answer 4

К чему собственно QueryPointAndDistance. Я использовал ITopologicalOperator.Intersect/Constain/Touch пр раоте с растром, всмысле у меня полилиния была в задана в координатах растра. Постоянно артефачило, то тот пиксель вылетел, то этот не зачелся. При QueryPointAndDistance я контролирую попадание по длине, граничные пикселы не вылетают. Или я как то неправильно использовал ITopologicalOperator?.
Вообще как можно имея полилинию или полигон в координатах карты соьбрать весь список пикселей, котоые охватывает данный примитив на растре?.

Answer 5

Выделив площадь подлежащую вычислению для чего использую простой графический элемент.
Получив массив значение пикселей растра начинаю расчет значений которые ячеек которые лежат внутри полигона остальные NoData:
    For i = 0 To pRasterProps.Width - 1
      For j = 0 To pRasterProps.Height - 1
        Xr = pRasterProps.Extent.XMin + i * pRasterProps.MeanCellSize.x
        Yr = pRasterProps.Extent.YMax - j * pRasterProps.MeanCellSize.y
        pPoint.Project pRasterProps.SpatialReference
        pPoint.PutCoords Xr, Yr
       
        If bFunction(pPolygon, pPoint) = True Then
           pPixelData(i, j) = CallcVal(pPixelData(i, j))
        Else
            pPixelData(i, j) = pRasterProps.NoDataValue
        End If
      Next j
    Next i
функция bFunction определяет принадлежит ли текущий пиксель полигону
Function bFunction(pPolygon As IPolygon, pPoint As IPoint) As Boolean
    Dim pCurve As ICurve
    Dim TempPoint As IPoint
    Set TempPoint = New Point
    
    Dim distAlong As Double, distFrom As Double
    Dim bRightHandSide As Boolean
    
    Set pCurve = pPolygon
    
    pCurve.QueryPointAndDistance 0, pPoint, False, TempPoint, distAlong, distFrom, bRightHandSide
    bFunction = bRightHandSide
    Set TempPoint = Nothing
    Set pCurve = Nothing
End Function

Answer 6

Ну да, аналогично. Под CallcVal что имеется ввиду?.

Answer 7

математическая функция решает СДУ

Answer 8

Т.е?. СДУ?.
Сейчас столкнулся с проблемой - нужно градиентно залить полигон, полигон есть берег реки, точнее есть два полигона - полигон реки и полигон берега. Полигон реки равномерно забивается некоторыми значениями, фактически опускается или поднимается поверхность воды. Далее возникает разлет между зерклом воды и берегом. Пробывал поднять-опустить пикселы берега по различным зависимостям от положения от воды, но постоянно вознакают артефакты при построении горизонталей Sprecial Analyst`ом. С утра бъюсь Быть может подход неправильный?. :)

Answer 9

СДУ - Система Диференциальный Уравнений
а твою задачу даже и не знаю как решать в этом я даже не новичек, сорри.

    

Answer 10

Гм. А причем тут система дифферинциальных уравнений то?. Вроде как нужно из растра значения пикселей повыдергивать?. :)