From 765bf1f9757c5c71ace5196dd65dde3ad552436f Mon Sep 17 00:00:00 2001
From: Michael Stangl <m.stangl@schoenenberger.de>
Date: Thu, 28 May 2026 15:23:20 +0200
Subject: [PATCH] =?UTF-8?q?Gef=C3=A4llestrecken=20der=20Variof=C3=B6rderer?=
 =?UTF-8?q?=20werden=20jetzt=20auch=20aus=20den=20Bl=C3=B6cken=20der=20ILS?=
 =?UTF-8?q?=20Bibliothek=20gezogen,=20nicht=20mehr=20aus=20den=20EInzeldat?=
 =?UTF-8?q?eien.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Lisp/VarioFoerderer.lsp | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/Lisp/VarioFoerderer.lsp b/Lisp/VarioFoerderer.lsp
index cf2c87c..204c8e5 100644
--- a/Lisp/VarioFoerderer.lsp
+++ b/Lisp/VarioFoerderer.lsp
@@ -511,8 +511,8 @@
   (if (> L_GF1 0.1)
     (progn
       (princ (strcat "\n\n2/11: Staustrecke (3 Grad, Laenge=" (rtos L_GF1 2 2) " mm)"))
-      (setq blockname (strcat modul-pfad "Staustrecke_SP_1000_mm.dwg"))
-      (if (findfile blockname)
+      (setq blockname "Staustrecke_SP_1000_mm")
+      (if (tblsearch "BLOCK" blockname)
         (progn
           (setq block (vla-InsertBlock modelspace
                         (vlax-3D-point aktueller-punkt)
@@ -530,7 +530,7 @@
                                       (cadr aktueller-punkt)
                                       (+ (caddr aktueller-punkt) (* (- (sin rad)) L_GF1))))
         )
-        (princ (strcat "\n  FEHLER: " blockname " nicht gefunden!"))
+        (princ (strcat "\n  FEHLER: Block '" blockname "' nicht in Zeichnung gefunden!"))
       )
     )
     (princ "\n2/11: (uebersprungen)")
@@ -565,8 +565,8 @@
           (setq rot-winkel best-winkel)
         )
       )
-      (setq blockname (strcat modul-pfad "Staustrecke_SP_1000_mm.dwg"))
-      (if (findfile blockname)
+      (setq blockname "Staustrecke_SP_1000_mm")
+      (if (tblsearch "BLOCK" blockname)
         (progn
           (setq block (vla-InsertBlock modelspace
                         (vlax-3D-point aktueller-punkt)
@@ -583,7 +583,7 @@
                                       (cadr aktueller-punkt)
                                       (+ (caddr aktueller-punkt) (* (- (sin rad)) L_VF))))
         )
-        (princ (strcat "\n  FEHLER: " blockname " nicht gefunden!"))
+        (princ (strcat "\n  FEHLER: Block '" blockname "' nicht in Zeichnung gefunden!"))
       )
     )
     (princ "\n6/11: (uebersprungen)")
@@ -605,8 +605,8 @@
   (if (> L_GF2 0.1)
     (progn
       (princ (strcat "\n\n9/11: Staustrecke (3 Grad, Laenge=" (rtos L_GF2 2 2) " mm)"))
-      (setq blockname (strcat modul-pfad "Staustrecke_SP_1000_mm.dwg"))
-      (if (findfile blockname)
+      (setq blockname "Staustrecke_SP_1000_mm")
+      (if (tblsearch "BLOCK" blockname)
         (progn
           (setq block (vla-InsertBlock modelspace
                         (vlax-3D-point aktueller-punkt)
@@ -623,7 +623,7 @@
                                       (cadr aktueller-punkt)
                                       (+ (caddr aktueller-punkt) (* (- (sin rad)) L_GF2))))
         )
-        (princ (strcat "\n  FEHLER: " blockname " nicht gefunden!"))
+        (princ (strcat "\n  FEHLER: Block '" blockname "' nicht in Zeichnung gefunden!"))
       )
     )
     (princ "\n9/11: (uebersprungen)")