Выбор примитивов между двумя полилиниями

[1958]

Имеется две замкнутые полилинии, одна в другой. Между ними находятся примитивы. Как их выбрать для дальнейшего удаления/перемещения/копирования?

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

Скажу сразу, что ни в одном из AutoCAD'овских API нет готовых средств для этой цели. Самое простое из того, что можно сделать - это получить два набора примитивов и убрать из первого те примитивы, которые есть во втором наборе.
Получаем список вершин (или точек аппроксимации, если в полилинии есть дуговые сегменты) внешней полилинии (назовём его pts1), список вершин (или точек аппроксимации) внутренней полилинии (pts2)
Получаем два набора:

Код - Auto/Visual Lisp [Выбрать]

1. (setq ss1 (ssget "_CP" pts1))
2. (setq ss2 (ssget "_CP" pts2))

Ну и из набора ss1 выкидываем всё, что есть в наборе ss2. Ну и в конце для выделения набора:

Код - Auto/Visual Lisp [Выбрать]

1. (sssetfirst nil ss1)

При этом обе полилинии должны находится в видимой области в момент обращения к функциям (ssget)
Как-то так.

[1958]

Спасибо!
Скажу сразу, что такое решение у меня вертелось в голове. Думал, что есть что-нибудь красивее.
Ну, что же! Будем ваять два набора.