[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>

Lisp/KreiselInsert.lsp

@@ -691,21 +691,25 @@
 ;; ============================================================
 
 ;; Kreisel per Script einfuegen (Insert)
-;; pt       : Einfuegepunkt (x y z)
-;; abstand  : Abstand in mm
-;; rotation : Drehwinkel in Grad
-;; typ      : Kreiselart ("STANDARD", "PIN", ...)
-;; hoehe    : Hoehe in mm (oder nil fuer Z aus pt)
+;; pt           : Einfuegepunkt (x y z)
+;; abstand      : Abstand in mm
+;; rotation     : Drehwinkel in Grad
+;; typ          : Kreiselart ("STANDARD", "PIN", ...)
+;; hoehe        : Hoehe in mm (oder nil fuer Z aus pt)
+;; drehrichtung : "GUZ"/"UZS" (optional, nil -> Default aus *kreisel-attrib-defs*)
 ;; Rueckgabe: Entity-Name des erzeugten Blocks oder nil
-(defun kreisel-insert-script (pt abstand rotation typ hoehe / z blockEnt)
+(defun kreisel-insert-script (pt abstand rotation typ hoehe drehrichtung
+                               / z blockEnt attribs)
   (ssg-start (ssg-text "kreisel-start-script-insert") '(("OSMODE") ("CECOLOR")))
   (if (null typ) (setq typ "STANDARD"))
   (setq z (if hoehe hoehe
             (if (and pt (caddr pt)) (caddr pt) *kreisel-default-hoehe*)))
+  (setq attribs (list (cons "KREISELART" typ)
+                       (cons "HOEHE" (rtos z 2 0))))
+  (if drehrichtung
+    (setq attribs (cons (cons "DREHRICHTUNG" drehrichtung) attribs)))
   (setq blockEnt
-    (draw-module (list (car pt) (cadr pt) z) abstand rotation
-                 (list (cons "KREISELART" typ)
-                       (cons "HOEHE" (rtos z 2 0)))))
+    (draw-module (list (car pt) (cadr pt) z) abstand rotation attribs))
   (ssg-end)
   blockEnt
 )