Etagenförderer auch editierbar gemacht.

Lisp/vf_core.lsp

@@ -1288,12 +1288,14 @@
   (setq vf-nummer (vf-next-number))
   (princ (ssg-textf "vfc-naechste-vf-nummer" (list (itoa vf-nummer))))
 
-  ;; 2b. Standardfall (anlage-typ "standard") + Werteingabe -> DCL-Dialog
-  ;; (dcl/variofoerderer.dcl, siehe vf_standard.lsp: vfs-standard-dialog-ablauf).
-  ;; 3D-Linie-Eingabe und alle anderen Anlagen-Typen (Etage, Linienzug) bleiben
-  ;; unveraendert interaktiv (fallen unten in den bestehenden Konsolen-Ablauf,
-  ;; der die Eingabemodus-Frage dabei erneut stellt - siehe vf-eingabe-abfragen).
-  (if (= anlage-typ "standard")
+  ;; 2b. Standard- ODER Etage-Typ + Werteingabe -> DCL-Dialog
+  ;; (dcl/variofoerderer.dcl; Standard: vfs-standard-dialog-ablauf in
+  ;; vf_standard.lsp, Etage: vfe-etage-dialog-ablauf in vf_etage.lsp - beide
+  ;; nutzen dieselben Dialoge vfs-dialog-eingabe-basis/-winkel-verteilung).
+  ;; 3D-Linie-Eingabe und der Typ Linienzug bleiben unveraendert interaktiv
+  ;; (fallen unten in den Konsolen-Ablauf, der die Eingabemodus-Frage erneut
+  ;; stellt - siehe vf-eingabe-abfragen).
+  (if (member anlage-typ '("standard" "etage"))
     (progn
       (princ (ssg-text "vfc-eingabemodus-header"))
       (princ (ssg-text "vfc-eingabemodus-3dlinie"))
@@ -1301,7 +1303,9 @@
       (setq antwort (getstring (ssg-text "vfc-prompt-wahl-1-2-ohne-default")))
       (if (= antwort "2")
         (progn
-          (vfs-standard-dialog-ablauf vf-nummer)
+          (if (= anlage-typ "etage")
+            (vfe-etage-dialog-ablauf vf-nummer)
+            (vfs-standard-dialog-ablauf vf-nummer))
           (exit)
         )
       )
@@ -1476,12 +1480,12 @@
                             richtung best-winkel startpunkt lastEnt hz
                             "0" "Schoenenberger Geruest"))
 
-      ;; Standard-Bloecke aus dem interaktiven Konsolen-Ablauf ebenfalls mit der
+      ;; Standard- UND Etage-Bloecke aus dem interaktiven Konsolen-Ablauf mit der
       ;; SSG_VF_EDIT-XDATA markieren - sie sind (wie die Dialog-Variante) aus
       ;; Attributen + hz verlustfrei rekonstruierbar, also per Doppelklick
-      ;; (c:VARIOFOERDERER_EDIT) editierbar. Etage/Linienzug bleiben unmarkiert.
-      (if (and vf-insert (= anlage-typ "standard"))
-        (vfs-xdata-schreiben vf-insert hz))
+      ;; (c:VARIOFOERDERER_EDIT) editierbar. Linienzug bleibt unmarkiert.
+      (if (and vf-insert (member anlage-typ '("standard" "etage")))
+        (vf-edit-xdata-schreiben vf-insert anlage-typ hz))
 
       (princ "\n=========================================")
     )