(defun get-ARE-katalog-coor (put-file / all-point-list current-point-list temp-list read-list)
  ;преобразование текстового файла формата ARE в каталог координат
  (setq read-list(file_read_to_list put-file))
  (foreach x read-list
    (if (/=(setq temp-list(convert-string-to-list-be-delimiter x "="))"")
      (if (or(= (car temp-list) "2")(= (car temp-list) "5"))
	(progn
	  (if current-point-list
	    (progn
	      (setq current-point-list (append current-point-list (list (list "code" ""))))
	      (setq all-point-list (append all-point-list (list current-point-list)))
	      (setq current-point-list nil)
	      ))
	  (setq current-point-list (append current-point-list (list (list "name" (vl-string-trim " "(cadr temp-list))))))
	  )
	(cond
	  ((= (car temp-list) "37")
	   (setq current-point-list (append current-point-list (list (list "N" (atof(vl-string-trim " "(cadr temp-list)))))))
	   )
	  ((= (car temp-list) "38")
	   (setq current-point-list (append current-point-list (list (list "E" (atof(vl-string-trim " "(cadr temp-list)))))))
	   )
	  ((= (car temp-list) "39")
	   (setq current-point-list (append current-point-list (list (list "Z" (atof(vl-string-trim " "(cadr temp-list)))))))
	   )
	  )
	)
      
      )
    (if (= (last read-list) x)
      (if current-point-list
	(progn
	  (setq current-point-list (append current-point-list (list (list "code" ""))))
	  (setq all-point-list (append all-point-list (list current-point-list)))
	  (setq current-point-list nil)
	  ))
      )
    )
  all-point-list
  )