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>
This commit is contained in:
2026-09-25 22:17:30 +02:00
parent 394d476d56
commit 5a13595289
6 changed files with 79 additions and 101 deletions
+16 -12
View File
@@ -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,
;; damit nach einem BricsCAD-Neustart ohne weiteres Zutun protokolliert wird.
;; csv:hilfskopien-loeschen, export.lsp). vf-sepliste ist bewusst mit 1
;; 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
;; Export aus den Wrappern auspackt, nach dem Export in
;; der Zeichnung stehen, damit ihre tatsaechliche Lage
;; in BricsCAD gegen die sepliste-Koordinaten geprueft
;; werden kann. ACHTUNG: die Kopien werden bei JEDEM
;; Export neu erzeugt und sammeln sich an - Zeichnung
;; danach nicht speichern.
;; csv_leave_proxies - laesst ALLE Hilfskopien des Exports (Separator-/
;; Element-Kopien, Foerder-/Gefaelleeinheit-Proxies)
;; nach dem Export in der Zeichnung stehen, damit man
;; in BricsCAD sieht, was exportiert wurde. Auch ueber
;; den Dialog CSV_EXPORT_KONFIG schaltbar. Standard 0.
;; Der naechste Export raeumt stehengebliebene
;; Einheiten-Proxies selbst ab; Separator-/Element-
;; Kopien sammeln sich dagegen an - Zeichnung mit
;; eingeschaltetem Schalter nicht speichern.
;; ------------------------------------------------------------
(foreach nm '("vf-sepliste" "csv_leave_proxies")
(if (not (assoc nm *dbg-schalter*))
(setq *dbg-schalter* (cons (cons nm 1) *dbg-schalter*))))
(foreach nm '(("vf-sepliste" . 1) ("csv_leave_proxies" . 0))
(if (not (assoc (car nm) *dbg-schalter*))
(setq *dbg-schalter* (cons nm *dbg-schalter*))))
(defun dbg-schalter-set (name wert)
(setq *dbg-schalter*