Копирование/вставка групп между чертежами

Две пользовательские команды COPY_GROUP, PASTE_GROUP для копирования/вставки групп между чертежами. COPY_GROUP для копирования групп и примитивов в буфер обмена из чертежа-отдатчика, PASTE_GROUP для вставки скопированного буфера обмена в чертёж-приёмник.
Для загрузки LISP контейнера команд используйте функцию (vl-load-all) в LISP выражении (vl-load-all "copy_paste_group"). Она обеспечит автозагрузку обеих команд во все открытые и открываемые после загрузки контейнера чертежи. При использовании стандартных загрузчиков в чертеже для вставки скопированных групп необходима своя загрузка контейнера для доступа к команде PASTE_GROUP.
Механизм алгоритма.
В алгоритме используется словарь расширения (extension dictionary) примитива. 
В пользовательский словарь каждого выбранного элемента заносится информация о вхождении примитива в каждую имеющуюся группу. Имена неименованных групп вида *Annn заменяются на имена _Annn. При выполнении команды COPY_GROUP переменная PICKSTYLE устанавливается в 1, для визуализации выбора групп. Выбранные примитивы, которые не входят в группы копируются обычным способом. Выполнение команды PASTE_GROUP запрашивает точку вставки скопированных в буфер обмена примитивов относительно левого нижнего угла их общего положения. После этого скопированные элементы вставляются и собираются в группы по их вхождениям.

/imgupl/blog/1/4/1/0/7/4/files/copy_paste_group_fas.rar