home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / DATEIT.LSP < prev    next >
Text File  |  1988-04-05  |  172b  |  9 lines
  1. (defun c:dateit (/ x)
  2. (setq x (getvar "cdate"))
  3. (setq x (rtos x 2 0))
  4. (setq date (strcat
  5. (substr x 5 2)"/" ;month
  6. (substr x 7 2)"/" ;day
  7. (substr x 3 2)))  ;year
  8. )
  9.