(defun BLOCKLISTE (/ datei block objekt)
  (setq datei (open 
        (strcat (getvar "DWGNAME") ".BLK") "w"))        ;Ausgabedatei ”ffnen
  (setq block (tblnext "BLOCK" t))                      ;ersten Block suchen
  (while block                                          ;fr alle Bl”cke
    (print block datei)                                 ;Tabelleneintrag ausg.
    (setq objekt (cdr (assoc -2 block)))                ;erstes Objekt suchen
    (while objekt                                       ;fr alle Objekte
      (print (entget objekt) datei)                     ;Objektliste ausg.
      (setq objekt (entnext objekt))                    ;n„chstes Objekt
    )
    (setq block (tblnext "BLOCK"))                      ;n„chster Block
  )
  (close datei)                                         ;Datei schlieáen
  (princ)
)

