Motorseite (links/rechts) fuer Motor-/Umlenkstation im VF-Dialog waehlbar (Override vf-motorseite, MOTORSEITE-Attribut, Edit/Batch erhalten die Seite)

Lisp/vf_core.lsp

@@ -244,6 +244,17 @@
   (make-frame-from-dir punkt (hz-winkel->xu hz winkel))
 )
 
+;; ------------------------------------------------------------
+;; MOTORSEITE (Motor-/Umlenkstation links|rechts)
+;; ------------------------------------------------------------
+;; Wird vom Bau-Ablauf (Dialog/Edit) vor dem Einfuegen gesetzt und von
+;; vfs-vf-entry/vfs-vf-exit (bzw. Etage) beim Blocknamen gelesen. Analog zum
+;; Dimensions-Override *ssg-ils-dim*, damit die Seite nicht durch saemtliche
+;; Funktionssignaturen gefaedelt werden muss. Default "rechts".
+(if (not (boundp '*vf-motorseite*)) (setq *vf-motorseite* nil))
+(defun vf-motorseite-aktuell ( / )
+  (if (member *vf-motorseite* '("links" "rechts")) *vf-motorseite* "rechts"))
+
 ;; ============================================================
 ;; TEIL 5: KS_EIN/KS_AUS EXTRAKTION
 ;; ============================================================
@@ -1131,7 +1142,7 @@
           (cons "GF_WINKEL"            (strcat (rtos (float (ssg-cfg-or "vario" "gefaelle_winkel" 3)) 2 1)
                                                "," (rtos (float (ssg-cfg-or "vario" "gefaelle_winkel" 3)) 2 1)))
           (cons "ANZAHL_VF"            "1")   ; ein VF-Koerper
-          (cons "MOTORSEITE"           "rechts")
+          (cons "MOTORSEITE"           (vf-motorseite-aktuell))
           (cons "L_VF_m"               (rtos (/ L_VF 1000.0) 2 3))
           (cons "ANTRIEBFAHRTRICHTUNG" richtung)
           (cons "VF_WINKEL"            (itoa best-winkel))