Принадлежность точки криволинейному контуру (Страница 1 из 2)

> Михаил
Аппроксимировать дуговые сегменты линейными

Спасибо за советы! Как вариант, объединил оба ответа...Если есть алгоритм определения нахождения точки внутри контура из линейных сегментов, то можно его применить и для контура, если в него входят дуговые. Для этого определить ближайшую к заданной точке точку на контуре и если сегмент контура в этой точке будет дуговым, то аппроксимировать его всего двумя линейными сегментами (один из начала дуги в ближайшую точку контура заданной точке, другой - из этой же точки к концу дуги), и определить принадлежность точки линейному контуру по имеющемуся алгоритму.

> Михаил
У тебя контур существует ввиде примитива или некий виртуальный?

Вот-вот, я этот алгоритм и имел в виду, который "взят из статьи Мусина в журнале "Программирование....". У меня контур представляет собой замкнутую полилинию, но в любом случае по этому алгоритму создается список координат вершин, т.е. контур может быть и виртуальным...просто я считал, что в случае с дуговыми сегментами, можно предварительно в список координат добавлять координаты еще одной точки, которая будет лежать на контуре и являться ближайшей к заданной,

> Евгений Елпанов
Согласен, в этом случае это не сработает

> Михаил
Если у тебя существующая полилиния, то
вот здесь http://dwg.ru/dnl/607 есть команда ConvTo2d для аппроксимации дуговых сегментов.
Если пишешь на лиспе, то можешь воспользоваться имеющимися там ф-циями

(TraceToLWPlineObj (vlax-ename->vla-object (car(entsel"\nУкажи полилинию"))))

Получить полилинию с аппроксимированными дуговыми сегментами

(TraceToLWPlinePoint (vlax-ename->vla-object (car(entsel"\nУкажи полилинию"))))

Получишь просто список точек полилинии с аппроксимированными дуговыми сегментами. Потом его можешь скармливать другим алгоритмам

> Михаил
Можно еще использовать чисто автокадовский метод,
релизованный в функции PointInside на сайте:
http://www.cadforyou.spb.ru/index.php?c … tions_page
~'J'~

алгоритм взят на http://algolist.manual.ru/maths/geom/belong/poly2d.php
условие для Boundary - car и last одна и та же точка

(defun vk_IsPointInside    (Point Boundary / FarPoint)
  (setq FarPoint (cons (+ (apply 'max (mapcar 'car Boundary)) 1.0) (cdr Point)))
  (not
    (zerop
      (rem (length
         (vl-remove    nil
            (mapcar    (function (lambda (p1 p2) (inters Point FarPoint p1 p2)))
                Boundary
                (cdr Boundary)
            )
         )
       )
       2
      )
    )
  )
)

> Кулик Алексей aka kpblc
Во-во, давай напиши и залей туда же для разнообразия,
помогай питерским :)
~'J'~

> Кулик Алексей aka kpblc
Спасибо за ссылку, теперь вроде получился
неплохой набор на все вкусы, а кому и пригодится
кто будет потом искать :)
~'J'~

Наверное тоже, что и у KAI, только покороче.
Тут возник вопрос:
Если точка внутри контура, то незачем определять на границе ли она.
Теперь сам вопрос. Как работает конструкция OR

(OR
  <точка внутри контура?>
  <точка на границе контура?>
)

Если <точка внутри контура?> вернула Т OR выполняет конструкцию   <точка на границе контура?> или возвращает T не выполняя <точка на границе контура?> ??

> Кулик Алексей aka kpblc
Я тоже так думал, но сумневался немного

> Евгений Елпанов
Теперь не сомневаюсь :)