블록을 날짜 이름으로 변경 리습 수정 부탁드립니다.

현재 블록 안에 들어가서 일부분을 다른 이름으로
블록을 생성 하는데 그시점의 날짜와 시간으로 블록명을 지정 하는 것이니
당연히 같은 이름은 아니지요.
 예를 들면 pasteblock 명령은 블록 안에서 사용 가능 한데 문제는 임의의 블록 이름으로 지정 후에
그이름을 날짜와시간의 이름으로 rename 하면 될것 같습니다.
어떻게 리습으로 가능 할까요? 도와 주십시요.

도와 주신분 들께  감사드립니다.
우선 급한대로  xcsh 님이 올려 주신걸로 제가 약간 수정해서(이게 맞는 건지?)
 아래처럼 쓰기로 했습니다

(defun c:bkr(/ sel_ ent_list blk_name new_name acad_obj act_docu blocks blk_old)
   ;블록을 선택해서 이름을 바꾼다.
(setq sel_ (entsel “n블록선택:”))
(setq ent (car sel_))
(setq ent_list (entget ent))
(setq blk_name (cdr (assoc 2 ent_list)))

(setq acad_obj  (vlax-get-acad-object)
act_docu  (vla-get-ActiveDocument acad_obj)
blocks    (vla-get-blocks act_docu)
blk_old   (vla-item blocks blk_name)
)
(setq date (rtos (getvar “cdate”) 2 8))
(setq new_name (strcat date))
(vla-put-name blk_old new_name)
);defun

다시 정리하면
1.블록편집기로 들어간다.
2.리습명령 ‘b1’ 으로 새로운 블록 생성한다.
3.상기의 리습명령 ‘b1’ 으로 임의의 이름으로 저장된 블록이름을 ‘bkr’ 로 이름을 재지정 한다.
입니다.

한번더 질문을 드린다면 리습을 두번 실행 할 수 밖에 없는데
2번과 3번을 하나의 리습으로 실행 할 수는 없을까요?

건승하세요.