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

Menüs für Varioförderer umgebaut. Weniger interaktive Abfragen, direkter Aufruf durch Menü

Browse Source
This commit is contained in:
Michael Stangl
2026-09-07 11:05:18 +02:00
parent d131b44580
commit 9670173d4b
5 changed files with 624 additions and 445 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_run_all.lsp
+38 -18
View File
@@ -22,17 +22,18 @@
;; SSG_RUN_ALL_TESTS
;;
;; Jedes Testmodul laeuft in einer eigenen, neuen Zeichnung (statt die
;; aktuelle zu leeren/wiederzuverwenden). SSG_RUN_ALL_TESTS fragt zu
;; Beginn interaktiv nach dem gewuenschten Modus:
;; Kontroll-Modus (Default): Zeichnung wird gespeichert, auf den
;; Inhalt gezoomt und bleibt als Tab offen - kein CSV/Sivas-Export.
;; Am Ende sind alle Testzeichnungen gleichzeitig offen und koennen
;; direkt begutachtet werden. CSV/Sivas-Export danach bei Bedarf
;; manuell ueber TEST_EXPORT_ALL (tests/test_export_all.lsp).
;; Automatik-Modus: Zeichnung wird gespeichert, per EXPORTCSV/
;; EXPORTSIVAS exportiert und danach sofort wieder geschlossen -
;; kompletter Lauf ohne manuellen Zusatzschritt, aber ohne
;; gleichzeitige visuelle Kontrolle aller Zeichnungen am Ende.
;; aktuelle zu leeren/wiederzuverwenden). Der Modus wird ueber den
;; aufgerufenen Befehl bestimmt (keine interaktive Rueckfrage):
;; SSG_RUN_ALL_TESTS_OFFEN / SSG_RUN_ALL_TESTS (Kontroll-Modus, Default):
;; Zeichnung wird gespeichert, auf den Inhalt gezoomt und bleibt als
;; Tab offen - kein CSV/Sivas-Export. Am Ende sind alle Testzeichnungen
;; gleichzeitig offen und koennen direkt begutachtet werden. CSV/Sivas-
;; Export danach bei Bedarf manuell ueber TEST_EXPORT_ALL
;; (tests/test_export_all.lsp).
;; SSG_RUN_ALL_TESTS_EXPORT (Automatik-Modus): Zeichnung wird gespeichert,
;; per EXPORTCSV/EXPORTSIVAS exportiert und danach sofort wieder
;; geschlossen - kompletter Lauf ohne manuellen Zusatzschritt, aber
;; ohne gleichzeitige visuelle Kontrolle aller Zeichnungen am Ende.
;; ============================================================
(vl-load-com)
@@ -169,14 +170,20 @@
(setq anz (length *test-module*))
(setq idx 0)
;; Modus abfragen: Kontrolle (Zeichnungen bleiben offen, kein Export)
;; Modus bestimmen: Kontrolle (Zeichnungen bleiben offen, kein Export)
;; oder Automatik (Speichern + CSV/Sivas-Export + Schliessen je Test).
;; ssg-ques gibt T zurueck wenn "No" gewaehlt wurde - deshalb "not".
;; Default = Nein -> Kontroll-Modus (nicht-destruktiver Default).
(setq auto-export
(not (ssg-ques
"Zeichnungen automatisch speichern, exportieren (CSV/Sivas) und schliessen"
nil))
;; Die Wahl kommt ueber die Menue-Befehle SSG_RUN_ALL_TESTS_EXPORT
;; (Automatik) bzw. SSG_RUN_ALL_TESTS_OFFEN (Kontrolle), die
;; *ssg-run-all-auto-export* vorbelegen - keine interaktive Rueckfrage.
;; Ein direkter SSG_RUN_ALL_TESTS ohne Vorbelegung faellt auf den
;; nicht-destruktiven Kontroll-Modus (nil) zurueck.
(if (boundp '*ssg-run-all-auto-export*)
(progn
(setq auto-export *ssg-run-all-auto-export*)
(setq *ssg-run-all-auto-export* nil) ;; Vorauswahl nur einmal gueltig
(makunbound '*ssg-run-all-auto-export*)
)
(setq auto-export nil)
)
(princ "\n")
@@ -415,3 +422,16 @@
(princ "\n================================================================")
(princ)
)
;; Menue-Wrapper: fester Modus ohne Rueckfrage.
;; _EXPORT = Automatik (speichern + CSV/Sivas-Export + schliessen)
;; _OFFEN = Kontrolle (Zeichnungen bleiben offen, kein Export)
(defun c:SSG_RUN_ALL_TESTS_EXPORT ()
(setq *ssg-run-all-auto-export* T)
(c:SSG_RUN_ALL_TESTS)
)
(defun c:SSG_RUN_ALL_TESTS_OFFEN ()
(setq *ssg-run-all-auto-export* nil)
(c:SSG_RUN_ALL_TESTS)
)