Преобразование любых данных в строку
(defun ru-conv-x-to-sring (x)
;;; Конвертирует любые данные в строку
;;; (ru-conv-x-to-sring 1) > "1"
;;; (ru-conv-x-to-sring 1.1) >"1.1"
;;; (ru-conv-x-to-sring "1.1") >"1.1"
;;; (ru-conv-x-to-sring (list 0.0 100.0)) > "(0.0 100.0)"
;;; (ru-conv-x-to-sring (entlast))> "<Entity name: 4009e6c8>"
(vl-princ-to-string x)
) ;_ end of defun
