export_csv: Separator-TYP (VF/GF) bauzeitig je Separator statt vom Wrapper-Blocknamen ableiten

csv:wrapper-strecke-typ (voriger Ansatz) las den Streckentyp aus dem
VF_n/GF_n-Wrapper-Blocknamen - falsch, weil ein einzelner Wrapper intern
mehrfach zwischen Foerderer- und Gefaellestrecke-Abschnitten wechseln kann
(HundM05 VF_1: 4 Separatoren, 2x VF, 2x GF). Jede Separator-Einfuegestelle in
vf_linienzug.lsp/Gefaellestrecke.lsp/vf_standard.lsp/vf_etage.lsp markiert
das frisch eingefuegte Staustrecke_Separator_SP_300_mm-Insert jetzt direkt
per XDATA (ssg-sep-typ-xdata-schreiben/-lesen, ssg_ks_insert.lsp). Der Export
liest den Marker am verpackten Original (nested-ent), nicht mehr am Wrapper.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

Lisp/Gefaellestrecke.lsp

@@ -665,6 +665,7 @@
            (setq endpunkt
              (gf-insert-hz-with-ks
                "Staustrecke_Separator_SP_300_mm" (car aktuell-frame) hz grade 300 0))
+           (ssg-sep-typ-xdata-schreiben (entlast) "GF")
            (setq aktuell-frame (make-frame-from-dir endpunkt xu-incl))
          )
        )
@@ -996,6 +997,7 @@
       (setq sep-endpunkt
         (gf-insert-hz-with-ks "Staustrecke_Separator_SP_300_mm"
                                (car aktuell-frame) exit-hz grade 300 0))
+      (ssg-sep-typ-xdata-schreiben (entlast) "GF")
       ;; Ausgangsrahmen nach Separator fuer ES-Element
       (setq rad-h-es (* (float exit-hz) (/ pi 180.0)))
       (setq rad-v-es (* (float grade)   (/ pi 180.0)))
@@ -1377,6 +1379,7 @@
   (setq sep-endpunkt
     (gf-insert-hz-with-ks
       "Staustrecke_Separator_SP_300_mm" (car aktuell-frame) hz winkel 300 0))
+  (ssg-sep-typ-xdata-schreiben (entlast) "GF")
   (setq sep-frame (make-frame-from-dir sep-endpunkt xu-incl))
 
   ;; 4/4: EIN-Element (KS-zu-KS)