horizontale Fahrrichtung (0°/90°/180°/270°) fuer Variofoederer manuelle Werteingabe ergänzen. die Möglichkeit des Horizontal-Varioföerderes wurde bei Ab-Förderrichtung geprüft.

Lisp/vf_etage.lsp

@@ -602,9 +602,14 @@
 ;; ============================================================
 ;; Gibt endpunkt zurueck.
 ;; VF_*-Block-Erstellung erfolgt zentral im Dispatcher (vf_core.lsp).
+;; hz: Parameter fuer Registry-Kompatibilitaet mit variofoerderer-einfuegen
+;; (siehe c:VarioFoerderer) - wird hier NICHT verwendet: die Etage-Anlage hat
+;; bereits eine eigene, fest verdrahtete horizontale Geometrie (hz-anfang/
+;; hz-ende fuer den 60-Grad-Uebereinander-Versatz) und unterstuetzt aktuell
+;; keine zusaetzliche globale Fahrtrichtung.
 (defun etage-foerderanlage-einfuegen (deltaL deltaH richtung
                                        best-winkel L_GF1 L_GF2 L_VF
-                                       startpunkt seite
+                                       startpunkt seite hz
                                        / aktueller-punkt bogen-name endpunkt
                                          bogen-mass bogen-dx bogen-dz
                                          as-block es-block gefaelle-blockname
@@ -630,7 +635,7 @@
 
   ;; 1. AS_30
   (princ (strcat "\n\n1/15: " as-block " (0 Grad)"))
-  (setq aktueller-punkt (insert-block-by-ks as-block aktueller-punkt))
+  (setq aktueller-punkt (insert-block-by-ks as-block aktueller-punkt 0.0))
 
   ;; 2. Staustrecke 400mm (hz-anfang, 3 Grad vert, KS_EIN)
   (princ (strcat "\n\n2/15: Staustrecke 400mm ("
@@ -657,7 +662,7 @@
     (progn
       (princ (strcat "\n\n5/15: Gefaellestrecke (3 Grad, L=" (rtos L_GF1 2 2) " mm)"))
       (setq aktueller-punkt
-        (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt L_GF1 3))
+        (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt L_GF1 3 0.0))
     )
     (princ "\n\n5/15: L_GF1 (uebersprungen)")
   )
@@ -665,7 +670,7 @@
   ;; 6. Umlenkstation (3 Grad geneigt)
   (princ "\n\n6/15: Umlenkstation (500mm, 3 Grad geneigt)")
   (setq aktueller-punkt
-    (insert-rotated-block-with-ks "Vario_Umlenkstation_500mm" aktueller-punkt 3 500 0))
+    (insert-rotated-block-with-ks "Vario_Umlenkstation_500mm" aktueller-punkt 3 500 0 0.0))
 
   ;; 7. 1. Vertikalbogen (3 Grad geneigt)
   (if (= richtung "Auf")
@@ -681,7 +686,7 @@
   (setq bogen-dx (car bogen-mass) bogen-dz (caddr bogen-mass))
   (princ (strcat "\n\n7/15: " bogen-name " (3 Grad geneigt)"))
   (setq aktueller-punkt
-    (insert-rotated-block-with-ks bogen-name aktueller-punkt 3 bogen-dx bogen-dz))
+    (insert-rotated-block-with-ks bogen-name aktueller-punkt 3 bogen-dx bogen-dz 0.0))
 
   ;; 8. Variable Strecke L_VF
   (if (> L_VF 0.1)
@@ -692,14 +697,14 @@
                          (itoa (- (- best-winkel 3))) " Grad, L=" (rtos L_VF 2 2) " mm)"))
           (setq aktueller-punkt
             (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt
-              L_VF (- (- best-winkel 3))))
+              L_VF (- (- best-winkel 3)) 0.0))
         )
         (progn
           (princ (strcat "\n\n8/15: Gefaellestrecke ("
                          (itoa (+ best-winkel 3)) " Grad, L=" (rtos L_VF 2 2) " mm)"))
           (setq aktueller-punkt
             (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt
-              L_VF (+ best-winkel 3)))
+              L_VF (+ best-winkel 3) 0.0))
         )
       )
     )
@@ -724,35 +729,35 @@
                      " (" (itoa (- 3 best-winkel)) " Grad geneigt)"))
       (setq aktueller-punkt
         (insert-rotated-block-with-ks bogen-name aktueller-punkt
-          (- 3 best-winkel) bogen-dx bogen-dz))
+          (- 3 best-winkel) bogen-dx bogen-dz 0.0))
     )
     (progn
       (princ (strcat "\n\n9/15: " bogen-name
                      " (" (itoa (+ best-winkel 3)) " Grad geneigt)"))
       (setq aktueller-punkt
         (insert-rotated-block-with-ks bogen-name aktueller-punkt
-          (+ best-winkel 3) bogen-dx bogen-dz))
+          (+ best-winkel 3) bogen-dx bogen-dz 0.0))
     )
   )
 
   ;; 10. Motorstation (3 Grad geneigt)
   (princ "\n\n10/15: Motorstation (500mm, 3 Grad geneigt)")
   (setq aktueller-punkt
-    (insert-rotated-block-with-ks "Vario_Motorstation_500mm" aktueller-punkt 3 500 0))
+    (insert-rotated-block-with-ks "Vario_Motorstation_500mm" aktueller-punkt 3 500 0 0.0))
 
   ;; 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)"))
       (setq aktueller-punkt
-        (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt L_GF2 3))
+        (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt L_GF2 3 0.0))
     )
     (princ "\n\n11/15: L_GF2 (uebersprungen)")
   )
 
   ;; 12. Gefaellebogen Ende (via KS_EIN, 0 Grad vert)
   (princ (strcat "\n\n12/15: " gefaelle-blockname " (Ende, KS_EIN)"))
-  (setq aktueller-punkt (insert-block-by-ks gefaelle-blockname aktueller-punkt))
+  (setq aktueller-punkt (insert-block-by-ks gefaelle-blockname aktueller-punkt 0.0))
 
   ;; 13. Separator Ende (hz-ende, 3 Grad vert)
   (princ (strcat "\n\n13/15: Separator (300mm, "