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

그리고 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