블록이름 자동지정 리습 도와주세요~

안녕하세요
아래는 제가 쓰는 블록 지정 리습입니다.

(defun c:B1( / a p1)
(COMMAND “LAYER” “M” “0” “”)
(setq p1 (getpoint “t Base Point ? :”))
(setq a (ssget))
(COMMAND “CHPROP” A “” “LT” “BYLAYER” “”)
(command “Copybase” p1 a “”)
(command “Erase” “P” “”)
(setq #os (getvar “osmode”))
(setvar “osmode” 0)
(command “Pasteblock” p1)
(setvar “osmode” #os)
(princ)
)

수정요청은 위에 처럼 임의 블록명이 아니고
아래 스톰님의 리습 처럼 기본 날짜와 시간의 블록명에
사용자가 원하는 문자를 추가하고 싶습니다.
도움 부탁드립니다.

(while (tblsearch “block” (setq nbn (rtos (getvar “cdate”) 2 8))))
(setq kw (cond ((getkword “n추가할 위치 선택 [전(F)/후(B)] <후>:”)) (“B”)))
 (/= (setq str (getstring “n추가할 문자 입력:”)) “”)