(defun C:analise-txt-katalog (/ ass-big-list ass-num-list flag flag-nil n result-nil txt-big-list-patch txt-num-list-patch)
  
  (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))
  (foreach point ass-num-list
    (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) "МСК-64 Y")(get-item-by-name-in-list (nth n ass-big-list) "МСК-64 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 "Тип центра")
									 (get-item-by-name-in-list point "Марка")
									 (get-item-by-name-in-list point "Класс")
									 ""
									 (rtos(get-item-by-name-in-list point "H")2 3)
									 ""
									 ""
									 ""
									 ""
									 ""
									 (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)
									 (get-item-by-name-in-list point "Примечание"))"\t"))))
	)
      )
    )
  (file_write_list_to_file "d:\\result-nil.txt" result-nil)
  (princ)
  )

;;;  (get-item-by-name-in-list input-list name)
;;;  (put-item-by-name-in-list input-list name item)