[молодой человек]

Это нужно для команды _offset. Чтобы программа сама определяла точку наружной области полилинии.
И строила подобную полилинию во внешней области.

[ытя]

Построй обе, сравни длину и удали корткую.

[молодой человек]

В общем-то я так и делаю, просто думал есть какое-то более красивое решение.

[Кулик Алексей aka kpblc]

Есть, но оно не универсальное.

[молодой человек]

Позабыл совсем векторную алгебру( Как найти координаты точек по разные стороны полилинии?
Помню только уравнение прямой и нормальный вектор этой прямой. Дальше ступор(((

[gomer]

Если полилиния в форме буквы s, то с какой стороны у нее внешняя?

[молодой человек]

s- гарантированно не будет. считаем, что полилиния состоит из 2-х отрезков

[Александр Ривилис]

Сообщение от молодой человек s- гарантированно не будет. считаем, что полилиния состоит из 2-х отрезков

Для полилинии состоящей из двух отрезков нет понятия внутренний и внешней области. Понятие внутренней и внешней есть у замкнутой несамопересекающейся полилинии. Всё остальное от лукавого...

[TararykovDG]

Если

Сообщение от молодой человек s- гарантированно не будет. считаем, что полилиния состоит из 2-х отрезков

то можно, например так

Код:

[Выделить все]

 
;p1 - первая точка полилинии
;p2 - вторая точка полилинии
(polar p1 (angle p1 p2) (* 1.5 (distance p1 p2))) - точка "наружной" области полилинии.

[5hev]

В свое время делал проверку на error-meggage при vla-offset сначала с положительным заведомо большим значением, и если её не следовало, то значит, все верно - внешняя сторона. Иначе нужно отрицательное значение.

[Кулик Алексей aka kpblc]

5hev[ru], это означает создание новых примитивов. Не всегда гуд.

[5hev]

Кулик Алексей aka kpblc, согласен. К тому же, в общем случае угол излома полилинии может быть настолько мал, что пороговое значение по моему варианту станет огромным или вообще недостижимым
Однако, с замкнутыми контурами, как у меня и было, работало просто на ура.

[молодой человек]

В общем родился такой лиспик:

Код:

[Выделить все]

 ;;;(kos-pline-offset-max (car(entsel)) 30)
;;;Нахождение максимальной длины  полилинии подобной входной полилинии
(defun kos-pline-offset-max (en dist /  pln1 pln2) 
  (vla-Offset (vlax-ename->vla-object en) (* dist -1))
  (setq pln1 (entlast))
  (vla-Offset (vlax-ename->vla-object en) dist)
  (setq pln2 (entlast))
  (if (> (vla-get-Length (vlax-ename->vla-object pln1)) (vla-get-Length (vlax-ename->vla-object pln2)))
    (progn
      (ENTDEL pln2)
      pln1
    )
    (progn
      (ENTDEL pln1)
      pln2
    )
  )
)

Функция vla-Offset значительно проще, чем стандартная. Спасибо 5hev[ru]

[Кулик Алексей aka kpblc]

А теперь заблокируй текущий слой и слой примитива. Выполни снова лиспик. Или попытайся обработать примитив внутри блока / внешней ссылки.