Копирование блоков из чертежа в чертеж.

Программа на VBA для копирования блоков из одного чертежа в другой. Заточена под AutoCAD 2006/2007. Позволяет заменить блоки текущекго чертежа на одноименные блоки чертежа-источника. Блоки могут быть динамическими и содержать атбируты. Значения атрибутов при замене блока сохраняются (если в создаваемом блоке определены атрибуты). Также сохраняются такие свойства, как слой, цвет, вес, тип и масштаб линии, OCS.

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

Далее можно выбрать, какие блоки передавать в текущий чертеж:
Все - значит, все
Добавить новые - только те, которых нет в текущем
Обновить существующие - только те, имена которых в текущем чертеже и источнике совпадают. Автоматически включается режим замены. ("Заменить при совпадении имен")
Выделенные - те, которые выбраны в списке

При нажатии на кнопку "=>" выбранные имена блоков помещаются в спискок создаваемых. Удалить элемент из этого списка можно клавишей Delete. Очистить список - двойным щелчком на нем.

Кнопка "Открыть библиотеку" открывает чертеж-источник (библиотекой назван для солидности). Изначально ищется чертеж с именем "Формат.dwg", путь к которому прописан в HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings\\User\\Paths. Если такого файла не окажется, то открывается стандартное окно выбора файла. При поднятом флажке "Закрыть библиотеку по окончании" этот файл закрывается по завершении работы программы.

Вроде все

P.S. В AutoCAD 2005 и ниже теоретически должна работать при замене в коде "IAcadBlockReference2" на "AcadBlockReference", и ".EffectiveName" на ".Name"