From c1fa63f067a040f0c437a4d5d049745ff4f2e668 Mon Sep 17 00:00:00 2001
From: Michael Stangl <m.stangl@schoenenberger.de>
Date: Fri, 15 May 2026 12:52:17 +0200
Subject: [PATCH] =?UTF-8?q?Fix=20c:KreiselConnect:=20abstandStr,=20typNum,?=
 =?UTF-8?q?=20newBasePoint=20als=20lokale=20Variablen=20erg=C3=A4nzt.=20W?=
 =?UTF-8?q?=C3=A4ren=20sonst=20global=20gewesen.=20dentify-connection-poin?=
 =?UTF-8?q?t:=20insertPoint,=20pickX,=20pickY,=20tolerance,=20type=20als?=
 =?UTF-8?q?=20lokale=20Variablen=20erg=C3=A4nzt=20;=20calculate-new-basepo?=
 =?UTF-8?q?int:=20insertPoint=20als=20lokale=20Variable=20erg=C3=A4nzt;=20?=
 =?UTF-8?q?LAYER=20S=5FLP:=20Layername=20S=5FLP=20nach=20Farbwert=20eingef?=
 =?UTF-8?q?=C3=BCgt;=20[200?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Lisp/KreiselInsert.lsp | 10 +++++-----
 doc/tools.md           |  4 +++-
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/Lisp/KreiselInsert.lsp b/Lisp/KreiselInsert.lsp
index 417a814..f07afcf 100644
--- a/Lisp/KreiselInsert.lsp
+++ b/Lisp/KreiselInsert.lsp
@@ -73,7 +73,7 @@
 ;; ============================================
 ;; Smart-Connect-Einfügebefehl
 ;; ============================================
-(defun c:KreiselConnect ( / existingObj pickPoint connectionType newX newY abstand typ)
+(defun c:KreiselConnect ( / existingObj pickPoint connectionType newX newY abstand typ abstandStr typNum newBasePoint)
   
   (princ "\n=== Kreisel Smart Connect ===\n")
   
@@ -124,7 +124,7 @@
 ;; ============================================
 ;; Verbindungspunkt-Typ erkennen
 ;; ============================================
-(defun identify-connection-point (obj pickPoint / x y abstand)
+(defun identify-connection-point (obj pickPoint / x y abstand insertPoint pickX pickY tolerance type)
   ;; Basispunkt des Moduls ermitteln (aus Einfügepunkt berechnen)
   (setq insertPoint (cdr (assoc 10 (entget obj))))
   (setq x (car insertPoint) y (cadr insertPoint))
@@ -186,7 +186,7 @@
 ;; ============================================
 ;; Basispunkt des neuen Moduls berechnen
 ;; ============================================
-(defun calculate-new-basepoint (obj pickPoint connectionType abstand / x y newX newY)
+(defun calculate-new-basepoint (obj pickPoint connectionType abstand / x y newX newY insertPoint)
   
   (setq insertPoint (cdr (assoc 10 (entget obj))))
   (setq x (car insertPoint) y (cadr insertPoint))
@@ -243,7 +243,7 @@
   
   ;; Tangenten zeichnen
   (if (not (tblsearch "LAYER" "S_LP"))
-    (command "_.LAYER" "_NEW" "S_LP" "_C" "7" "" "")
+    (command "_.LAYER" "_NEW" "S_LP" "_C" "7" "S_LP" "")
   )
   (setvar "CLAYER" "S_LP")
   
@@ -268,7 +268,7 @@
   (if (= typ "PIN")
     (progn
       (if (not (tblsearch "LAYER" "pinbereich"))
-        (command "_.LAYER" "_NEW" "pinbereich" "_C" "3" "_LT" "2punkt" "")
+        (command "_.LAYER" "_NEW" "pinbereich" "_C" "3" "pinbereich" "_LT" "2punkt" "pinbereich" "")
       )
       (setvar "CLAYER" "pinbereich")
       (setvar "CECOLOR" "3")
diff --git a/doc/tools.md b/doc/tools.md
index 50cbfba..bceb1e1 100644
--- a/doc/tools.md
+++ b/doc/tools.md
@@ -1,3 +1,6 @@
+
+Diese Werkzeuge ermöglichen die massenhafte Aufbereitung von einzelnen dxf Dateien mit Omniflo Bögen und Weichen. Sie setzen automatisiert die Einfügepunkte, die Koordinatensysteme und die Attribugte der jeweiligen Datei korrekt. Anwendbarauf 2D und 3D Dateien, wenn in 3D die 2D Kurven als Skelett enthalten sind.  
+
 - [set\_einfuegepunkt](#set_einfuegepunkt)
   - [Aufruf](#aufruf)
   - [Datenquellen](#datenquellen)
@@ -42,7 +45,6 @@
     - [--dry-run / -d](#--dry-run---d)
   - [Umgebungsvariablen](#umgebungsvariablen-2)
 
-Diese Werkzeuge ermöglichen die massenhafte Aufbereitung von einzelnen dxf Dateien mit Omniflo Bögen und Weichen. Sie setzen automatisiert die Einfügepunkte, die Koordinatensysteme und die Attribugte der jeweiligen Datei korrekt. Anwendbarauf 2D und 3D Dateien, wenn in 3D die 2D Kurven als Skelett enthalten sind.  
 
 # set_einfuegepunkt