Конвертирование угла в строку
(defun ru-conv-angle-to-str (rad_ang unit precision txt_grad)
;; (ru-conv-angle-to-str 2.5 1 4 " градусов ") >"143 градусов 14'22""
;; (ru-conv-angle-to-str 0.5 4 4 " град. ") >"С 61 град. 21'8" В"
;; (ru-conv-angle-to-str 0 1 4 " градусов ") > "0 градусов 0'0""
;;; (ru-conv-angle-to-str 1.2 4 4 "%%d") >"С 24%%d35'30" З"
;;; возвращает строковое представление угла с заменой символа "d" на
;;; знак градуса. unit precision по аналогу с ANGtoS
;;; это для написания шрифтом
;;; vidGrad - обозначение градуса,
;;; для письма текстом заменять на "%%d%
;; замена на русские азимуты. Ж на З - из-за сбоев Автокад
(vl-string-translate "ЖNSWE" "ЗСЮЗВ" (vl-string-subst txt_grad "d" (angtos rad_ang unit precision)))
) ;_ end of defun
