;----------------------------------------------------------------------------------------------------------------------------
;
; Schnittstelle zu anderen Modulen:
;
; INPUT und INPUTRESTRIKTIONEN
; ============================
;
; Parameter    :
;
; Typ    Variablename      Variablebeschreibung [Wertebereich]
;  
;
; OUTPUT und OUTPUTRESTRIKTIONEN
; ================================
;
; Parameter    :
;
; Typ    Variablenname     Variablenbeschreibung  [Wertebereich]  
; 
;
;----------------------------------------------------------------------------------------------------------------------------
;  
( defun c:flexpo ( / 
                   eobj
                   lcsv lentsel
                   rfl )
      
; Den Beginn der Gruppe für den AutoCAD-flexpo "zurück" setzen 
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))

; ...
  (setq lcsv nil)
  (while (/= (setq lentsel (entsel)) nil)
    (setq eobj (car lentsel))
    (setq rfl (vla-get-area (vlax-ename->vla-object eobj)))
    (setq lcsv (append lcsv (list (rtos rfl))))
  ) ; while
  (ascii_datei_schreiben "c:\\temp\\flexo.csv" lcsv nil t)

; Das Ende der Gruppe für den AutoCAD-flexpo "zurück" setzen 
  (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  
; Rückgabewert
  (princ)

) ; Modulende