vf-next-number ueberspringt bestehende Block-Definitionen (verhindert sporadischen VF-Bau-Fehlschlag)

Parallel-VF selbstkorrigierend auf GF-AS-KS_EIN ausrichten + vf-next-number gegen Namenskollision haertenm, Debug-Ausgaben entfernt.
2026-07-23 09:07:27 +02:00
parent 8daf6548c8
commit fe2ad9cb32
2 changed files with 16 additions and 2 deletions
@@ -426,6 +426,14 @@
  )
  (setq #VF_LetzteNr (max #VF_LetzteNr maxnr))
  (setq #VF_LetzteNr (1+ #VF_LetzteNr))
+  ;; Nummern ueberspringen, deren Block-DEFINITION bereits existiert (z.B. Rest
+  ;; eines frueher fehlgeschlagenen Baus, der eine VF_n-Definition ohne INSERT
+  ;; hinterliess). Sonst trifft das spaetere _.-BLOCK auf einen vorhandenen
+  ;; Namen -> "Neu definieren?"-Abfrage verschluckt die Folge-Eingaben ->
+  ;; Block wird nicht korrekt erzeugt ("Eintrag kann nicht erkannt werden").
+  (while (tblsearch "BLOCK" (strcat "VF_" (itoa #VF_LetzteNr)))
+    (princ (strcat "\n  [VF-Nr] VF_" (itoa #VF_LetzteNr) " existiert bereits, naechste..."))
+    (setq #VF_LetzteNr (1+ #VF_LetzteNr)))
  #VF_LetzteNr
 )