Kreisel: Attribut Geruest_Einzelmodul hinzugefuegt (Erzeugung, Edit-Dialog, Export)

Jeder Kreisel bekommt bei der Erzeugung das neue Attribut GERUEST_EINZELMODUL
(Default false), im KreiselEdit-Dialog per Checkbox "Geruest fuer Einzelmodul"
umschaltbar. Fliesst als echter JSON-Bool ins details-Feld von EXPORTSIVAS/
EXPORTCSV und wird bei der Sivas-Gruppierung gleichartiger Kreisel beruecksichtigt.

Lisp/KreiselInsert.lsp

@@ -82,6 +82,7 @@
     ("ABSTAND"       "2300")
     ("NUMMER"        "0")
     ("HOEHE"         "0")
+    ("GERUEST_EINZELMODUL" "0")
     ("ID"            ""))
 )
 
@@ -856,7 +857,7 @@
 (defun c:KreiselEdit ( / sel ss ent ed attribs basePoint rotation
                          dcl-pfad dat ergebnis
                          dlg-name dlg-abstand dlg-hoehe dlg-ausrichtung
-                         dlg-drehrichtung dlg-kreiselart
+                         dlg-drehrichtung dlg-kreiselart dlg-geruest-einzelmodul
                          newAbstand newRotation ausrichtLabels)
 
   ;; Implied Selection VOR ssg-start pruefen (ssg-start hebt Selektion auf)
@@ -951,6 +952,9 @@
   (end_list)
   (set_tile "kreiselart" (if (equal (cdr (assoc "KREISELART" attribs)) "PIN") "1" "0"))
 
+  (set_tile "geruest_einzelmodul"
+            (if (equal (cdr (assoc "GERUEST_EINZELMODUL" attribs)) "1") "1" "0"))
+
   ;; Actions
   (action_tile "accept"
     (strcat
@@ -960,6 +964,7 @@
       "(setq dlg-ausrichtung  (get_tile \"ausrichtung\"))"
       "(setq dlg-drehrichtung (get_tile \"drehrichtung\"))"
       "(setq dlg-kreiselart   (get_tile \"kreiselart\"))"
+      "(setq dlg-geruest-einzelmodul (get_tile \"geruest_einzelmodul\"))"
       "(done_dialog 1)"
     )
   )
@@ -986,6 +991,8 @@
       (setq attribs (subst (cons "DREHRICHTUNG"
                               (if (= dlg-drehrichtung "1") "GUZ" "UZS"))
                             (assoc "DREHRICHTUNG" attribs) attribs))
+      (setq attribs (subst (cons "GERUEST_EINZELMODUL" dlg-geruest-einzelmodul)
+                            (assoc "GERUEST_EINZELMODUL" attribs) attribs))
 
       ;; Alten Block loeschen
       (command "_.ERASE" ent "")