(defun C:analise-txt-katalog1 (/ ass-big-list ass-num-list flag flag-nil n result-nil txt-big-list-patch txt-num-list-patch nn)
  
  (setq txt-big-list-patch "d:\\_общий.txt")
  (setq txt-num-list-patch "d:\\_город.txt")
  
  (setq ass-big-list(read-katalog-file-by-ass-list txt-big-list-patch))
  (setq ass-num-list(read-katalog-file-by-ass-list txt-num-list-patch))
  (setq nn 0)
  (foreach point ass-num-list
    (setq nn (1+ nn))
    (name-file-to-messege (itoa nn))
    (setq flag T)
    (setq flag-nil nil)
    (setq n 0)
    (while flag
      (if (< (distance (list (get-item-by-name-in-list point "Y")(get-item-by-name-in-list point "X"))
		       (list (get-item-by-name-in-list (nth n ass-big-list) "МСК Y")(get-item-by-name-in-list (nth n ass-big-list) "МСК X")))
	     0.02)
	(setq flag nil)
	(setq n (1+ n))
	)
      (if (= n (length ass-big-list))
	(progn
	  (setq flag nil)
	  (setq flag-nil T)
	  ))
      )
    (if flag-nil
      (progn
	(setq result-nil
	       (append result-nil(list
				   (convert-list-to-string-be-delimiter(list
									 (get-item-by-name-in-list point "№ п/п ")
									 ""
									 (get-item-by-name-in-list point "Название пункта")
									 (get-item-by-name-in-list point "Тип знака")
									 (get-item-by-name-in-list point "Тип центра")
									 (if (get-item-by-name-in-list point "Марка")(get-item-by-name-in-list point "Марка")"")
									 ""
									 (if(get-item-by-name-in-list point "Класс, разряд")(get-item-by-name-in-list point "Класс, разряд")"")
									 (rtos(if (get-item-by-name-in-list point "H")(get-item-by-name-in-list point "H")0)2 3)
									 (if(get-item-by-name-in-list point "Класс нивелировки")(get-item-by-name-in-list point "Класс нивелировки")"")
									 ""
									 ""
									 ""
									 ""
									 (rtos(get-item-by-name-in-list point "X")2 3)
									 (rtos(get-item-by-name-in-list point "Y")2 3)
									 ""
									 ""
									 ""
									 (rtos(get-item-by-name-in-list point "WGS-84 B")2 9)
									 (rtos(get-item-by-name-in-list point "WGS-84 L")2 9)
									 "")"\t"))))
	)
      )
    )
  (delete-name-file-to-messege)
  (file_write_list_to_file "d:\\result-город.txt" result-nil)
  (princ)
  )