From e4a04f90d939ecf2cd04e41de97864be096ce467 Mon Sep 17 00:00:00 2001
From: Yuelin Wang <y.wang@schoenenberger.de>
Date: Fri, 24 Jul 2026 15:42:28 +0200
Subject: [PATCH] feat: KS_PRUEFEN oeffnet die erzeugte CSV automatisch

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
---
 Lisp/ks_pruefung.lsp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Lisp/ks_pruefung.lsp b/Lisp/ks_pruefung.lsp
index 5fa0c99..31daaf4 100644
--- a/Lisp/ks_pruefung.lsp
+++ b/Lisp/ks_pruefung.lsp
@@ -119,6 +119,11 @@
   (close fh)
   (princ (strcat "\n>>> KS-Pruefung fertig: " (itoa n) " Bloecke -> " fpath))
   (princ (strcat "\n    (Spalten: KS_EIN/KS_AUS je 2D u. 3D, *_diff=groesste Komponentenabweichung, dxyz=KS_AUS-KS_EIN, Status)"))
+  ;; CSV direkt mit dem Standardprogramm (z.B. Excel) oeffnen; fehlertolerant.
+  (vl-catch-all-apply
+    (function (lambda ()
+      (startapp "cmd.exe"
+        (strcat "/c start \"\" \"" (vl-string-translate "/" "\\" fpath) "\"")))))
   (princ)
 )