(defun convert-dec-to-gms-str (dec accuracy / mm ss)
  ; переводит десятичные градусы в текстовую строку градусы минуты секунды 180d30'15"
  ;с точностью
  ;0 = 180d
  ;1 = 180d30'
  ;2 = 180d30'15"
  (setq mm (fix(*(- dec(fix dec))60)))
  (setq ss (atoi(rtos(*(-(*(- dec(fix dec))60)(fix(*(- dec(fix dec))60)))60)2 0)))
  (strcat (itoa(fix dec))"d"
	  (if (> accuracy 0)(strcat(if (< mm 10.)"0" "")(itoa mm)"'")"")
	  (if (> accuracy 1)(strcat(if (< ss 10.)"0" "")(itoa ss)"\"")"")
	  )
  )