Sprachumschaltung von DE nach EN über Menü möglich gemacht

menu/SSG_LIB.mnl

@@ -2,7 +2,7 @@
 ;; SSG_LIB.mnl - Automatisch geladen beim MENULOAD von SSG_LIB.mnu
 ;;
 ;; Definiert den Lazy-Loader (ssg-ensure) und laedt alle Module.
-;; Kern-Module: ssg_core, ssg_dbg, ssg_dialog, ssg_layer, ssg_id
+;; Kern-Module: ssg_core, ssg_lang, ssg_dbg, ssg_dialog, ssg_layer, ssg_id
 ;; Feature-Module: KreiselInsert, Gefaellestrecke, VarioFoerderer, ...
 ;; ============================================================
 
@@ -71,6 +71,13 @@
               (ssg-load-config)
             )
           )
+          (if (not *ssg-lang-loaded*)
+            (progn
+              (ssg-ensure-load "ssg_lang")
+              (set '*ssg-lang-loaded* t)
+              (set '*ssg-ssg_lang-loaded* t)
+            )
+          )
           (if (not *ssg-dbg-loaded*)
             (progn
               (ssg-ensure-load "ssg_dbg")
@@ -132,6 +139,7 @@
   (progn
     ;; 1) Kern-Module (Core)
     (ssg-ensure "ssg_core")
+    (ssg-ensure "ssg_lang")
     (ssg-ensure "ssg_dbg")
     (ssg-ensure "ssg_dialog")
     (ssg-ensure "ssg_layer")
@@ -140,7 +148,7 @@
     ;; Allgemein-Zusammenfassung
     (princ "\n=========================================")
     (princ "\n[SSG_LIB] Core-Module geladen:")
-    (princ "\n  ssg_core, ssg_dbg, ssg_dialog, ssg_layer, ssg_id")
+    (princ "\n  ssg_core, ssg_lang, ssg_dbg, ssg_dialog, ssg_layer, ssg_id")
     (princ (strcat "\n  Pfad: " *ssg-lisp-pfad*))
     (princ "\n=========================================")
 

menu/SSG_LIB.mnu

@@ -118,6 +118,7 @@
 [<-Export CSV]^C^C(ssg-ensure "export") EXPORTCSV
 [->Konfiguration]
 [Umschalten 2D und 3D]^C^C(ssg-ensure "SSG_LIB_Commands") SSG_DIM_SWITCH
+[Sprache]^C^C(ssg-ensure "SSG_LIB_Commands") SSG_SPRACHE
 [<-Konfiguration Schliessen]^C^C
 [->Tests]
 [Alle Tests ausfuehren]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_run_all.lsp")) SSG_RUN_ALL_TESTS