This works perfect on my machine, but it won't work the first time on my other machines. When you key up "SD" and the block doesn't exist it should ask where to insert, pull the Dimscale and everything should be fine. But on anyone's machine except mine, it isn't pulling the time/date or anything. It tries to enter the string on the next command line - so the output is "Jan 01,1980 - 12:00". But I am shooting for "Drawing1.dwg - 02/03/04 - 10:29 - JMG", and if I run the lisp again it is corrected. Again, it works fine on my machine, but when I move it to another computer it doesn't work. (as a side note, I would also like to know how to get a default input when prompted for the Insert question) Thanks for any help, I am confused. Here's the code... ================================================ ; SAVEDATE.LSP (defun C:SD (/ cdate ss edata ename) (setq cdate (rtos (getvar "cdate") 2 6) cdate (strcat (getvar "dwgname") " - " (substr cdate 5 2) "/" (substr cdate 7 2) "/" (substr cdate 3 2) " - " (substr cdate 10 2) ":" (substr cdate 12 2) ; ; HEY YOU!!!!!!!! - CHANGE INITIALS BELOW!!!!!!!!!!!!!! ; " - JMG" ; ; (getvar "loginname") ; the above line can be used to pull the Windows Login Name ) ) (if (setq ss (ssget "X" '((0 . "INSERT") (2 . "SAVEDATE")))) (progn (setq ename (entnext (ssname ss 0)) edata (entget ename) edata (subst (cons 1 cdate) (assoc 1 edata) edata) ) (entmod edata) (entupd ename) ) (progn (princ " SAVEDATE block not found. ") (initget "Y N") (setq ans (getkword "Insert <Y/N>:")) (if (= ans "Y") (progn (setq ins (getpoint "Enter Insertion point: ")) (command "INSERT" "SAVEDATE" ins (*(getvar "dimscale")) (*(getvar "dimscale")) "0" cdate)) ) ) ) (princ) ) ; End Of File