블럭 이름변경 리습이 오류가 납니다.

하기 리습은 제가 사용하고 있는 선택한 블럭에 대하여 이름은 자동으로 변경해주는 리습입니다.
그런데 문제가 이름변경을 했는데 자꾸 기준점 위치가 변경되던가.
아니면 기준점은 그대로 있는데 내용물 위치가 변경이 됩니다.
다 그런건 아니고 가끔씩… 다 그런거면 그려려니 사용하는데 가끔씩이라 이게 가끔 말썽이네요. ㅜ ㅜ

그리고 U명령을 사용하면 가끕 OSANP이 풀려버리는 문제도 발생하구요.

리습 출처는 매그니 형팀들이 올려주신 리습을 아주 아주 쬐금 수정했습니다.
제가 잘 못 수정한거 같은데.

능력자 형님들이 함 봐주세요 -꾸벅-

=======================================
(defun c:MN(/ os ent elist ins ss )

(setq os (getvar “osmode”))
(setvar “osmode” 0)
(setvar “CMDecho” 0 )
(princ “nBlock select:”)
(setq ss (ssget (list (cons 0 “INSERT”)))
ttt (rtos (getvar “cdate”) 2 6)
i 0)

(repeat (sslength ss)
(setq ent (ssname ss i)
elist (entget ent)
ent0 (cdr (assoc 0 elist))
i (1+ i)
rname (strcat ttt “_” (itoa i))
)

(setq obn (cdr (assoc 2 elist)))
(setq ins (cdr (assoc 10 elist)))
(command “explode” ent)
(command “_.block” rname ins “P” “”)
(command “_.insert” rname ins “” “” “”)
(princ (strcat “n 블록이름: ” obn ” –> ” rname ” 로 교체함”))
);repeat
(setvar “CMDecho” 1)
(setvar “osmode” os)
(princ)

);defun