(defun convert-str-grad-to-deg-grad (string / pos)
  ;конвертирует строку вида "123°45'56.16\"" (в которой 123 градусы 45 минуты 56 секунды) в десятичные градусы
  (setq pos0 (vl-string-search "°" string))
  (setq pos1 (vl-string-search "'" string))
  (setq pos2 (vl-string-search "\"" string))
    (+
      (atof(substr string 1 pos0))
      (/
	(+
	  (*
	    (atof(substr string (+ pos0 2) (- pos1 pos0 1)))
	    60)
	  (atof(substr string (+ pos1 2) (- pos2 pos1 1))))
	3600
	)
      )
  )