(defun C:AREATEXT ( / zweckbestimmung textent ss i tb ll ur ul lr)
(setq oldcmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(command "._clayer" "RST_Nutzung")
(setvar "ATTREQ" 1)

(vl-load-com)

  
(if (setq ss (ssget '((0 . "REGION,*POLYLINE,CIRCLE,ELLIPSE,AEC_*"))))
(progn
(setq i 0)
(repeat (sslength ss)

(setq zweckbestimmung (getstring "Zweckbestimmung: "))
(setq bodentyp (getstring "bodentyp: "))
(setq typ (getstring "Wohnung Nr.: "))
(setq pz (getpoint "wo soll der Raumstempel hin? "))

 (command "_insert" "RST" pz 1 1 0 zweckbestimmung (strcat "%<\\AcObjProp Object(%<\\_ObjId "
(vl-princ-to-string(vla-get-ObjectID (vlax-ename->vla-object (ssname ss i))))
">%).Area \\f \"%lu2%pr2%ps[F= , mē]%ct8[1e-004]\">%") (strcat "%<\\AcObjProp Object(%<\\_ObjId "
(vl-princ-to-string(vla-get-ObjectID (vlax-ename->vla-object (ssname ss i))))
">%).length \\f \"%lu2%pr2%ps[U= , m]%ct8[1e-002]\">%") Bodentyp typ

	  )
  
  
(setq i (1+ i))
)
)
)
(setvar "CMDECHO" oldcmd)

(princ)
)