[Веселин]

Продолжаю активное изучение. Интересует Сабж. На рисунке должно быть видно, где лишние вершины.
От них нужно избавится. Думаю, можно вычислить их координаты, но как узнать угол, на котором они лежат?

----- добавлено через ~25 мин. -----
Придумал следующее. Можно достать все координаты, а потом проанализировать. Взять текущую точку и проверить, если две соседние совпадают по x или y, то удалить. Потом построить новую полилинию, вместо той.

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

В Download "Утилиты для работы с полилиниями" (кажется, так называется), она же pltools.

[Веселин]

Да, я уже скачал и поглядел. Но в данном случае это мне не подойдет. Мне нужна простая подсказка, какими финтифлюшками пользоваться.

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

Куда уж проще - прополка полилинии и вперед. Или вручную удалять вершины.

[Веселин]

А можно кусок кода, где эта самая прополка происходит?

[nolte]

Посмотри функции vlax-curve-...., проверяя если на вершине изменятся угол следующего участка -вершину оставляешь, если сохраняется - удаляешь.

[Эдуард]

На скорую руку- прополка. Определяем углы сегментов полилинии.
(опускаю проверку на замкнутость , на изменение ПСК , Bulge и т.д.)

Код:

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

 (defun pline_getangle (/pl)
  (if
    (and
      (setq pl (car (entsel "\n Select pline:")))
      (= (cdr (assoc 0 (setq pl (entget pl)))) "LWPOLYLINE")
    )
     (pdist
       (mapcar 'cdr
	       (vl-remove-if-not '(lambda (x) (= (car x) 10)) pl)
       )
     )
  )
)

(defun pdist (lst)
  (if (cdr lst)
    (cons (angle (car lst) (cadr lst)) (pdist (cdr lst)))
  )
)

[Веселин]

Эдуард Спасибо, попробую!
А еще вопрос, чтоб новую тему не создавать. При выдавливании из области, создается тело, а область удаляется. Я знаю, что есть вариант, удалять исходный примитив либо нет. А какая переменная за это отвечает?

----- добавлено через ~9 мин. -----
Кажется нашел. DELOBJ

[zenon]

Сообщение от Веселин Продолжаю активное изучение. Интересует Сабж. На рисунке должно быть видно, где лишние вершины. От них нужно избавится. Думаю, можно вычислить их координаты, но как узнать угол, на котором они лежат? ----- добавлено через ~25 мин. ----- Придумал следующее. Можно достать все координаты, а потом проанализировать. Взять текущую точку и проверить, если две соседние совпадают по x или y, то удалить. Потом построить новую полилинию, вместо той.

курсор на удаляемую вершину - клик ПКМ - удалить вершину