[求助]：如何修改所选择块的块名

haibinpro

(defun c:test(/ en en_data old_name newblockname)
(setvar "cmdecho" 0)
(setq newblockname (getstring "图块的新名字："))
(setq en (entsel "\n 选择图块：")
en_data (entget (car en))
old_name (cdr (assoc 2 en_data))
)
(command "rename" "b" old_name newblockname)
(prin1)
)

此程序会对所有与所选择图块相同名字的图块重命名，而非仅对所选择图块重命名。

如何实现仅对所选择图块重命名？

ll_j

Rename 命令修改的是“块”的名字，图中所见的只是块的引用（Insert，通常也称“块”），修改了块名当然全部修改。而选择的实体只是其中之一，如果需要与其它不同，则需要替换成另外的“块”，现在论坛有很多这样功能的程序，我的网络U盘中cb.lsp也是替换块的程序。

haibinpro

找到了，谢谢。

haibinpro

找到了，谢谢。