;ADXFOUT.LSP function to write dxf files - ascii version

;Released into the public domain the the author, Sierra Hermitage
;
;Sierra Hermitage
;Rod Young, programmer
;140 Mesa Vista Drive
;Bishop, CA  93514
;Phone 619-387-2479 (voice)   619-387-2488 (data/fax, seldom enabled)
;E-mail hermit1@ix.netcom.com

;Intended to be used with RUN LISP (see RUNLISP.TXT) to batch process
;multiple drawings in unattended mode, but can be used with a script
;file - don't waste time writing scripts.  Order RUN LISP today.

;*** RUNNING THE PROGRAM ***

(defun adxfout()
	;hard coded for 16 places - change it if you want
	(command "dxfout" (getvar "dwgname") "16")	;acad doesn't prompt to
															;overwrite existing file
);end defun
;make this program 'load & go' - do this for all RUN LISP compatible
;programs
(adxfout)