Merge Geruest-Feature mit 2D/3D-Umschaltung zusammengefuehrt

Konflikte in Gefaellestrecke.lsp und vf_standard.lsp aufgeloest - beide Features behalten. Dialog-Rueckgaben: dim vor den Geruest-Werten. Modus-1 (c:GEFAELLESTRECKE) und die Batch-Konverter (gf-/vf-konvertiere-ent) an die um Geruest-Parameter erweiterten Signaturen (gf-rebuild, gefaellestrecke-einfuegen, vf-block-erstellen) angepasst.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>

Lisp/vf_standard.lsp

@@ -709,15 +709,18 @@
 ;; ============================================================
 
 ;; Basis-Eingabe (Dialog 1): deltaL, deltaH, Richtung, Einfuegehoehe,
-;; Fahrtrichtung, Seite.
+;; Fahrtrichtung, Seite, Geruest fuer Einzelmodul, Geruestoption.
 ;; prefill: Assoziationsliste zur Vorbelegung (fuer VARIOFOERDERER_EDIT) mit
 ;;   Schluesseln "deltaL" "deltaH" "richtung" "einfuegehoehe" "hz" "seite"
-;;   - oder nil fuer Neuanlage mit Defaults.
-;; Rueckgabe: (deltaL deltaH richtung einfuegehoehe hz seite) oder nil bei Abbruch.
+;;   "geruest-einzelmodul" "geruest-typ" - oder nil fuer Neuanlage mit Defaults.
+;; Rueckgabe: (deltaL deltaH richtung einfuegehoehe hz seite
+;;             geruest-einzelmodul geruest-typ) oder nil bei Abbruch.
 (defun vfs-dialog-eingabe-basis (prefill / dcl-pfad dat ergebnis
                                    dlg-deltal dlg-deltah dlg-richtung dlg-hoehe
                                    dlg-fahrtrichtung dlg-seite dlg-dimension
-                                   deltaL deltaH richtung hz seite z-start dim)
+                                   dlg-geruest-einzelmodul dlg-geruest-typ
+                                   deltaL deltaH richtung hz seite z-start dim
+                                   geruest-einzelmodul geruest-typ)
   (setq dcl-pfad (strcat (getenv "DXFM_DCL") "/variofoerderer.dcl"))
   (setq dat (load_dialog dcl-pfad))
   (if (not (new_dialog "variofoerderer_basis" dat))
@@ -771,6 +774,13 @@
       (end_list)
       (set_tile "dimension"
         (if (equal (cond ((cdr (assoc "dim" prefill))) ((ssg-ils-dim-aktuell))) "2D") "1" "0"))
+      (set_tile "geruest_einzelmodul"
+        (if (and prefill (equal (cdr (assoc "geruest-einzelmodul" prefill)) "1")) "1" "0"))
+      (start_list "geruest_typ")
+      (foreach opt *ssg-geruest-optionen* (add_list opt))
+      (end_list)
+      (set_tile "geruest_typ"
+        (itoa (ssg-geruest-typ-to-idx (if prefill (cdr (assoc "geruest-typ" prefill)) nil))))
 
       ;; Actions
       (action_tile "accept"
@@ -782,6 +792,8 @@
           "(setq dlg-fahrtrichtung (get_tile \"fahrtrichtung\"))"
           "(setq dlg-seite         (get_tile \"seite\"))"
           "(setq dlg-dimension     (get_tile \"dimension\"))"
+          "(setq dlg-geruest-einzelmodul (get_tile \"geruest_einzelmodul\"))"
+          "(setq dlg-geruest-typ   (get_tile \"geruest_typ\"))"
           "(done_dialog 1)"
         )
       )
@@ -803,7 +815,9 @@
                   (t 0.0)))
           (setq seite (if (= dlg-seite "1") "links" "rechts"))
           (setq dim   (if (= dlg-dimension "1") "2D" "3D"))
-          (list deltaL deltaH richtung z-start hz seite dim)
+          (setq geruest-einzelmodul dlg-geruest-einzelmodul)
+          (setq geruest-typ (ssg-geruest-idx-to-typ (atoi dlg-geruest-typ)))
+          (list deltaL deltaH richtung z-start hz seite dim geruest-einzelmodul geruest-typ)
         )
         nil
       )
@@ -955,7 +969,7 @@
 ;; winkel-prefill: Vorbelegung fuer vfs-dialog-winkel-verteilung oder nil.
 ;; ============================================================
 (defun vfs-standard-dialog-berechnen-einfuegen (vf-nummer deltaL deltaH richtung startpunkt hz seite
-                                                 winkel-prefill /
+                                                 winkel-prefill geruest-einzelmodul geruest-typ /
                                                  ergebnis ergebnis-liste gueltige-winkel horizontal-info
                                                  winkelwahl best-winkel L_GF L_VF L_GF1 L_GF2 verteilung-modus
                                                  n-scanner hoehe-von hoehe-bis lastEnt vf-insert vf-endpunkt staustrecke-basis)
@@ -1014,7 +1028,8 @@
           (setq vf-insert
             (vf-block-erstellen "standard" seite vf-nummer n-scanner
                                  hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2
-                                 richtung best-winkel startpunkt lastEnt hz))
+                                 richtung best-winkel startpunkt lastEnt hz
+                                 geruest-einzelmodul geruest-typ))
           (if vf-insert (vfs-xdata-schreiben vf-insert hz))
           (princ "\n=========================================")
         )
@@ -1029,7 +1044,8 @@
 ;; Neuanlage (Menue/Konsole -> Dialog): Startpunkt (X/Y) picken, Basis-Dialog,
 ;; dann gemeinsame Berechnung/Winkel-Dialog/Einfuegung.
 (defun vfs-standard-dialog-ablauf (vf-nummer / eingabe deltaL deltaH richtung
-                                    z-start hz seite startpunkt startpunkt-xy dim)
+                                    z-start hz seite startpunkt startpunkt-xy dim
+                                    geruest-einzelmodul geruest-typ)
   (setq startpunkt-xy (getpoint (ssg-text "vfc-prompt-startpunkt-aus")))
   (if (null startpunkt-xy) (setq startpunkt-xy '(0 0 0)))
 
@@ -1043,11 +1059,14 @@
             z-start  (nth 3 eingabe)
             hz       (nth 4 eingabe)
             seite    (nth 5 eingabe)
-            dim      (nth 6 eingabe))
+            dim                 (nth 6 eingabe)
+            geruest-einzelmodul (nth 7 eingabe)
+            geruest-typ         (nth 8 eingabe))
       (setq startpunkt (list (car startpunkt-xy) (cadr startpunkt-xy) z-start))
       ;; Gewaehlte Dimension (2D/3D) fuer den Bau erzwingen (Override), danach zurueck.
       (setq *ssg-ils-dim* dim)
-      (vfs-standard-dialog-berechnen-einfuegen vf-nummer deltaL deltaH richtung startpunkt hz seite nil)
+      (vfs-standard-dialog-berechnen-einfuegen vf-nummer deltaL deltaH richtung startpunkt hz seite nil
+        geruest-einzelmodul geruest-typ)
       (setq *ssg-ils-dim* nil)
     )
   )
@@ -1059,7 +1078,8 @@
 ;; per Override und baut am selben Startpunkt neu auf. Rueckgabe: T/nil.
 (defun vf-konvertiere-ent (ent ziel-dim / ed bname xd attribs startpunkt hz
                             deltaL deltaH richtung seite best-winkel L_GF_m-teile
-                            L_GF1 L_GF2 L_VF hoehe-von hoehe-bis lastEnt vf-insert vf-nummer)
+                            L_GF1 L_GF2 L_VF hoehe-von hoehe-bis lastEnt vf-insert vf-nummer
+                            geruest-einzelmodul geruest-typ)
   (setq ed (entget ent) bname (cdr (assoc 2 ed)))
   (setq xd (vfs-xdata-lesen ent))
   (if (and (wcmatch bname "VF_*") xd (= (car xd) "standard"))
@@ -1076,6 +1096,9 @@
       (setq L_GF1 (* 1000.0 (atof (car  L_GF_m-teile))))
       (setq L_GF2 (* 1000.0 (atof (cadr L_GF_m-teile))))
       (setq L_VF  (* 1000.0 (atof (cond ((cdr (assoc "L_VF_m" attribs))) ("0.0")))))
+      ;; bestehende Geruest-Einstellungen erhalten
+      (setq geruest-einzelmodul (cond ((cdr (assoc "GERUEST_EINZELMODUL" attribs))) ("0")))
+      (setq geruest-typ (cdr (assoc "GERUEST_TYP" attribs)))
       (setq hoehe-von (caddr startpunkt))
       (setq hoehe-bis (cond ((= richtung "Auf") (+ hoehe-von deltaH))
                             ((= richtung "Ab")  (- hoehe-von deltaH))
@@ -1088,7 +1111,8 @@
       (setq vf-insert
         (vf-block-erstellen "standard" seite vf-nummer 0
                              hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2
-                             richtung best-winkel startpunkt lastEnt hz))
+                             richtung best-winkel startpunkt lastEnt hz
+                             geruest-einzelmodul geruest-typ))
       (if vf-insert (vfs-xdata-schreiben vf-insert hz))
       (setq *ssg-ils-dim* nil)
       (if vf-insert T nil))
@@ -1108,7 +1132,8 @@
 (defun c:VARIOFOERDERER_EDIT ( / ss ent ed bname startpunkt attribs xd
                                  deltaL deltaH richtung z-start hz seite dim
                                  eingabe vf-nummer best-winkel-attr L_GF_m-teile
-                                 prefill-basis prefill-winkel)
+                                 prefill-basis prefill-winkel
+                                 geruest-einzelmodul geruest-typ)
   ;; Implied Selection VOR ssg-start pruefen (ssg-start hebt Selektion auf)
   (setq ss (ssget "I"))
   (if (and ss (= (sslength ss) 1)
@@ -1149,7 +1174,9 @@
     (list (cons "deltaL" deltaL) (cons "deltaH" deltaH) (cons "richtung" richtung)
           (cons "einfuegehoehe" z-start) (cons "hz" hz) (cons "seite" seite)
           ;; Dimension aus XDATA erkennen (Default 3D, falls Alt-Block ohne Eintrag)
-          (cons "dim" (cond ((ssg-dim-xdata-lesen ent)) ("3D")))))
+          (cons "dim" (cond ((ssg-dim-xdata-lesen ent)) ("3D")))
+          (cons "geruest-einzelmodul" (cond ((cdr (assoc "GERUEST_EINZELMODUL" attribs))) ("0")))
+          (cons "geruest-typ" (cdr (assoc "GERUEST_TYP" attribs)))))
 
   (setq eingabe (vfs-dialog-eingabe-basis prefill-basis))
   (if (null eingabe)
@@ -1161,7 +1188,9 @@
             z-start  (nth 3 eingabe)
             hz       (nth 4 eingabe)
             seite    (nth 5 eingabe)
-            dim      (nth 6 eingabe))
+            dim                 (nth 6 eingabe)
+            geruest-einzelmodul (nth 7 eingabe)
+            geruest-typ         (nth 8 eingabe))
       (setq startpunkt (list (car startpunkt) (cadr startpunkt) z-start))
 
       ;; Vorbelegung Winkel/Verteilung: bestehenden Winkel vorschlagen, L_GF-
@@ -1180,7 +1209,7 @@
       (entdel ent)
       (setq vf-nummer (vf-next-number))
       (vfs-standard-dialog-berechnen-einfuegen vf-nummer deltaL deltaH richtung
-        startpunkt hz seite prefill-winkel)
+        startpunkt hz seite prefill-winkel geruest-einzelmodul geruest-typ)
       (setq *ssg-ils-dim* nil)
       (princ (ssg-textf "vfs-edit-neu-aufgebaut" (list bname)))
     )