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

Lisp/SSG_LIB_Commands.lsp

@@ -132,9 +132,41 @@
   (setenv "DXFM_DIM"    dim-neu)
   (setenv "DXFM_BLOCKS" (strcat basis "\\data\\ils\\" dim-neu))
   (setenv "DXFM_OMNIFLO" (strcat basis "\\data\\omniflo\\" dim-neu))
-  (princ (strcat "\nModus umgeschaltet auf: " dim-neu))
-  (princ (strcat "\n  DXFM_BLOCKS  = " (getenv "DXFM_BLOCKS")))
-  (princ (strcat "\n  DXFM_OMNIFLO = " (getenv "DXFM_OMNIFLO")))
+  (princ (ssg-textf "dim-switch-modus" (list dim-neu)))
+  (princ (ssg-textf "dim-switch-blocks" (list (getenv "DXFM_BLOCKS"))))
+  (princ (ssg-textf "dim-switch-omniflo" (list (getenv "DXFM_OMNIFLO"))))
+  (princ)
+)
+
+;; ============================================================
+;; SSG_SPRACHE - Sprache umschalten (Deutsch/Englisch)
+;; Setzt *ssg-lang* live und persistiert ueber DXFM_LANG
+;; ============================================================
+
+(defun ssg-sprache-init ( / idx)
+  (start_list "sprache")
+  (add_list "Deutsch")
+  (add_list "Englisch")
+  (end_list)
+  (setq idx (if (= *ssg-lang* "en_GB") "1" "0"))
+  (set_tile "sprache" idx)
+)
+
+(defun ssg-sprache-accept ( / idx neu)
+  (setq idx (get_tile "sprache"))
+  (setq neu (if (= idx "1") "en_GB" "de_DE"))
+  (setq *ssg-lang* neu)
+  (setenv "DXFM_LANG" neu)
+)
+
+(defun c:SSG_SPRACHE ()
+  (ssg-dialog-run
+    (strcat (getenv "DXFM_DCL") "/sprache.dcl")
+    "sprache"
+    'ssg-sprache-init
+    'ssg-sprache-accept
+  )
+  (princ (ssg-textf "sprache-gewechselt" (list *ssg-lang*)))
   (princ)
 )