(defun  c:fla_ber ( / t_2 Ss)

;;(if
;;  (/= (findfile "md_fla.dwg")nil)
;;(progn

  (setq Ss  nil
        t_2 nil)

 (setq Ss (ssget ));'((0 . "LWPOLYLINE"))))
  (if (not Ss) (princ (strcat "\nNichts gewählt."))
   (progn
    (command "_.area" "_a" "_o")
    (while (setq t_2 (ssname Ss 0))
;;;     (setq md_in (cdr (assoc 10 (entget t_2))))
;;;     (setq md_rnr_in (ssget "X" t_2))
;;;     (setq startp md_in)
     (command t_2)
     (setq Ss (ssdel t_2 Ss))
    );while  
    (command "" "")
    (princ "\n")
    (princ 
    (strcat "\n*****Gesamtfläche: " (rtos (getvar "area") 2 5)))(terpri)
    ;(command "_.Insert" "md_fla" startp "1" "1" "0" (rtos (getvar "area")2 2))
   );endprogn
  );endif
 (setq startp (getpoint "Einfügepunkt:"))
 (command "_text" startp "2.5" "0" (rtos (getvar "area")2 2))

;;);ende progn
;;);end if
 (princ)
)