Die Funktion bei VF_Linienzug wurde optimiert. Und TEST_LINIENZUG wurde in test_foerdererer.lsp eingebaut.

2026-07-08 13:45:12 +02:00
parent 80ec7043b8
commit 3897581dc9
9 changed files with 692 additions and 116 deletions
@@ -95,7 +95,11 @@
 ;; ============================================================
 (defun init-bibliothek ( / temp-obj bogen-winkel ks-data ks-ein-pos ks-aus-pos
                           dx dy dz bogen-name)
-  (if (and *lib-initialized* (tblsearch "BLOCK" "AS_Element_90_links"))
+  ;; "bereits initialisiert" nur, wenn das Flag gesetzt UND die Bogen-Tabelle
+  ;; tatsaechlich befuellt ist. Sonst (Stuck-State: Flag gesetzt, aber bogen-auf
+  ;; leer - z.B. nach einer fehlgeschlagenen Extraktion) neu initialisieren.
+  (if (and *lib-initialized* bogen-auf bogen-ab
+           (tblsearch "BLOCK" "AS_Element_90_links"))
    (progn
      (princ "\n  Standard-Bibliothek bereits initialisiert.")
      t