(defun c:SchreibName (/ wasdenn pt obj hgt); wenn Texthöhe bei jedem Aufruf gleich bleiben soll: hgt rausnehmen
  (while (setq wasdenn (entsel "\nObjekt der Begierde wählen: "))
    (cond
      ((= "INSERT" (cdr (assoc 0 (entget (car wasdenn))))); kuckn obs ein Block is
      (progn
(setq pt (getpoint "\nTexteinfügepunkt wählen: "))
(setq obj (cdr (assoc 2 (entget (car wasdenn)))))
(if
  (= 0.0
    (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))); Nach Texthöhe schaun
  )
  (command "._text"
    pt
    (if hgt
      hgt
      (setq hgt (getstring))
    )
    ""
    obj
  )
  (command "._text" pt "" obj)
)
      ))
      ((= "IMAGE" (cdr (assoc 0 (entget (car wasdenn)))))
            (progn
(setq pt (getpoint "\nTexteinfügepunkt wählen: "))
(setq obj (cadr(fnsplitl (cdr(assoc 1 (entget(cdr(assoc 340 (entget(car wasdenn))))))))))
(if
  (= 0.0
    (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))); Nach Texthöhe schaun
  )
  (command "._text"
    pt
    (if hgt
      hgt
      (setq hgt (getstring))
    )
    ""
    obj
  )
  (command "._text" pt "" obj)
)
      ))
      (T (princ "\nDas gewählte Element hat keine Bezeichnung!"))
      );cond
  )
)