feat: Bereinigung (PURGE) vor Sivas-Export und zusammengefasste CSV je Dispogruppe

EXPORTSIVAS bereinigt die Zeichnung vorab per -PURGE (abschaltbar ueber
*csv-bereinigen-vor-export*). export_sivas.py schreibt zusaetzlich je
Dispogruppe eine Datei <stamm>_zusammengefasst_dispo<N>.csv.

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>

Lisp/export.lsp

@@ -2941,8 +2941,27 @@
         (princ (ssg-text "exp-hoehencheck-fehlt")))))
 )
 
+;; Vor dem Sivas-Export die Zeichnung bereinigen (BricsCAD-Befehl BEREINIG /
+;; PURGE): entfernt unbenutzte Bloecke, Layer, Linientypen usw. samt
+;; verschachtelter Elemente. Sprachunabhaengig ueber -PURGE mit "_All".
+;; Schalter *csv-bereinigen-vor-export* (Standard an; Tests schalten ab, da
+;; die Zeichnung veraendert wird).
+(if (null *csv-bereinigen-vor-export*) (setq *csv-bereinigen-vor-export* 'an))
+
+(defun csv:bereinigen ()
+  (if (and (eq *csv-bereinigen-vor-export* 'an) (ssg-gui-p))
+    (progn
+      (princ (ssg-text "exp-bereinigen"))
+      ;; Zweimal, weil das Entfernen eines Blocks dessen Layer/Linientypen
+      ;; erst frei macht (zusaetzlich zur Nested-Option)
+      (repeat 2
+        (vl-catch-all-apply
+          '(lambda () (command "_.-PURGE" "_All" "*" "_No"))))
+      (princ))))
+
 ;; --- EXPORTSIVAS: Sivas-spezifischer CSV-Export mit Summierungszeilen ---
 (defun c:EXPORTSIVAS ()
+  (csv:bereinigen)
   (csv:hoehencheck-anbieten)
   (csv:run-export "EXPORTSIVAS"
     (export:filename "sivas_script")