vf_*.lsp: verbleibende deutsche Meldungen auf ssg-text/ssg-textf umgestellt

Betrifft VarioFoerderer-Kern, Standard-/Etage-Aufbau und Linienzug (inkl.
altem Vorwaerts-Nachbau-Modus und Vario_Kette_Merge-Diagnose). Neue Keys in
lang/de_DE.json und lang/en_GB.json ergaenzt.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

Lisp/vf_etage.lsp

@@ -738,15 +738,13 @@
   (setq bogen-dx (car bogen-mass) bogen-dz (caddr bogen-mass))
   (if (= richtung "Auf")
     (progn
-      (princ (strcat "\n\n9/15: " bogen-name
-                     " (" (itoa (- 3 best-winkel)) " Grad geneigt)"))
+      (princ (ssg-textf "vfe-step9-bogen" (list bogen-name (itoa (- 3 best-winkel)))))
       (setq aktueller-punkt
         (insert-rotated-block-with-ks bogen-name aktueller-punkt
           (- 3 best-winkel) bogen-dx bogen-dz cur-hz))
     )
     (progn
-      (princ (strcat "\n\n9/15: " bogen-name
-                     " (" (itoa (+ best-winkel 3)) " Grad geneigt)"))
+      (princ (ssg-textf "vfe-step9-bogen" (list bogen-name (itoa (+ best-winkel 3)))))
       (setq aktueller-punkt
         (insert-rotated-block-with-ks bogen-name aktueller-punkt
           (+ best-winkel 3) bogen-dx bogen-dz cur-hz))
@@ -754,24 +752,23 @@
   )
 
   ;; 10. Motorstation (3 Grad geneigt)
-  (princ "\n\n10/15: Motorstation (500mm, 3 Grad geneigt)")
+  (princ (ssg-text "vfe-step10"))
   (setq aktueller-punkt
     (insert-rotated-block-with-ks (strcat "Vario_Motorstation_500mm_" (vf-motorseite-aktuell)) aktueller-punkt 3 500 0 cur-hz))
 
   ;; 11. L_GF2 (3 Grad geneigt)
   (if (> L_GF2 0.1)
     (progn
-      (princ (strcat "\n\n11/15: Gefaellestrecke (3 Grad, L=" (rtos L_GF2 2 2) " mm)"))
+      (princ (ssg-textf "vfe-step11-gf2" (list (rtos L_GF2 2 2))))
       (setq aktueller-punkt
         (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt L_GF2 3 cur-hz))
     )
-    (princ "\n\n11/15: L_GF2 (uebersprungen)")
+    (princ (ssg-text "vfe-step11-skip"))
   )
 
   ;; 12. Gefaellebogen Ende (verkettet: KS_EIN auf cur-hz, dann cur-hz drehen)
   (setq bogen-info (vf-element-ks-info gefaelle-blockname))
-  (princ (strcat "\n\n12/15: " gefaelle-blockname
-                 " (Ende, verkettet cur-hz=" (rtos cur-hz 2 1) ")"))
+  (princ (ssg-textf "vfe-step12" (list gefaelle-blockname (rtos cur-hz 2 1))))
   (setq aktueller-punkt
     (insert-block-by-ks gefaelle-blockname aktueller-punkt (- cur-hz (car bogen-info))))
   (setq cur-hz (+ cur-hz (- (cadr bogen-info) (car bogen-info))))
@@ -803,25 +800,24 @@
   (if (< L-exit 50.0) (setq L-exit 50.0))   ; Schutz gegen negative/zu kurze GF
 
   ;; 13. Auslauf-Staustrecke (variabel, folgt cur-hz, 3 Grad vert, KS_EIN)
-  (princ (strcat "\n\n13/15: Staustrecke (variabel L=" (rtos L-exit 2 1)
-                 ", cur-hz=" (rtos cur-hz 2 1) ")"))
+  (princ (ssg-textf "vfe-step13" (list (rtos L-exit 2 1) (rtos cur-hz 2 1))))
   (setq aktueller-punkt
     (insert-hz-scaled-block-by-ks "Staustrecke_SP_1000_mm" aktueller-punkt
       L-exit cur-hz 3))
 
   ;; 14. Separator (verkettet, folgt cur-hz, 3 Grad vert)
-  (princ (strcat "\n\n14/15: Separator (300mm, cur-hz=" (rtos cur-hz 2 1) ")"))
+  (princ (ssg-textf "vfe-step14" (list (rtos cur-hz 2 1))))
   (setq aktueller-punkt
     (insert-hz-rotated-block-with-ks "Staustrecke_Separator_SP_300_mm" aktueller-punkt
       cur-hz 3 300 0))
 
   ;; 15. ES_30 (verkettet: KS_EIN auf cur-hz; KS_AUS auf der Hauptlinie)
-  (princ (strcat "\n\n15/15: " es-block " (Ende, verkettet cur-hz=" (rtos cur-hz 2 1) ")"))
+  (princ (ssg-textf "vfe-step15" (list es-block (rtos cur-hz 2 1))))
   (setq endpunkt
     (insert-block-by-ks es-block aktueller-punkt (- cur-hz (car es-info))))
 
   (princ "\n\n=========================================")
-  (princ "\n>>> Etage-VarioFoerderer eingefuegt! <<<")
+  (princ (ssg-text "vfe-eingefuegt"))
   endpunkt
 )
 
@@ -1000,7 +996,7 @@
   "etage"
   'berechne-etage
   'etage-foerderanlage-einfuegen
-  "Etage VarioFoerderer (AS/ES 30 Grad, direkt uebereinander)")
+  (ssg-text "vfc-typ-etage-beschreibung"))
 
 (princ "\n>>> vf_etage.lsp geladen - Typ 'etage' registriert")
 (princ)