如何不用rename修改块名

ranbingke

就是类似
(setq tbl (entget (tblobjname "block" "111")))
(entmod (subst (cons 2 "222") (assoc 2 tbl) tbl))
这样的

但是运行以上程序 总是返回空值 没有更改成功
网上关于(command "-rename" )改块名的方法已经说烂了
总觉得不停跳提示很烦而且不靠谱

不知道有没有大虾知道回归本源的修改方法