(defun C:file-rename-tif-arab-in-rim-500 (/ list_files numenklature-list)
  
  (setq list_files (file_find_be_extension "d:\\500\\3 rename" "tif"))
  (foreach file list_files
    (setq numenklature-list (convert-string-to-list-be-delimiter (vl-filename-base file) "-"))
;;;    (terpri)
;;;    (princ file)
;;;    (princ "=>")
;;;    (princ(strcat (vl-filename-directory file) "\\"
;;;		  (nth 0 numenklature-list)
;;;		  "-"
;;;		  (convert-arab-to-rim-13 (atoi(nth 1 numenklature-list)))
;;;		  "-"
;;;		  (nth 2 numenklature-list)
;;;		  (vl-filename-extension file)))
    
    (vl-file-rename file (strcat (vl-filename-directory file) "\\"
				 (nth 0 numenklature-list)
				 "-"
				 (convert-arab-to-rim-13 (atoi(nth 1 numenklature-list)))
				 "-"
				 (nth 2 numenklature-list)
				 "-"
				 (nth 3 numenklature-list)
				 (vl-filename-extension file)))
    )
  (princ)
  )


