[ADD] Kreisel-Drehrichtung (DREHRICHTUNG) per JSON steuerbar: kreisel-insert-script bekommt optionalen 6. Parameter drehrichtung (GUZ/UZS), hundm05:bau-kreisel liest ihn aus dem Testdaten-JSON aus. Showroom ILS: Kreisel_Showroom_02/03/05 GUZ, Kreisel_Showroom_01/06 UZS eingetragen. Doku (lisp_methods.md, json-input-lisp.md) nachgezogen.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

tests/test_hundm05.lsp

@@ -78,14 +78,15 @@
 ;; Rueckgabe: Ergebnis-Record in derselben Form wie die Ketten, damit
 ;; vsp-results-schreiben beide in EINE Datei schreibt (unterschieden ueber
 ;; das Feld "kind").
-(defun hundm05:bau-kreisel (obj / id x y z abstand rotation typ pt ent ed rec)
+(defun hundm05:bau-kreisel (obj / id x y z abstand rotation typ drehrichtung pt ent ed rec)
   (setq id       (ssg-val obj "id"))
   (setq x        (ssg-val obj "x")
         y        (ssg-val obj "y")
         z        (ssg-val obj "z")
         abstand  (ssg-val obj "abstand")
         rotation (ssg-val obj "rotation")
-        typ      (ssg-val obj "typ"))
+        typ      (ssg-val obj "typ")
+        drehrichtung (ssg-val obj "drehrichtung"))
   (if (numberp x) (setq x (float x)))
   (if (numberp y) (setq y (float y)))
   (if (numberp z) (setq z (float z)))
@@ -106,9 +107,9 @@
       (princ (strcat "\n  [KREISEL] " id " -> (" (rtos x 2 0) ", "
                      (rtos y 2 0) ", " (rtos (if z z 0.0) 2 0) ") A="
                      (rtos abstand 2 0) " R=" (rtos (if rotation rotation 0.0) 2 1)
-                     " " typ))
+                     " " typ (if drehrichtung (strcat " " drehrichtung) "")))
       (setq ent (kreisel-insert-script pt abstand
-                                       (if rotation rotation 0.0) typ z))
+                                       (if rotation rotation 0.0) typ z drehrichtung))
       (if ent
         (progn
           (setq ed (entget ent))

tests/testdata/showroom_ils.json

@@ -9,6 +9,7 @@
     "rotation": 90.0,
     "typ": "STANDARD",
     "darstellung": "2D",
+    "drehrichtung": "UZS",
     "comment": "aus DXF: Radmitte AN8 (Layer 1ANTR-800) (26997.93, 3466.40) -> SP8 (Layer 1SP-800) (26997.93, 12498.90), Mittenabstand 9032.50, rotation 90.00 Grad; x/y = AN8-Mitte minus Radius. ACHTUNG hoehe=11039.9 ist NICHT belegt: AN8/SP8 sind flache 2D-Symbole auf Z=0 und nur 0 3D-Nachbarn in 3000 mm - zu wenige fuer eine belegbare Hoehe. Hoehe 2226.4 vom Anwender.",
     "hoehe_quelle": "Anwender"
   },
@@ -22,6 +23,7 @@
     "rotation": 90.0,
     "typ": "STANDARD",
     "darstellung": "2D",
+    "drehrichtung": "GUZ",
     "comment": "aus DXF: Radmitte AN8 (Layer 1ANTR-800) (26997.93, 13298.90) -> SP8 (Layer 1SP-800) (26997.93, 16298.90), Mittenabstand 3000.00, rotation 90.00 Grad; x/y = AN8-Mitte minus Radius. ACHTUNG hoehe=11039.9 ist NICHT belegt: AN8/SP8 sind flache 2D-Symbole auf Z=0 und nur 0 3D-Nachbarn in 3000 mm - zu wenige fuer eine belegbare Hoehe. Hoehe 2226.4 vom Anwender.",
     "hoehe_quelle": "Anwender"
   },
@@ -35,6 +37,7 @@
     "rotation": 180.0,
     "typ": "STANDARD",
     "darstellung": "2D",
+    "drehrichtung": "GUZ",
     "comment": "aus DXF: Radmitte AN8 (Layer 1ANTR-800) (36705.93, 9888.90) -> SP8 (Layer 1SP-800) (29505.93, 9888.90), Mittenabstand 7200.00, rotation 180.00 Grad; x/y = AN8-Mitte minus Radius. ACHTUNG hoehe=11039.9 ist NICHT belegt: AN8/SP8 sind flache 2D-Symbole auf Z=0 und nur 0 3D-Nachbarn in 3000 mm - zu wenige fuer eine belegbare Hoehe. Hoehe 1700.0 vom Anwender.",
     "hoehe_quelle": "Anwender"
   },
@@ -48,6 +51,7 @@
     "rotation": 0.0,
     "typ": "STANDARD",
     "darstellung": "2D",
+    "drehrichtung": "GUZ",
     "comment": "aus DXF: Radmitte (manuell AN8) (Layer --kreisel-achse) (27797.93, 16298.90) -> (manuell SP8) (Layer --kreisel-achse) (36705.93, 16298.90), Mittenabstand 8908.00, rotation 0.00 Grad; x/y = AN8-Mitte minus Radius. ACHTUNG hoehe=0.0 ist NICHT belegt: AN8/SP8 sind flache 2D-Symbole auf Z=0 und nur 0 3D-Nachbarn in 3000 mm - zu wenige fuer eine belegbare Hoehe. Hoehe 2226.4 vom Anwender.",
     "hoehe_quelle": "Anwender"
   },
@@ -61,6 +65,7 @@
     "rotation": 0.0,
     "typ": "STANDARD",
     "darstellung": "2D",
+    "drehrichtung": "UZS",
     "comment": "aus DXF: Radmitte (manuell AN8) (Layer --kreisel-achse) (28772.93, 13093.90) -> (manuell SP8) (Layer --kreisel-achse) (35305.93, 13093.90), Mittenabstand 6533.00, rotation 0.00 Grad; x/y = AN8-Mitte minus Radius. ACHTUNG hoehe=0.0 ist NICHT belegt: AN8/SP8 sind flache 2D-Symbole auf Z=0 und nur 0 3D-Nachbarn in 3000 mm - zu wenige fuer eine belegbare Hoehe. Hoehe 1970 vom Anwender.",
     "hoehe_quelle": "Anwender"
   },