求助，高手帮忙看看！

78529

我想更改图块的名称用这个程序不能改变，是不是图块的名称不能修改?

(defun c:ww( / ss en)
  (setq ss(ssget (list(cons 0 "insert")))
 en(entget (ssname ss 0))
 )
  (setq en(subst (cons 2 "www") (assoc 2 en) en))
  (entmod en)
  )

或者应该用其他的方法，请指教！

ZZXXQQ

用RENAME命令改：(COMMAND "-RENAME" "B" "OLDBLKNAME" "NEWBLKNAME")

78529

谢谢斑竹，但如果是匿名图块，又怎样查找、定义？