(defun c:acad_log (/)
(vlr-remove-all)
(defun my_reac ()
(vlr-command-reactor nil '((:vlr-commandended . st_com)))
) ;_ defun
(defun st_com (a1 a2 / f xdate mo day yr hr mn dg us)
(setq f (open "D:\\TMP\\acad_log.xls" "a"))
(write-line
(strcat
(menucmd "M=$(edtime,$(getvar,date),MO.DD.YY\tHH:MM:SS\t)")
(getvar "dwgname")
"\t"
(getvar "loginname")
"\tCommand:\t"
(car a2)
) ;_ strcat
f
) ;_ write-line
(close f)
) ;_ defun
(my_reac)
) ;_ defun