리습수정 좀 부탁드립니다.^^

(defun c:i(/ 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




이게 뭐냐면..블럭이름 바꾸는 리습인데요..
지금은 블럭이름을 바꿀때마다 입력해줘야 하는데..
자동으로 들어가게 좀 해주세요^^
A$C0….이런식으로 임의로 들어가는 것 있죠..ㅎ
부탁드립니다.