블록이 잡혀있는 상태에서 이름을 변경할수 없나요??

간단한 리습 하나 올려드릴께요…
하루님…………….작
(defun c:bln(/ os ent elist ins)
    (setvar “cmdecho” 0)
    (setq os (getvar “osmode”))
    (if (setq ent (car (entsel “nBlock select:”)))
      (progn (setq elist (entget ent))
        (setq obn (cdr (assoc 2 elist)))
        (setq ins (cdr (assoc 10 elist)))
        (setq rname nil)

        (while (= rname nil)
          (setq rname (getstring t “nNew block name:”))
          (setq byn (assoc 2 (tblsearch “block” rname)))
          (setq byn2 (cdr byn)) ; byn2 블럭이름
          (if (= rname byn2)
            (progn (setq rname nil)
               (prompt “블럭이름중복->다시입력해주세요”)
            ) ;progn
          );if
        ) ;while

        (if (/= rname “”)
          (progn (command “explode” ent)
            (setvar “osmode” 0)
            (command “_.block” rname ins “P” “”)
            (command “_.insert” rname ins “” “” “”)
            (setvar “osmode” os)
          (princ “블록이름: “)(princ obn)(princ ” –> “)(princ rname)(princ ” 로 교체함”)
          );progn
        );if
      );progn
     );if
(princ)
);defun