(defun C:tfw_file_by_numenklature2000 (/ file-name insert-point list_files)
  ; создание .tfw файла растра (МСК-Саратов М1:2000) по номенклатуре
  (defun create-tfw-file (input-point file_ /)
    (file_write_list_to_file (strcat (vl-filename-directory file_) "\\" (vl-filename-base file_) ".tfw")
      (list
	"0.1693193362682"
	"0.0000000000000"
	"0.0000000000000"
	"-0.1693193362682"
	(rtos (nth 0 input-point)2 16)
	(rtos (nth 1 input-point)2 16)
;;;	"-12000.0000000000000"
;;;	"8000.0000000000000"
	))
    
    )
  (setq list_files (file_find_be_extension "d:\\002k\\tif" "tif"))
  (foreach file list_files
    (setq file-name (vl-filename-base file))
    (setq insert-point (get-point-by_numenklature2000 file-name))
    (create-tfw-file (mapcar '+ insert-point (list 0.0 1000.0)) file);
    )
  (princ)
  )