export: ein Schalter fuer Hilfskopien, Test-Menue ueber Funktionsaufruf

- csv_leave_proxies ist der einzige Schalter, der Export-Hilfskopien
  (Separator-/Element-Kopien, Einheiten-Proxies) stehen laesst; Standard
  jetzt 0 = aufraeumen. Die zwei gleichwirkenden Dialog-Haken
  (*csv-export-pruef-zuordnung*/*csv-export-elemente-behalten*) entfallen,
  CSV_EXPORT_KONFIG schaltet mit einem Haken denselben Debug-Schalter.
- Unit-Test fuer csv:hilfskopien-behalten-p/-setzen
- Test-Menue: (load ...) (c:TEST_...) statt Befehlsname direkt nach dem
  load - BricsCAD registriert den per load definierten Befehl erst nach
  Rueckkehr zur Kommandozeile ("Befehl nicht erkannt" bei TEST_EXPORT_ALL)

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

Lisp/export.lsp

@@ -90,23 +90,19 @@
 (defun csv:export-alle-elemente-an  () (csv:export-modus-setzen "all_elements"))
 (defun csv:export-alle-elemente-aus () (csv:export-modus-setzen "group_vf_gf"))
 
-;; --- Zwei unabhaengige Sichtbarkeits-Haken fuer die temporaeren Element-
+;; --- Hilfskopien nach dem Export stehen lassen: EIN Schalter ---
-;; Proxy-Kopien (siehe csv:element-proxies-loeschen/csv:unitmark-
+;; Standard: der Export raeumt alle Hilfskopien wieder ab (Separator-/
-;; aktualisieren) - ebenfalls ueber CSV_EXPORT_KONFIG bedienbar ---
+;; Element-Kopien, Einheiten-Proxies, siehe csv:hilfskopien-loeschen). Nur der
-;;   *csv-export-pruef-zuordnung*   - laesst die den Foerdereinheit-/
+;; Debug-Schalter "csv_leave_proxies" (ssg_dbg.lsp, Standard 0) laesst sie
-;;     Gefaelleeinheit-Markern zugeordneten Element-Kopien zusaetzlich
+;; stehen, damit man in BricsCAD sieht, was exportiert wurde. Bedienbar per
-;;     sichtbar, damit in BricsCAD optisch nachvollziehbar ist, welche
+;; (dbg-schalter-on/-off "csv_leave_proxies") oder im Dialog CSV_EXPORT_KONFIG
-;;     Einzelteile zu welchem ZZ_UNIT_MARKER-Rechteck zusammengefasst
+;; - beide Wege schalten denselben Zustand.
-;;     wurden (die Marker selbst bleiben ohnehin immer stehen, persistent
+(defun csv:hilfskopien-behalten-p ()
-;;     wie ZZ_ASES_MARKER).
+  (and (car (atoms-family 1 '("DBG-SCHALTER-P")))
-;;   *csv-export-elemente-behalten* - laesst die Element-Proxy-Kopien
+       (dbg-schalter-p "csv_leave_proxies")))
-;;     grundsaetzlich stehen, unabhaengig vom Gruppierungs-Debugging oben.
+(defun csv:hilfskopien-behalten-setzen (an)
-;; Beide unabhaengig vom bestehenden, als TEMPORAER dokumentierten Debug-
+  (if (car (atoms-family 1 '("DBG-SCHALTER-SET")))
-;; Schalter "csv_leave_proxies" (ssg_dbg.lsp) - der bleibt unveraendert und
+    (dbg-schalter-set "csv_leave_proxies" (if an 1 0))))
-;; steuert weiterhin zusaetzlich (ODER-verknuepft) sowohl Separator- als
-;; auch Element-Proxies.
-(if (not (boundp '*csv-export-pruef-zuordnung*)) (setq *csv-export-pruef-zuordnung* nil))
-(if (not (boundp '*csv-export-elemente-behalten*)) (setq *csv-export-elemente-behalten* nil))
 
 
 ;; --- Feste Datei-/Skriptnamen dieses Moduls (keine Config, direkt im Code) ---
@@ -1405,40 +1401,17 @@
   (reverse proxy-liste)
 )
 
-;; --- Temporaere Element-Kopien nach dem Export wieder entfernen ---
+;; --- Export-Hilfskopien nach dem Export wieder entfernen ---
-;; Eigene, minimale Loeschfunktion statt csv:sep-proxies-loeschen wieder-
-;; zuverwenden: *cs-sep-fix-by-handle*/*cs-sep-typ-by-handle*/
-;; *csv-sepliste-id-by-handle* bleiben separator-/AS-/ES-spezifisch, diese
-;; Elemente haben keine Entsprechung davon.
-;;
-;; Drei unabhaengige Gruende, die Kopien trotzdem stehen zu lassen (ODER-
-;; verknuepft): der dialoggesteuerte Haken "Element-Kopien behalten"
-;; (*csv-export-elemente-behalten*), der Haken "Zuordnung pruefen"
-;; (*csv-export-pruef-zuordnung* - zeigt zusammen mit den stehenbleibenden
-;; ZZ_UNIT_MARKER-Rechtecken, welche Kopie zu welcher Einheit gehoert), und
-;; der bestehende, als TEMPORAER dokumentierte Debug-Schalter
-;; "csv_leave_proxies" (ssg_dbg.lsp) - dieser bleibt unveraendert und
-;; steuert weiterhin zusaetzlich auch die Separator-Proxies
-;; (csv:sep-proxies-loeschen).
-(defun csv:element-proxies-loeschen (proxy-liste art-key)
-  (csv:hilfskopien-loeschen proxy-liste art-key
-    (or *csv-export-elemente-behalten* *csv-export-pruef-zuordnung*))
-)
-
-;; --- Gemeinsame Loeschung aller Export-Hilfskopien ---
 ;; proxy-liste  = Records, deren car die Hilfskopie ist.
 ;; art-key      = Sprachschluessel der Objektart fuer die Meldung
 ;;                ("exp-art-separator"/"exp-art-element"/"exp-art-einheit").
-;; zusaetzlich  = weiterer Behalten-Grund (Konfig-Haken) oder nil.
+;; Standard: loeschen. Bei gesetztem csv_leave_proxies (siehe
-;; Behalten, wenn der Debug-Schalter "csv_leave_proxies" gesetzt ist oder
+;; csv:hilfskopien-behalten-p) bleiben sie stehen, mit einer Meldung je Art
-;; zusaetzlich zutrifft - dann eine Meldung je Art (nur wenn es welche gibt).
+;; (nur wenn es welche gibt).
-(defun csv:hilfskopien-loeschen (proxy-liste art-key zusaetzlich / behalten)
+(defun csv:hilfskopien-loeschen (proxy-liste art-key)
-  (setq behalten (or zusaetzlich
-                     (and (car (atoms-family 1 '("DBG-SCHALTER-P")))
-                          (dbg-schalter-p "csv_leave_proxies"))))
   (cond
     ((null proxy-liste))
-    (behalten
+    ((csv:hilfskopien-behalten-p)
      (princ (ssg-textf "exp-hilfskopien-behalten"
               (list (itoa (length proxy-liste)) (ssg-text art-key)))))
     (t (foreach rec proxy-liste (entdel (car rec))))
@@ -2194,7 +2167,7 @@
 ;; *csv-sepliste-id-by-handle* werden trotzdem zurueckgesetzt - sie gelten nur
 ;; fuer den gerade gelaufenen Export.
 (defun csv:sep-proxies-loeschen (proxy-liste)
-  (csv:hilfskopien-loeschen proxy-liste "exp-art-separator" nil)
+  (csv:hilfskopien-loeschen proxy-liste "exp-art-separator")
   (setq *cs-sep-fix-by-handle* nil)
   (setq *cs-sep-typ-by-handle* nil)
   (setq *csv-sepliste-id-by-handle* nil)
@@ -2209,8 +2182,8 @@
 ;; Separator-/Element-Kopien: es entsteht bei jedem Export neu, bekommt in
 ;; ssg-id-check-all eine ID, liefert die Export-Zeile und wird am Ende von
 ;; csv:run-export wieder geloescht - ausser der Debug-Schalter
-;; "csv_leave_proxies" (bzw. einer der Konfig-Haken, siehe
+;; "csv_leave_proxies" (siehe csv:hilfskopien-loeschen) laesst es zur
-;; csv:element-proxies-loeschen) laesst es zur Ansicht stehen.
+;; Ansicht stehen.
 ;; Nur im Modus group_vf_gf; in den anderen Modi entsteht keins.
 
 (defun csv:unitmark-blockname () "ZZ_UNIT_MARKER")
@@ -2811,10 +2784,8 @@
   ;; Sammel-Funktionen) erfuellt. Die AS-/ES-Marker (ZZ_ASES_MARKER) bleiben
   ;; bewusst stehen (siehe csv:export-vorbereiten).
   (csv:sep-proxies-loeschen sep-proxies)
-  (csv:element-proxies-loeschen element-proxies "exp-art-element")
+  (csv:hilfskopien-loeschen element-proxies "exp-art-element")
-  ;; Einheiten-Proxies: dieselbe Behalten-Regel wie die Element-Kopien
+  (csv:hilfskopien-loeschen unitmarks "exp-art-einheit")
-  ;; (Debug-Schalter csv_leave_proxies / Konfig-Haken).
-  (csv:element-proxies-loeschen unitmarks "exp-art-einheit")
   (princ)
 )
 
@@ -2859,16 +2830,14 @@
     (vl-position *csv-export-modus* (mapcar 'car *csv-export-konfig-modi*)))
   (if eintrag (setq idx eintrag))
   (set_tile "modus" (itoa idx))
-  (set_tile "pruef_zuordnung"   (if *csv-export-pruef-zuordnung* "1" "0"))
+  (set_tile "hilfskopien_behalten" (if (csv:hilfskopien-behalten-p) "1" "0"))
-  (set_tile "elemente_behalten" (if *csv-export-elemente-behalten* "1" "0"))
 )
 
 (defun csv:export-konfig-accept ( / idx modus)
   (setq idx (atoi (get_tile "modus")))
   (setq modus (car (nth idx *csv-export-konfig-modi*)))
   (if modus (csv:export-modus-setzen modus))
-  (setq *csv-export-pruef-zuordnung*   (= (get_tile "pruef_zuordnung") "1"))
+  (csv:hilfskopien-behalten-setzen (= (get_tile "hilfskopien_behalten") "1"))
-  (setq *csv-export-elemente-behalten* (= (get_tile "elemente_behalten") "1"))
 )
 
 (defun c:CSV_EXPORT_KONFIG ()

Lisp/ssg_dbg.lsp

@@ -68,24 +68,28 @@
 ;; Beide Schalter hier stehen NUR fuer diese Fehlersuche auf 1 und werden
 ;; danach wieder entfernt (mitsamt der zugehoerigen Instrumentierung in
 ;; ssg_ks_insert.lsp/Gefaellestrecke.lsp/vf_core.lsp bzw. dem Guard in
-;; csv:sep-proxies-loeschen, export.lsp). Sie sind bewusst vorregistriert,
+;; csv:hilfskopien-loeschen, export.lsp). vf-sepliste ist bewusst mit 1
-;; damit nach einem BricsCAD-Neustart ohne weiteres Zutun protokolliert wird.
+;; vorregistriert, damit nach einem BricsCAD-Neustart ohne weiteres Zutun
+;; protokolliert wird; csv_leave_proxies mit 0 - Standard ist, dass der Export
+;; seine Hilfskopien wieder abraeumt.
 ;;
 ;;   vf-sepliste        - protokolliert den kompletten Weg der
 ;;                        Sepliste-Koordinaten beim Bau einer VF-/GF-Kette
 ;;                        nach DXFM_LOG/vf_sepliste.dbg (eigene Datei, nicht
 ;;                        ueber *dbg-path*).
-;;   csv_leave_proxies  - laesst die temporaeren Separator_SP-Kopien, die der
+;;   csv_leave_proxies  - laesst ALLE Hilfskopien des Exports (Separator-/
-;;                        Export aus den Wrappern auspackt, nach dem Export in
+;;                        Element-Kopien, Foerder-/Gefaelleeinheit-Proxies)
-;;                        der Zeichnung stehen, damit ihre tatsaechliche Lage
+;;                        nach dem Export in der Zeichnung stehen, damit man
-;;                        in BricsCAD gegen die sepliste-Koordinaten geprueft
+;;                        in BricsCAD sieht, was exportiert wurde. Auch ueber
-;;                        werden kann. ACHTUNG: die Kopien werden bei JEDEM
+;;                        den Dialog CSV_EXPORT_KONFIG schaltbar. Standard 0.
-;;                        Export neu erzeugt und sammeln sich an - Zeichnung
+;;                        Der naechste Export raeumt stehengebliebene
-;;                        danach nicht speichern.
+;;                        Einheiten-Proxies selbst ab; Separator-/Element-
+;;                        Kopien sammeln sich dagegen an - Zeichnung mit
+;;                        eingeschaltetem Schalter nicht speichern.
 ;; ------------------------------------------------------------
-(foreach nm '("vf-sepliste" "csv_leave_proxies")
+(foreach nm '(("vf-sepliste" . 1) ("csv_leave_proxies" . 0))
-  (if (not (assoc nm *dbg-schalter*))
+  (if (not (assoc (car nm) *dbg-schalter*))
-    (setq *dbg-schalter* (cons (cons nm 1) *dbg-schalter*))))
+    (setq *dbg-schalter* (cons nm *dbg-schalter*))))
 
 (defun dbg-schalter-set (name wert)
   (setq *dbg-schalter*

dcl/csv_export_konfig.dcl

@@ -1,9 +1,8 @@
 // ============================================================
 // csv_export_konfig.dcl - CSV-Export Konfiguration (c:CSV_EXPORT_KONFIG,
 // export.lsp). Steuert *csv-export-modus* (Combobox mit drei sich
-// gegenseitig ausschliessenden Eintraegen) sowie die zwei unabhaengigen
+// gegenseitig ausschliessenden Eintraegen) sowie den Debug-Schalter
-// Sichtbarkeits-Haken fuer temporaere Element-Proxy-Kopien
+// csv_leave_proxies (Hilfskopien nach dem Export stehen lassen).
-// (*csv-export-pruef-zuordnung*/*csv-export-elemente-behalten*).
 //
 // popup_list statt radio_column: set_tile/get_tile auf einer
 // boxed_radio_column liefern/erwarten den KEY des gewaehlten radio_button
@@ -27,15 +26,11 @@ csv_export_konfig : dialog {
   spacer;
 
   : boxed_column {
-    label = "Element-Proxy-Kopien (Debug)";
+    label = "Debug";
 
     : toggle {
-      key = "pruef_zuordnung";
+      key = "hilfskopien_behalten";
-      label = "Zuordnung pruefen (Element-Kopien zusaetzlich sichtbar lassen)";
+      label = "Hilfskopien nach Export stehen lassen (Separator, Elemente, Einheiten)";
-    }
-    : toggle {
-      key = "elemente_behalten";
-      label = "Element-Kopien nach Export behalten (nicht loeschen)";
     }
   }
 

menu/SSG_LIB.cui

@@ -635,67 +635,67 @@
       <MenuMacro UID="MM_00137">
         <Macro>
           <Name>alle Tests ausfuehren und exportieren</Name>
-          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_run_all.lsp")) SSG_RUN_ALL_TESTS_EXPORT</Command>
+          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_run_all.lsp")) (c:SSG_RUN_ALL_TESTS_EXPORT)</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00138">
         <Macro>
           <Name>Tests ausfuehren und stehen lassen</Name>
-          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_run_all.lsp")) SSG_RUN_ALL_TESTS_OFFEN</Command>
+          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_run_all.lsp")) (c:SSG_RUN_ALL_TESTS_OFFEN)</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00139">
         <Macro>
           <Name>Export CSV/Sivas ALL</Name>
-          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_export_all.lsp")) TEST_EXPORT_ALL</Command>
+          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_export_all.lsp")) (c:TEST_EXPORT_ALL)</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00141">
         <Macro>
           <Name>Kreisel</Name>
-          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_kreisel.lsp")) TEST_KREISEL</Command>
+          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_kreisel.lsp")) (c:TEST_KREISEL)</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00142">
         <Macro>
           <Name>Foerderer</Name>
-          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_foerderer.lsp")) TEST_FOERDERER</Command>
+          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_foerderer.lsp")) (c:TEST_FOERDERER)</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00143">
         <Macro>
           <Name>Foerderer-Linienzug</Name>
-          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_linienzug.lsp")) TEST_LINIENZUG TEST_LINIENZUG_STUFE2</Command>
+          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_linienzug.lsp")) (c:TEST_LINIENZUG) (c:TEST_LINIENZUG_STUFE2)</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00144">
         <Macro>
           <Name>Omniflo</Name>
-          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_omniflo.lsp")) TEST_OMNIFLO</Command>
+          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_omniflo.lsp")) (c:TEST_OMNIFLO)</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00145">
         <Macro>
           <Name>Omniflo Strecke</Name>
-          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_omniflo_strecke.lsp")) TEST_OMNIFLO_STRECKE</Command>
+          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_omniflo_strecke.lsp")) (c:TEST_OMNIFLO_STRECKE)</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00146">
         <Macro>
           <Name>Gefaellestrecke</Name>
-          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_gefaellestrecke.lsp")) TEST_GEFAELLESTRECKE</Command>
+          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_gefaellestrecke.lsp")) (c:TEST_GEFAELLESTRECKE)</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00147">
         <Macro>
           <Name>Mubea Gesamtmodell</Name>
-          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_mubea.lsp")) TEST_MUBEA</Command>
+          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_mubea.lsp")) (c:TEST_MUBEA)</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00148">
         <Macro>
           <Name>HundM05 Kreisel-Abschnitt</Name>
-          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_hundm05.lsp")) TEST_HUNDM05</Command>
+          <Command>^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_hundm05.lsp")) (c:TEST_HUNDM05)</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00149">

menu/SSG_LIB.mnu

@@ -134,18 +134,18 @@
 [Planquadrate an/aus]^C^C(ssg-ensure "DrawPlanquadrate") PLANQUADRATE_TOGGLE
 [<-CSV-Export]^C^C(ssg-ensure "export") CSV_EXPORT_KONFIG
 [->Tests]
-[alle Tests ausfuehren und exportieren]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_run_all.lsp")) SSG_RUN_ALL_TESTS_EXPORT
+[alle Tests ausfuehren und exportieren]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_run_all.lsp")) (c:SSG_RUN_ALL_TESTS_EXPORT)
-[Tests ausfuehren und stehen lassen]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_run_all.lsp")) SSG_RUN_ALL_TESTS_OFFEN
+[Tests ausfuehren und stehen lassen]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_run_all.lsp")) (c:SSG_RUN_ALL_TESTS_OFFEN)
-[Export CSV/Sivas ALL]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_export_all.lsp")) TEST_EXPORT_ALL
+[Export CSV/Sivas ALL]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_export_all.lsp")) (c:TEST_EXPORT_ALL)
 [--]
-[Kreisel]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_kreisel.lsp")) TEST_KREISEL
+[Kreisel]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_kreisel.lsp")) (c:TEST_KREISEL)
-[Foerderer]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_foerderer.lsp")) TEST_FOERDERER
+[Foerderer]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_foerderer.lsp")) (c:TEST_FOERDERER)
-[Foerderer-Linienzug]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_linienzug.lsp")) TEST_LINIENZUG TEST_LINIENZUG_STUFE2
+[Foerderer-Linienzug]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_linienzug.lsp")) (c:TEST_LINIENZUG) (c:TEST_LINIENZUG_STUFE2)
-[Omniflo]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_omniflo.lsp")) TEST_OMNIFLO
+[Omniflo]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_omniflo.lsp")) (c:TEST_OMNIFLO)
-[Omniflo Strecke]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_omniflo_strecke.lsp")) TEST_OMNIFLO_STRECKE
+[Omniflo Strecke]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_omniflo_strecke.lsp")) (c:TEST_OMNIFLO_STRECKE)
-[Gefaellestrecke]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_gefaellestrecke.lsp")) TEST_GEFAELLESTRECKE
+[Gefaellestrecke]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_gefaellestrecke.lsp")) (c:TEST_GEFAELLESTRECKE)
-[Mubea Gesamtmodell]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_mubea.lsp")) TEST_MUBEA
+[Mubea Gesamtmodell]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_mubea.lsp")) (c:TEST_MUBEA)
-[HundM05 Kreisel-Abschnitt]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_hundm05.lsp")) TEST_HUNDM05
+[HundM05 Kreisel-Abschnitt]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_hundm05.lsp")) (c:TEST_HUNDM05)
 [<-KS 2D/3D pruefen (CSV)]^C^C(load (strcat (getenv "DXFMAKRO") "/Lisp/ks_pruefung.lsp")) KS_PRUEFEN
 
 ***DOUBLECLICK

tests/test_unit.lsp

@@ -470,6 +470,16 @@
   ;; --- csv:export-modus-setzen / -p-Praedikate: 3 Modi + Ungueltig-Schutz --
   ;; Bestehenden Modus sichern/wiederherstellen, damit dieser Testblock keine
   ;; Seiteneffekte auf nachfolgende Tests oder eine laufende Sitzung hat.
+  ;; --- Hilfskopien behalten: EIN Schalter (csv_leave_proxies), der Dialog
+  ;; schaltet denselben Zustand. Alten Wert sichern/wiederherstellen.
+  (setq _hk-alt (csv:hilfskopien-behalten-p))
+  (csv:hilfskopien-behalten-setzen T)
+  (tu-true "csv:hilfskopien-behalten/an" (csv:hilfskopien-behalten-p))
+  (tu-true "csv:hilfskopien-behalten/an-ist-dbg-schalter" (dbg-schalter-p "csv_leave_proxies"))
+  (csv:hilfskopien-behalten-setzen nil)
+  (tu-nil "csv:hilfskopien-behalten/aus" (csv:hilfskopien-behalten-p))
+  (csv:hilfskopien-behalten-setzen _hk-alt)
+
   (setq _modus-alt *csv-export-modus*)
 
   (csv:export-modus-setzen "all_elements")