(defun get-GeodesistPENZD-katalog-coor (put-file / file_points_list file str str_new temp)
  ;преобразование текстового файла формата Nikon PENZD в каталог координат
  (setq file (open put-file"r"))
  (while(setq str (read-line file))
    (if (not (or (eq str "m")(eq str "88888")(eq str "99999")(eq str "")))
      (progn
	(setq str (vl-string-trim " " str))
	(while (not (eq str (setq str_new (vl-string-subst " " "  " str))))
	  (setq str str_new)
	  )
	(setq temp (convert-string-to-list-be-delimiter str " "))
	(setq file_points_list
	       (append file_points_list
		       (list (list
			       (list "name"(vl-string-trim" "(nth 0 temp)))
			       (list "N"(atof(vl-string-trim" "(nth 1 temp))))
			       (list "E"(atof(vl-string-trim" "(nth 2 temp))))
			       (list "Z"(atof(vl-string-trim" "(nth 3 temp))))
			       ))))
	)
      )
    )
  (close file)
  file_points_list
  )