(defun c:stempel( / OBJ A L)
(if(and(setq OBJ(car(entsel "\nPolylinie wählen:")))
       (setq OBJ(vlax-ename->vla-object OBJ))
       (setq A (vla-get-area OBJ))
       (setq L (vla-get-length OBJ))
   )
  (command "_mtext" pause pause (strcat "Fläche: "(vl-princ-to-string A) "\nUmfang: " (vl-princ-to-string L))"")
)
)