Schoenenberger_Systeme_GmbH/dxfmakros
7
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros

Browse Source
This commit is contained in:
Simon Hensch
2026-10-21 10:24:53 +02:00
parent e528913fbf 94238b26f0
commit 4fdeaf831f
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_run_all.lsp
+9 -8
View File
@@ -325,16 +325,17 @@
(if (findfile csv-pfad) (vl-file-delete csv-pfad)) (if (findfile csv-pfad) (vl-file-delete csv-pfad))
(if (findfile sivas-pfad) (vl-file-delete sivas-pfad)) (if (findfile sivas-pfad) (vl-file-delete sivas-pfad))
;; Nur die beiden CSV-Namen ersetzen, alle uebrigen Keys
;; (z.B. kreisel_weichen_datei) unveraendert uebernehmen -
;; eine hart nachgebaute Liste verliert sonst neue Keys.
(setq old-filenames *export-filenames*) (setq old-filenames *export-filenames*)
(setq *export-filenames* (setq *export-filenames*
(list (mapcar
(cons "raw_json_datei" (cdr (assoc "raw_json_datei" old-filenames))) '(lambda (p)
(cons "sivas_script" (cdr (assoc "sivas_script" old-filenames))) (cond ((= (car p) "sivas_csv") (cons "sivas_csv" sivas-name))
(cons "sivas_csv" sivas-name) ((= (car p) "csv_csv") (cons "csv_csv" csv-name))
(cons "csv_script" (cdr (assoc "csv_script" old-filenames))) (T p)))
(cons "csv_csv" csv-name) old-filenames))
)
)
(princ (strcat "\n CSV-Export -> " csv-name)) (princ (strcat "\n CSV-Export -> " csv-name))
(c:EXPORTCSV) (c:EXPORTCSV)