LISP. Новая полилиния на основе нескольких замкнутых зон

Сразу отмечу, что надо добавать префикс "_" перед командой boundary, а то в русских версиях программа работать не будет.

Ну, и конечный результат - "region" ("область").

Обновленный вариант, удалено много лишнего и добавлены строки, при помощи которых создается действительно полилиния.

(defun C:union_poly (/ osn r l ll i p vv )
  (setvar "hpbound" 0)
  (setq osn (getvar "osmode"))
  (setvar "osmode" 0)
  (setq r (getpoint "\n Укажите первую точку внутри зоны:"))
  (vl-cmdf "_bpoly" r "")
  (setq l (entlast))
  (setq i 0)
  (setq p 0)
  (while (/= p "Finish")
    (initget 32 "Finish")
    (setq p (getpoint "\nУкажите точку внутри добавляемой зоны или [Finish]:"))
    (if  (= p "Finish")
      (progn;;;1
       (setq vv (entlast))
       (setvar "hpbound" 1)
       (command "_bpoly" "a" "b" "n" vv "" "" r "")
       (entdel vv)
       (setvar "osmode" osn)
      );;;конец progn1
      (progn;;;2
       (vl-cmdf "_bpoly" p "")
       (setq ll (entlast))
       (vl-cmdf "_union" l ll "")
       (setq i (1+ i))
      );;;конец progn2
    );;;if
  );;;while
);;;defun

> Владимир Громов
Справку не читал, но когда нет "_-...", просто набираю в комстроке (command "_bpoly") и смотрю чего он "хочет". У меня acad 2005 en, работает нормально, трудно сказать где подвох.
Может есть другие прогрессивные способы преобразования REGION в LWPOLYlINE?

> che
А, так это получается аналог "_-boundary" ("-контур") - те же опции, что и при вводе (command "_bpoly"). Я понял, какие это опции, но попробуй выделить получившуюся область и перетащить ее правой кнопкой мыши. А "_", конечно, нужны для русских версий.

> che
Так, вроде разобрался. Рисую два пересекающихся прямоугольника, по запросу union_poly указываю точку в одном, потом в другом и еще в зону пересечения. Теперь перетаскиваю и вижу объединенную полилинию. Раньше я не тыкал в зону пересечения и получалась какя-то фигня. Однако исходные прямоугольники остались.

Можно делать так: исходные объекты на одном слое, а для новой полилинии устанавливаем текущим другой слой. Тогда исходные объекты можно будет удалить.

Можно чуть-чуть подправить программу, чтобы при Esc тоже получалась общая полилиния, а не только после ввода "F"? Сейчас остается регион. Было бы гораздо удобнее, быстрее, когда нужно посшивать много полигонов.
И чтобы - после создания контура - сообщала "контур создан"?

Если контур уже создан, то Esc бы прекратил новые запросы.
Сейчас после указания первой и второй точки, после Esc программа прекращает работу, но создается регион.
Т.е. ни то (выход без результата), ни се (создание полилинии). А жать "F", а потом Enter - неудобно.
Кстати, у Автокада Esc для базовых действий означает (в отличие от других программ) как раз не отказ от результата, а выход с исполнением. (Чертим полилинию, Esc - полилиния создается).

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

Можно подправить всего лишь так, чтобы при Esc (после указания любого числа точек добавляемых зон)  программа сохраняла не общий регион, а полилинию? Как если бы была нажата "F"?
А также, сразу после успешного создания общего контура, сообщалось, что "общая полилиния создана"?

Я совсем не программист.
Наверняка напортачу. С подчеркиваниями и я бы, наверное, справился, но я даже не знаю, почему в опциях перед w и r они не нужны.
Не в лом было бы сразу текст с изменениями? :)