(defun C:xy ( / xyz xyz1 x1 y1)
  (setq xyz1 (getpoint "Wähle Punkt :")
        xyz  (trans xyz1 1 0)
        x1  (strcat "X = " (substr (rtos (car xyz)  2 2) (- (strlen (rtos (car xyz)  2 2)) 6)))
        y1  (strcat "Y = " (substr (rtos (cadr xyz)  2 2) (- (strlen (rtos (cadr xyz)  2 2)) 6)))
        )
  (command "_leader" xyz1 pause "" x1 y1 "")
  )
;;; mit LOKALEN-Koordinaten
(defun C:yyy ( / xyz2 x2 y2)
  (setq xyz2 (getpoint "Wähle Punkt :")
        x2  (strcat "X = " (substr (rtos (car xyz2)  2 2) (- (strlen (rtos (car xyz2)  2 2)) 6)))
        y2  (strcat "Y = " (substr (rtos (cadr xyz2)  2 2) (- (strlen (rtos (cadr xyz2)  2 2)) 6)))
        )
  (command "_leader" xyz2 pause "" x2 y2 "")
  )