(defun C:analise-txt-lists_new (/ edit-not-big-list 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_new.txt")
  (setq txt-num-list-patch "d:\\list_coor_num_new.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 (atof(vl-string-subst "." "," (nth 0 z)))(atof(vl-string-subst "." "," (nth 1 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-big-list
    (setq flag T)
    (setq flag-nil nil)
    (setq n 0)
    (while flag
      (if (< (distance (list (nth 0 point)(nth 1 point)) (list (nth 1 (nth n list-convert-num-list))(nth 2 (nth n list-convert-num-list)))) 0.01)
	(setq flag nil)
	(setq n (1+ n))
	)
      (if (= n (length list-convert-num-list))
	(progn
	  (setq flag nil)
	  (setq flag-nil T)
	  ))
      )
;;;    (if flag-nil
;;;      (setq edit-not-big-list (append edit-not-big-list (list(strcat (nth 0 (nth n list-num-list))"\t"(nth 1 (nth n list-num-list))"\t"(nth 2 (nth n list-num-list)) ))))
;;;      (setq edit-big-list (append edit-big-list (list (nth 0 (nth n list-convert-num-list)))))
;;;      )
    (setq edit-big-list (append edit-big-list (list
						(if flag-nil
						  ""
						  (nth 0 (nth n list-convert-num-list))
						  ))))
    )
  (file_write_list_to_file "d:\\big-list-result-new.txt" edit-big-list)
;;;  (file_write_list_to_file "d:\\not-big-list-result-new.txt" edit-not-big-list)
  (princ)
  )