[MERGE] Lager branch in main

Lisp/SSG_LIB_Commands.lsp

@@ -226,6 +226,7 @@
   (if (car (atoms-family 1 '("SSG-ENSURE")))
     (progn (ssg-ensure "Gefaellestrecke") (ssg-ensure "VarioFoerderer")))
   (setq enames '() n-gf 0 n-vf 0 n-skip 0)
+  (setq *vfl-konvert-fehler* nil)       ; Fehlschlaege der Linienzug-Konvertierung
   (ssg-start "SSG_DIM_BATCH" '(("OSMODE") ("ATTREQ") ("ATTDIA")))
   (setvar "OSMODE" 0)
   ;; Erst alle enames sammeln (entdel veraendert die Zeichnung waehrend der Iteration)
@@ -247,12 +248,12 @@
                (if (gf-konvertiere-ent ent ziel-dim) (setq n-gf (1+ n-gf))))
               ((wcmatch bname "VF_*")
                ;; VF_-Bloecke nach Edit-Marker unterscheiden: Standard/Etage
-               ;; ueber vf-konvertiere-ent, Linienzug (Modus 1/2) ueber den
+               ;; ueber vf-konvertiere-ent, Linienzug (Modus 1/2/3) ueber den
                ;; Journal-Replay-Konverter vfl-konvertiere-ent. Altbestand ohne
                ;; bekannten Marker wird uebersprungen.
                (setq marker (car (vfs-xdata-lesen ent)))
                (cond
-                 ((member marker '("linienzug" "linienzug2"))
+                 ((member marker '("linienzug" "linienzug2" "linienzug3"))
                   (if (vfl-konvertiere-ent ent ziel-dim) (setq n-vf (1+ n-vf))
                     (setq n-skip (1+ n-skip))))
                  ((member marker '("standard" "etage"))
@@ -264,6 +265,14 @@
   (ssg-end)
   (princ (ssg-textf "dim-batch-fertig"
            (list ziel-dim (itoa n-gf) (itoa n-vf) (itoa n-skip))))
+  ;; Fehlgeschlagene Linienzug-Bloecke gesammelt ausgeben (alter Block blieb
+  ;; jeweils unveraendert stehen, siehe vfl-konvertiere-ent)
+  (if *vfl-konvert-fehler*
+    (progn
+      (princ (ssg-textf "dim-batch-fehlerliste"
+               (list (itoa (length *vfl-konvert-fehler*)))))
+      (foreach f *vfl-konvert-fehler*
+        (princ (ssg-textf "dim-batch-fehler-zeile" (list (car f) (cdr f)))))))
   (princ)
 )
 
@@ -382,6 +391,23 @@
       )
     )
 
+    ;; Staubereiche (JAM_AREA) -> JAM_EDIT (DCL-Dialog)
+    ;; Ebenfalls aus der Beschriftung von sps_skel (tro_annotate.py --anlage);
+    ;; Foerderer und laufende Nummer des Staubereichs Jam<NNNN>_<k>.
+    ((wcmatch bname "JAM_*")
+      (princ (ssg-textf "cmd-jam-bearbeiten" (list bname)))
+      (if (and (null *ssg-Jam_Edit-loaded*) (atoms-family 1 '("SSG-ENSURE")))
+        (ssg-ensure "Jam_Edit")
+      )
+      (if (atoms-family 1 '("C:JAM_EDIT"))
+        (c:JAM_EDIT)
+        (progn
+          (princ (ssg-textf "tro-edit-modul-fehlt" (list "Jam_Edit.lsp")))
+          (command "_.EATTEDIT")
+        )
+      )
+    )
+
     ;; TRO-Marker (TRO_SYM_<Typ>) -> TRO_EDIT (DCL-Dialog)
     ;; Die Marker kommen aus sps_skel (lib/tro_annotate.py) und tragen die
     ;; Attribute ID und TYPE. Modul bei Bedarf nachladen, damit der Doppelklick
@@ -418,6 +444,24 @@
       (ssg-end)
     )
 
+    ;; Kettenfoerderer (KF_n, KettenFoerderer.lsp) -> KF_EDIT (DCL-Dialog mit
+    ;; Neuaufbau an derselben Stelle). MUSS - aus demselben Grund wie GR_* -
+    ;; vor dem Omniflo-Zweig stehen: traegt die Baugruppe ein TEILEART-
+    ;; Attribut, wuerde dort sonst der Omniflo-Elementdialog aufgehen.
+    ((wcmatch bname "KF_*")
+      (princ (ssg-textf "cmd-kettenfoerderer-bearbeiten" (list bname)))
+      (if (and (null *ssg-KettenFoerderer-loaded*) (atoms-family 1 '("SSG-ENSURE")))
+        (ssg-ensure "KettenFoerderer")
+      )
+      (if (atoms-family 1 '("C:KF_EDIT"))
+        (c:KF_EDIT)
+        (progn
+          (princ (ssg-textf "tro-edit-modul-fehlt" (list "KettenFoerderer.lsp")))
+          (command "_.EATTEDIT")
+        )
+      )
+    )
+
     ;; Omniflo-Bloecke -> OMNI_EDIT
     ;; Erkennung: TEILEART-Attribut vorhanden, AP110-Blockname oder rein numerisch
     ((progn