(defun C:convert_dir_loc_to_kml (/ patch-dir color-list list_files n)
  (setq patch-dir "a:\\Общая\\loc\\")
  (setq list_files (file_find_be_extension patch-dir "loc"))
  (setq n 0)
  (setq color-list (file_read_to_list (strcat *geo_tools_root_dir* "\\data\\colors.txt")))
  (foreach file list_files
    (convert-loc-to-kml file nil (nth n color-list))
    (setq n (1+ n))
    (if (> n 19) (setq n 0))
    )
  (princ)
  )