・ 現在の日時を取得する

現在の日時を取得するには、システム変数 "CDATE" を調べます。
ただし、返り値が実数ですから、文字列に変換しないとわかりにくいかもしれません。

現在の日時を文字列で取得

(defun Jof_str_date ( / str_data )
  (setq str_date (rtos (getvar "CDATE")))
  (setq str_date (strcat
                    (substr str_date 1 4) ; 西暦年
                    "/"
                    (substr str_date 5 2) ; 月
                    "/"
                    (substr str_date 7 2) ; 日
                    " "
                    (substr str_date 10 2) ; 時
                    ":"
                    (substr str_date 12 2) ; 分
                  )
    )
  str_date
  )