CSV-Export: Nachbarschaftserkennung neu aufgebaut (ohne shapely), Fehlerspalte ergaenzt

Nachbarschaft wird jetzt in drei getrennten Gruppen geprueft statt global
ueber alle Elemente: Kreisel/Eckrad gegeneinander, Kreisel/Eckrad gegen
Gefaellestrecke/Foerderer/Strecke-Modul (diese drei nicht gegeneinander),
und Omniflo-Elemente gegeneinander (rasterbasiert vorgefiltert nach x/y-
Koordinate). Ersetzt die bisherige shapely-STRtree-Loesung durch reines
Python, da die shapely-Abhaengigkeit den regulaeren CSV-Export in der von
BricsCAD genutzten Python-Umgebung brechen konnte.

Neue Spalte "Fehler" markiert Elemente mit zu wenigen Partnern
("unverbunden"/"nur ein Partner") je nach TeileArt-Mindestanzahl.

Ausserdem: SSG_RUN_ALL_TESTS-Absturz nach TEST_KREISEL behoben (ssg-start/
ssg-end nutzten flache globale Variablen statt eines Stacks, wodurch
verschachtelte Aufrufe den *error*-Handler dauerhaft korrumpierten) und
FILEDIA=0 um den DXFOUT-Kommandozeilenaufruf ergaenzt.

tests/test_run_all.lsp

@@ -146,7 +146,7 @@
                                 namen befehl datei export-fn new-doc
                                 out-path dwg-pfad dxf-pfad old-json test-result
                                 old-filenames csv-name sivas-name csv-pfad
-                                sivas-pfad csv-ok sivas-ok)
+                                sivas-pfad csv-ok sivas-ok old-filedia)
 
   (setq tests-pfad    (strcat (getenv "DXFMAKRO") "/tests"))
   (setq tests-out-dir (strcat tests-pfad "/output"))
@@ -267,7 +267,15 @@
                 (princ (strcat "\n  DWG gespeichert: " dwg-pfad))
               )
               ((and save-fmt (= (strcase save-fmt) "DXF"))
+                ;; FILEDIA=0 erzwingen: sonst oeffnet "_.DXFOUT" den nativen
+                ;; Speichern-Dialog (blockiert im Skriptlauf) statt die
+                ;; Kommandozeilen-Prompts (Dateiname/Genauigkeit) zu nutzen -
+                ;; das brachte den nachfolgenden vla-close aus dem Takt
+                ;; (siehe Kontroll-Modus-Zweig weiter unten fuer Details).
+                (setq old-filedia (getvar "FILEDIA"))
+                (setvar "FILEDIA" 0)
                 (command "_.DXFOUT" out-path 6)
+                (setvar "FILEDIA" old-filedia)
                 (princ (strcat "\n  DXF gespeichert: " out-path ".dxf"))
               )
               (T
@@ -343,7 +351,16 @@
                 (setq dwg-pfad (strcat out-path ".dwg"))
                 (setq dxf-pfad (strcat out-path ".dxf"))
                 (vla-saveas new-doc dwg-pfad)
+                ;; FILEDIA=0 erzwingen: sonst oeffnet "_.DXFOUT" den nativen
+                ;; Speichern-Dialog statt der Kommandozeilen-Prompts - der
+                ;; Skriptlauf haengt dann in einem offenen Dialog fest, und
+                ;; der nachfolgende vla-close (auf dem noch "belegten"
+                ;; Dokument) bricht mit "bad argument type <0>" ab, weil
+                ;; new-doc dabei ungueltig wird.
+                (setq old-filedia (getvar "FILEDIA"))
+                (setvar "FILEDIA" 0)
                 (command "_.DXFOUT" out-path 6)
+                (setvar "FILEDIA" old-filedia)
                 (vla-close new-doc :vlax-false)
                 (if (findfile dwg-pfad) (vl-file-delete dwg-pfad))
                 (setq new-doc (vla-open (vla-get-documents app) dxf-pfad))