(defun C:test-convert-bl-wgs-84-to-xy-by-property (/ temp)
  (setq temp(convert-bl-wgs-84-to-xy-by-property (dialog-print_to_png_area)(list 53.412838081 49.399362833)))
  (princ (strcat "\nX=" (rtos(nth 1 temp)2 3)))
  (princ (strcat "\nY=" (rtos(nth 0 temp)2 3)))
  (princ)
  )