;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-19-2000
;;;
(defun c:imagetile ()
;;;  (setq start_file (getfiled "Select Image File" (getvar"dwgprefix") "bmp" 8))
  (setq n_posit 5)
  (setq e_posit 1)
  (while (/= n_posit 9)
    (setq ns_posit (itoa n_posit))
    (setq es_posit (itoa e_posit))
    (command ".image"
	     "a"
	     (strcat "KG_MAP_N" ns_posit "E" es_posit "=c:/my documents/my pictures/KG Map N" ns_posit "E" es_posit ".bmp")
	     (strcat "2" es_posit ", "(rtos (- 20.75(* n_posit 0.75))))
	     "1"
	     "0"
    )
    (if (eq e_posit 8)
      (progn(setq e_posit 1)(setq n_posit (1+ n_posit)))
      (setq e_posit (1+ e_posit))
    )
  )
  (princ)
)