call von Test Funktionen dazu in die Menüs. Aufruf einer externen Python Funktion . Rückgabe von Ergebnissen über eine Datei.

Lisp/tests.lsp

@@ -0,0 +1,31 @@
+;; ============================================================
+;; tests.lsp - Test- und Hilfsfunktionen
+;; ============================================================
+
+(defun c:CALLPYTHON ( / log-pfad py-skript return-datei cmd fh zeile)
+  (setq log-pfad (getenv "DXFM_LOG"))
+  (setq py-skript (strcat (getenv "DXFM_LIB") "\\testpycall.py"))
+  (setq return-datei (strcat log-pfad "\\testpycall_return.txt"))
+  (if (findfile py-skript)
+    (progn
+      (setq cmd (strcat "python \"" py-skript "\" \"" log-pfad "\""))
+      (command "_.SHELL" cmd)
+      (if (findfile return-datei)
+        (progn
+          (setq fh (open return-datei "r"))
+          (setq zeile (read-line fh))
+          (close fh)
+          (princ (strcat "\n[SSG_LIB] Python Rueckgabe: " zeile))
+        )
+        (princ "\n[SSG_LIB] WARNUNG: Keine Rueckgabe von Python erhalten.")
+      )
+    )
+    (princ (strcat "\n[SSG_LIB] FEHLER: " py-skript " nicht gefunden!"))
+  )
+  (princ)
+)
+
+(defun c:EXPORTCSV ()
+  (princ "\n[SSG_LIB] EXPORTCSV: Noch nicht implementiert (Dummy).")
+  (princ)
+)

bin/on_start.lsp

@@ -58,6 +58,14 @@
         )
         (princ "\n[SSG_LIB] WARNUNG: ILSModulInsert.lsp nicht gefunden!")
       )
+      ;; Tests laden
+      (if (findfile (strcat lisp-pfad "/tests.lsp"))
+        (if (ssg-lib-safe-load (strcat lisp-pfad "/tests.lsp"))
+          (princ "\n[SSG_LIB] tests.lsp geladen.")
+        )
+        (princ "\n[SSG_LIB] WARNUNG: tests.lsp nicht gefunden!")
+      )
+
       ;; OmnifloModulInsert laden
       (if (findfile (strcat lisp-pfad "/OmnifloModulInsert.lsp"))
         (if (ssg-lib-safe-load (strcat lisp-pfad "/OmnifloModulInsert.lsp"))

bin/setenv.bat

@@ -16,6 +16,7 @@ set "DXFM_BIN=%DXFMAKRO%\bin"
 set "DXFM_LIB=%DXFMAKRO%\lib"
 set "DXFM_DATA=%DXFMAKRO%\data"
 set "DXFM_CFG=%DXFMAKRO%\cfg"
+set "DXFM_LOG=%DXFMAKRO%\log"
 set "DXFM_BLOCKS=%DXFMAKRO%\Blocks"
 set "DXFM_LISP=%DXFMAKRO%\Lisp"
 set "DXFM_RESULTS=%DXFMAKRO%\results"

menu/SSG_LIB.mnu

@@ -72,3 +72,6 @@
 [Antriebst. rechts fuer TEF rechts]^C^COMNI_TEF_AntriebR
 [<-TEF Gerade]^C^COMNI_TEF_Gerade
 [<-KettenFoerderer]^C^COMNI_KettenFoerderer
+[->External]
+[Call Python]^C^CCALLPYTHON
+[<-Export CSV]^C^CEXPORTCSV