(defun C:get_bl_by_tut (/ bl convert-sys-property point)
  (if (and (setq point (getpoint"\nУкажи точку: "))(setq convert-sys-property(dialog-print_to_png_area)))
    (progn
      (setq bl (convert-xy-to-bl-wgs-84-by-property convert-sys-property (list (nth 0 point) (nth 1 point))))
      (princ (strcat "\n" (rtos (nth 0 bl) 2 8)" "(rtos (nth 1 bl) 2 8)))
      )
    )
  (princ)
  )