From f18a038ff5ccaf25fa875f924343e8c33a2e114c Mon Sep 17 00:00:00 2001
From: Michael Stangl <m.stangl@schoenenberger.de>
Date: Sun, 17 May 2026 23:55:26 +0200
Subject: [PATCH] Eckrad Erzeugung dazu

---
 Lisp/KreiselInsert.lsp | 38 ++++++++++++++++++++++++++++++++++++--
 1 file changed, 36 insertions(+), 2 deletions(-)

diff --git a/Lisp/KreiselInsert.lsp b/Lisp/KreiselInsert.lsp
index 08f8673..c1caf3b 100644
--- a/Lisp/KreiselInsert.lsp
+++ b/Lisp/KreiselInsert.lsp
@@ -474,6 +474,40 @@
 )
 
 
-(princ "\nKreiselInsert.lsp geladen (Version 6.0 - Attribute + Redraw)")
-(princ "\nBefehle: KreiselInsert, KreiselConnect, KreiselRedraw, KreiselQuick, KreiselParams")
+;; --------------------------------------------
+;; ILS_Eckrad: Einzelnen AN8-Block einfuegen
+;;
+;; Fuegt den Block AN8.dwg an einem gewaehlten Punkt
+;; mit waehlbarer Rotation ein (Eckrad / Umlenkrad).
+;; --------------------------------------------
+(defun c:ILS_Eckrad ( / pt rotStr rotation)
+
+  (ssg-start "Eckrad einfuegen" '(("OSMODE") ("ATTREQ") ("ATTDIA")))
+  (setvar "OSMODE" 0)
+  (setvar "ATTREQ" 0)
+  (setvar "ATTDIA" 0)
+
+  ;; 1. Einfuegepunkt
+  (setq pt (getpoint "\nEinfuegepunkt Eckrad: "))
+  (if (null pt) (progn (ssg-end) (exit)))
+
+  ;; 2. Rotation
+  (setq rotStr (getstring "\nRotation in Grad <0>: "))
+  (if (= rotStr "")
+    (setq rotation 0.0)
+    (setq rotation (atof rotStr))
+  )
+
+  ;; 3. AN8 einfuegen
+  (command "_.INSERT" (strcat *block-path* "AN8.dwg") pt 1 1 rotation)
+
+  (princ (strcat "\nEckrad eingefuegt bei "
+                 (rtos (car pt) 2 1) "," (rtos (cadr pt) 2 1)
+                 " Rotation=" (rtos rotation 2 1)))
+  (ssg-end)
+)
+
+
+(princ "\nKreiselInsert.lsp geladen (Version 6.0 - Attribute + Redraw + Eckrad)")
+(princ "\nBefehle: KreiselInsert, KreiselConnect, KreiselRedraw, KreiselQuick, KreiselParams, ILS_Eckrad")
 (princ)