[[MTL]]

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

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

[AMDen]

Сообщение от [MTL] в котором необходимо вписывать старое имя блока

Зачем вписывать? Достаточно выбрать из списка необходимый блок.

[[MTL]]

AMDen, запомнить название, выбрать из длинного списка именно нужный.

[valerik88]

Я себе давно такую писал. Работает с любыми блоками.
https://forum.dwg.ru/showthread.php?t=144318

[[MTL]]

valerik88, понравилась. Но все вхождения переименовывает. Частенько бывает нужно только одно переименовать.

[Ingpro]

Сообщение от [MTL] Указываете переименовать только выбранный

У переименованного блока точка вставки съезжает и блок улетает вверх-вправо в рус версии AutoCad 2015.
Пишет в командной строке
Команда: -ВСТАВИТЬ Имя блока или [?] <A$C46BC248E>: 26
Единицы: Безразмерный Преобразование: 1.0000
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 1.000000000000000 Масштаб по оси Y <равен масштабу по X>: 1.000000000000000
Угол поворота <0>: 0.000000000000000

А вообще, очень удобно, что можно переименовать только выбранный блок.
Кстати, если переименовывать все вхождения, то базовая точка остаётся на месте.

[petro_f]

Сообщение от Ingpro У переименованного блока точка вставки съезжает и блок улетает вверх-вправо в рус версии AutoCad 2015. Пишет в командной строке Команда: -ВСТАВИТЬ Имя блока или [?] <A$C46BC248E>: 26 Единицы: Безразмерный Преобразование: 1.0000 Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]: Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 1.000000000000000 Масштаб по оси Y <равен масштабу по X>: 1.000000000000000 Угол поворота <0>: 0.000000000000000 А вообще, очень удобно, что можно переименовать только выбранный блок. Кстати, если переименовывать все вхождения, то базовая точка остаётся на месте.

Попробуйте этот лисп. Там есть всё что надо
Команды:
"CB" - Copy & Rename Block Reference.
"RB" - Rename Block Reference.

[Ingpro]

Сообщение от petro_f Попробуйте этот лисп

Спасибо, petro_f, знаю этот лисп, с динамическими тоже не работает. Вроде как переименовывает, но блок превращается в статический, что есть нехорошо.
Есть rename.lsp (автор valerik88, пост#4 ) переименовывает все блоки, сохраняет динамику, но не позволяет переименовать только один выбранный...

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

Ingpro, тебе будет проще скопировать твой блок в пустой чертеж, там его переименовать и вставить обратно. Поверь, это будет значительно быстрее и проще.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Ingpro, тебе будет проще скопировать твой блок в пустой чертеж, там его переименовать и вставить обратно

Алексей, так и делаю! Но с лиспом удобнее (в одном чертеже), IMHO.
Считаем количество операций штатными средствами AutoCad:
1. Копируем блок в буфер обмена
2. Открываем новый файл
3. Вставляем блок из буфера
4. Переименовываем
5. Копируем блок с новым именем в буфер обмена
6. Вставляем блок из буфера в исходный файл
А если таких копий надо несколько... (бывает 3-5)

Если лиспом:
1. вызываем команду "Новое имя" (лисп)
2. выбираем блок
3. вводим новое имя - voilà
Просто хотелось обратить внимание автора на небольшой сбой... может это только в рус версии...

[[MTL]]

Ingpro, спасибо
Я это исправил. У меня вроде работает. Проверьте, пожалуйста. Новая версия в заголовке темы.

[Ingpro]

Сообщение от [MTL] Я это исправил. У меня вроде работает

У меня пока без изменений (блок съезжает), если интересно приложу файл с переименованным блоком

[petro_f]

Сообщение от Ingpro Спасибо, petro_f, знаю этот лисп, с динамическими тоже не работает. Вроде как переименовывает, но блок превращается в статический, что есть нехорошо. Есть rename.lsp (автор valerik88, пост#4 ) переименовывает все блоки, сохраняет динамику, но не позволяет переименовать только один выбранный...

Что то я в первый раз такое слышу. У меня все блоки переименовывает и они остаются динамическими.
Покажите как у Вас это получается? Что за такие волшебные блоки. Если можно, то дайте пример.

[Ingpro]

Сообщение от [MTL] Ingpro Я это исправил. У меня вроде работает. Проверьте, пожалуйста

[MTL], такая особенность. Только блоки, созданные лиспом mb.lsp "улетают" вправо-вверх.
Блоки, созданные командами AutoCad через буфер ведут себя правильно, т.е. остаются на месте после переименования,
значит ошибки в лиспе НОВОЕ_ИМЯ_v.1.1.LSP нет, а есть что-то некорректное в mb.lsp, который создаёт блоки из выбранных примитивов (лисп приложен). Лисп удобный, но просто не "дружит" с вашим.
Так что, [MTL], не ищите недочёты, и спасибо за программу.
PS. А почему в программе переименования блока фигурирует Точка вставки или Базовая точка,
может быть не должно быть этой зависимости, IMHO? И тогда не будет проблем?

[Ingpro]

Сообщение от petro_f Покажите как у Вас это получается? Что за такие волшебные блоки. Если можно, то дайте пример

В этом файле динамика сохранилась, но сдвинулся текст у переименованного (с помощью CopyRenameBlockV1-5.lsp) блока.

[gumel]

Вот, отличное решение, переименование блока по клику на него.
Макрос на кнопку: ^C^P-rename;_b;(vla-get-effectivename (vlax-ename->vla-object (car(entsel))));

[Ingpro]

Сообщение от gumel Макрос на кнопку:

Спасибо, в виде лиспа ведь тоже можно записать (не пользуюсь кнопками, с клавиатуры удобнее)?

[petro_f]

Сообщение от Ingpro В этом файле динамика сохранилась, но сдвинулся текст у переименованного (с помощью CopyRenameBlockV1-5.lsp) блока.

А вызвать стандартную команду автокада (command "_ATTSYNC" "_select") не судьба? Это же стандартное поведение, при работе с блоками содержащие атрибуты

[Ingpro]

Сообщение от petro_f А вызвать стандартную команду автокада (command "_ATTSYNC" "_select")

Спасибо, теперь буду знать. Раньше не было надобности в этой команде.

[Barmaley Bubusikin]

Программа не показывает текущее имя. Точнее показывает, что блок анонимный. Это так и должно быть?