오늘날짜로 레이어 만들기

오토캐드 2016 사용하고잇는데 아래와 같이 오늘날짜로 레이어만들기가

작동을 안합니다. ㅠㅠ

오늘날짜 레이어로 만들고 출력이 안되게끔 하고 싶은데 고수님들 도와주세요.

(defun c:DDD (/ lw ln cc)
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os)
(princ))
;-<*error* end
(setq lw (getvar “lwdisplay”))
(command “undo” “be”)
(setvar “cmdecho” 0)
(prompt “n오늘 날짜로 레이어 만들기.”)
(setvar “lwdisplay” 0)
(setq ln (substr (rtos (getvar “cdate”) 2) 1 8))
(setq ln (strcat ln ” CHECK”)) ;수정 or 검토
(setq cc (acad_colordlg 1) cc (if cc cc 256))
(command “layer” “m” ln “s” ln “p” “n” ln “lw” “0.4” ln “c” cc ln “”)
(setvar “lwdisplay” lw)
(command “undo” “e”)
(princ)
)