블럭 재정의 리습 (도움좀부탁드립니다)

도면상에 동일한 이름으로 여러개 만들어진 블럭중
선택한 블럭만 입력한 블럭명(미입력시 임의로)으로 바꾸는
리습을 만들려고했는데
새이름으로 블럭변경까지는..
임의이름(복사기능사용)으로 만드는게 어렵습니다…
고수님 도움 부탁드립니다
if문이…잘 안되는것 같은데…

(defun c:REblock (/ esel p1 ntxt1 ent ssetl ) ; block RENAME화 – 단축키 : RB
(setvar “osmode” 111)
(SETQ ESEL (ENTSEL “nSelect of REmakeing block ? : ” )) (terpri)
(setq p1 (getpoint “nREmakeblock Pick Point ? : “)) (terpri)
(setq ntxt1 (getstring “nNew block name ? : “))(terpri)
(SETQ ENT (ENTGET (CAR ESEL )))
(setq ssetl (CDR (ASSOC 8 ENT)))
(if (= p1 nil) (setq p1 (CDR (ASSOC 10 ENT))) ) (setvar “osmode” 0)
(if (= ntxt1 nil)
(progn
(command “explode” ESEL “”)
(command “copybase” p1 “p” “”)
(command “pasteblock” p1 “”)
(command “erase” “p” “”)
(command “chprop” “l” “” “la” ssetl “”)
) ; progn
(progn
(command “explode” ESEL “”)
(command “-block” ntxt1 p1 “p” “”)
(command “-insert” ntxt1 p1 “” “” “”)
(command “chprop” “l” “” “la” ssetl “” )
) ; progn
) ; if
(setvar “osmode” 111)
(princ “nREmaking Block OK …”) (princ)
)