[求助]：关于更换块?

sccat

点选一个块,如果块的名称是A1,在原位置将它变成A2.



可以直接改名字吗?还是要先把块的坐标读出来.删除块,再插入A2块?



块所在的层要不要解锁?Lisp没有保存层状态的功能?先把层解锁了,再还原.

这个好像不行,执行以后连原来的块都看不到了.
请大虾们帮忙分析一下.

(defun c:changeblock()
  (setq en1 (car (entsel "Get a Block")))
  (setq ed1 (entget en1))
  (if (= "INSERT"(cdr (assoc 0 ed1)))
         
         (if (= "DG" (cdr (assoc 2 ed1)))
                (progn
                   (setq ed1 (subst (cons 2 "DG2") (assoc 2 ed1) ed1))
                (entmod ed1)
                (entupd en1)
                )
           )

    )
)