(defun C:test-convert-xy-to-bl-wgs-84-by-property (/ list-bl)
  (setq list-bl(convert-xy-to-bl-wgs-84-by-property (dialog-print_to_png_area) (list 93665.454 21837.935 )))
  (princ (strcat "\nb="(rtos(nth 0 list-bl)2 16)))
  (princ (strcat "\nl="(rtos(nth 1 list-bl)2 16)))
  (princ)
  )