Мультикопия текста с одновременной правкой

Мультикопия текста с одновременной правкой.
Работатет с Text, Mtext, Attdef.
Базовую точку при копировании выбираем сами.
Обрабатывается ввод enter или ПКМ для завершения команды.
___________
Обновил прогу, теперь редактируются и атрибуты в блоках.
Копируется любой набор объектов с переносом базовой точки в последнюю указанную. В этом наборе находятся текстовые объекты и предлагается по порядку их отредактировать.
2 варианта запуска, макрос на кнопку:
если надо редактировать текст
^C^C(if (eq Kr_Copy_and_Edit nil) (load "Kr_Copy_and_Edit.vlx"));(defun c:Kr () (Kr_Copy_and_Edit t));Kr
есле не надо редактировать текст (просто копируем)
^C^C(if (eq Kr_Copy_and_Edit nil) (load "Kr_Copy_and_Edit.vlx"));(defun c:Kr () (Kr_Copy_and_Edit nil));Kr
____________
Обновил под новые версии AutoCAD