[[MTL]]

Всем доброго времени суток.
Не знаю кому как, но для меня одной из самых бесячих процедур (м.б. самой бесячей) в Autocad является переименование блока. Раздражает окно интерфейса, в котором необходимо вписывать старое имя блока.
Во вложении программа, которая данный недостаток исправляет.
Работает следующим образом:
1. Загружаете лисп. В командной строке "НОВОЕИМЯ2"
2. Выбираете блок. В появившемся окне вписываете новое имя. Указываете переименовать только выбранный или все вхождения. Нажимаете OK.

Версия 2.0:
3.03.23г. Работа с динамическими и анонимными блоками. Проверка некорректности имени блока.

[[MTL]]

Так, обойтись "кривой калиткой" не удалось. Пришлось разбираться. В голове темы новая версия программы. Надеюсь, Ли Мак не обидится.
Так и не разобрался, как скопировать объекты блока в другой блок с соблюдением порядка видимости. Если есть маскировка в блоке - вылезает наверх, всё закрывает.

----- добавлено через ~3 мин. -----
Barmaley Bubusikin,
проверьте с новой версией.

[Кулик Алексей aka kpblc]

Попробуй проверить в (namedobjdict) словарь типа ACAD_SORTENTS (или что-то наподобие), может там что интересное встретится

[Ingpro]

Новая версия программы работает отлично. Спасибо большое , [MTL], так удобно, что можно переименовать только выбранный, и не надо из окна выбора блоков искать нужный для переименования...

[Barmaley Bubusikin]

Сообщение от [MTL] проверьте с новой версией.

Все топчик. Кроме заливки и маскировки

[[MTL]]

Сообщение от Кулик Алексей aka kpblc Попробуй проверить в (namedobjdict) словарь типа ACAD_SORTENTS (или что-то наподобие), может там что интересное встретится

Нужный словарь "ACAD_SORTENTS" привязан к подпримитивам блока. В нём есть таблица "SORTENTSTABLE", именно она меняется при изменении сортировки объектов. Представляет из себя вот что (пример):
((-1 . <Имя объекта: 203a74a7ac0>) (0 . SORTENTSTABLE) (5 . DE0C) (102 . ACAD_REACTORS) (330 . <Имя объекта: 203c6562e60>) (102 . ) (330 . <Имя объекта: 203c6562e60>) (100 . AcDbSortentsTable) (330 . <Имя объекта: 203d0a0b1f0>) (331 . <Имя объекта: 203cf126e10>) (5 . 13C3B) (331 . <Имя объекта: 203cf126e20>) (5 . 13C39) (331 . <Имя объекта: 203cf126e30>) (5 . 13C3A))
Насколько я понимаю, порядок следования меток (точечные пары 5) и есть порядок сортировки.
Но что с ней делать? (entmod) не работает.
С помощью ActiveX тоже не удалось. GetFullDrawOrder возвращает ошибку.
Может кто сталкивался?

[MironovMA]

А можете для удобства команду укоротить с "НОВОЕИМЯ2" например до "NNB" (NewNameBlock) или что-нибудь короткое.

[[MTL]]

MironovMA, можете через редактор Visual Lisp или просто через блокнот открыть текст программы. Там строчка (DEFUN c:НОВОЕИМЯ2 (/. Исправьте "НОВОЕИМЯ2" на любое какое удобно. Сохраните. После загрузки в AutoCad можете запускать вашу команду.