;plog function to write log of plotting activity or log of any
;other batch processing

;released to the public domain
;Sierra Hermitage
;140 Mesa Vista Drive
;Bishop, CA 93514
;Phone: 619-387-2479
;Fax:   619-387-2488
;email:  hermit1@ix.netcom.com

;intended for use with RUN LISP (see RUNLISP.TXT)

;if you're using this to log plotting, add this program to the
;list of programs to run within RUN LISP and in the 'variables'
;list box enter the number of copies you currently have Acad
;configured to plot.  you may also concatenate any other info
;you want written to the log - like number of copies and date
;of plotting

;if using this to log other batch processing, add this program to
;the list of programs to be run and in the 'variables' list box
;enter an appropriate value.  this value does not have to be a
;number - it could be the date or any other info you want written
;to the log file

;this program is 'hard coded' to write to a file named PLOG.TXT
;but you can recode it (should be obvious where) to write to
;to some other filename.  you may want to have several versions
;to write to various files.  this program appends to the file
;each time it is run, so if you want a fresh start be sure to
;delete the old file.

(defun plog()
	(setq ustring(getstring T))
	(setq ofile(open "PLOG.TXT" "a"))
	(setq ostring(strcat ustring " " (getvar "DWGNAME")))
	(write-line ostring ofile)
	(close ofile)
);end defun
(plog)	;make this program 'load & go'