(defun c:SchreibName (/ wasdenn)
(setq wasdenn (entsel "Objekt der Begierde wählen:"))
(command "_text" pause "" "" (cdr (assoc 2 (entget (car wasdenn)))))
)