블럭이름바꾸기 리습 수정 부탁드립니다.

네 선택한 블록만 새로운 이름으로 블록 만들고 싶습니다
여기서 어떤문구를 추가해야하는지 수정부탁드립니다. 

;;;====================================
;;;  Block명 일괄 변경
;;;====================================
(defun c:bn ( / txt doc block )
  (if (/= (setq txt (getstring 5 “n블럭이름앞에 추가할 내용을 입력하세요: “)) “”)
    (progn
      (setq doc (vla-get-activedocument (vlax-get-acad-object)))
      (vlax-for block (vla-get-blocks doc)
        (setq blockname (vla-get-name block))
        (if (/= (substr blockname 1 1) “*”)
          (vla-put-name block (strcat txt blockname))
        )
      )
      (vlax-release-object doc)
    )
  )
  (princ)
)