(defun C:analise-txt-lists1 (/ EDIT-BIG-LIST FLAG FLAG-NIL LIST-BIG-LIST LIST-CONVERT-BIG-LIST LIST-CONVERT-NUM-LIST LIST-NUM-LIST N TXT-BIG-LIST TXT-BIG-LIST-PATCH TXT-NUM-LIST TXT-NUM-LIST-PATCH Z)
  
  (setq txt-big-list-patch "d:\\sort_big_list_coor.txt")
  (setq txt-num-list-patch "d:\\list_coor.txt")
  
  (setq txt-big-list(file_read_to_list txt-big-list-patch))
  (setq txt-num-list(file_read_to_list txt-num-list-patch))
  
  (foreach x txt-big-list
    (setq list-big-list (append list-big-list (list (convert-string-to-list-be-delimiter x "\t"))))
    )
  (foreach y txt-num-list
    (setq list-num-list (append list-num-list (list (convert-string-to-list-be-delimiter y "\t"))))
    )
  
  (foreach z list-big-list
    (setq list-convert-big-list (append list-convert-big-list (list (list (nth 0 z)(atof(vl-string-subst "." "," (nth 1 z)))(atof(vl-string-subst "." "," (nth 2 z)))))))
    )
  (foreach w list-num-list
    (setq list-convert-num-list (append list-convert-num-list (list (list (nth 0 w)(atof(vl-string-subst "." "," (nth 1 w)))(atof(vl-string-subst "." "," (nth 2 w)))))))
    )
  (foreach point list-convert-num-list
    (setq flag T)
    (setq flag-nil nil)
    (setq n 0)
    (while flag
      (if (< (distance (list (nth 1 point)(nth 2 point)) (list (nth 1 (nth n list-convert-big-list))(nth 2 (nth n list-convert-big-list)))) 0.01)
	(setq flag nil)
	(setq n (1+ n))
	)
      (if (= n (length list-convert-big-list))
	(progn
	  (setq flag nil)
	  (setq flag-nil T)
	  ))
      )
    (if flag-nil
      (setq edit-big-list (append edit-big-list (list(strcat (nth 0 point)"\t"(rtos (nth 1 point) 2 3)"\t"(rtos (nth 2 point) 2 3) ))))
      )
    )
  (file_write_list_to_file "d:\\big-list-result_1.txt" edit-big-list)
  (princ)
  )