修改匿名块的名字

我这边有一个匿名块的autoCAD，但我需要把他改成实名块，否则如何能修改块，但是发现即便我用ActiveX在LISP中修改了，我重新查看了一下，*U确实已经没有了，但是在快编辑器里面还是没有改过来的呀，匿名块还是没有显示的呀！！！哪位大侠帮忙给看一下子？？在AutoLISP编辑器中输入如下：非常非常感激不尽(setq Obj (vlax-get-acad-object))(setq *acaddocument* (vla-get-activedocument Obj))(setq mspace (vla-get-modelspace *acaddocument*))(setq blockObj (vla-get-blocks *acadDocument*))(vlax-for bobj blockObj (setq blockname (vla-get-name bobj))(if (= (substr blockname 1 2) "*U")(progn(setq newblockname (substr blockname 3))(vla-put-name bobj newblockname))))
在LISP中显示是改变了，但是在AutoCAD中依旧是匿名块！！急