[ADD] Geruest: Teile-DWGs (data/geruest/<artnr>.dwg) als Geometrie im GR_-Block; TEILEFARBE als Liste parallel zu ARTINR (Flag farbig in geruest.json), Sivas-Merkmal 108 aus cfg [Sivas]; Menue-Befehle GERUEST_SAEULEN/_ROHRABHAENGER/_WANDBEFESTIGUNG

[FIX] Sivas-Export las nicht existierendes Attribut FARBE

Lisp/vf_linienzug.lsp

@@ -2285,7 +2285,7 @@
 ;; Wird direkt nach dem Segment-Dispatch-cond in vf-linienzug-modus aufgerufen
 ;; (per vl-catch-all-apply abgesichert - ein Fehler hier darf den Hauptbau nie
 ;; abbrechen, rein additive Zusatz-XDATA). seg-lastEnt = Schnappschuss VOR
-;; diesem Glied (vf-lastent-ohne-attribute, siehe Aufruf). wahl wird hier
+;; diesem Glied (ssg-lastent-ohne-attribute, siehe Aufruf). wahl wird hier
 ;; nicht mehr gebraucht (das Label steckt schon im STEP-Eintrag des Journals
 ;; via vfl-journal-steplabel) - Parameter bleibt fuer eine spaetere dbgmsg-
 ;; Diagnose nuetzlich, daher weiterhin uebergeben.
@@ -4048,7 +4048,7 @@
       ;; (z.B. Anschluss an einen Kreisel), darum wird hier KS_EIN direkt
       ;; (xy-ref/z-ref="KS_EIN") auf den Klickpunkt gefluchtet - p0-real ist
       ;; dadurch einfach der Klickpunkt selbst, keine Nachmessung mehr noetig.
-      (setq checkpoint (vf-lastent-ohne-attribute))
+      (setq checkpoint (ssg-lastent-ohne-attribute))
       (setq p0-real p-aktuell)
       (setq p0x (car p0-real)  p0y (cadr p0-real))
       (setq theta-ref-rad (* (float theta-ref) (/ pi 180.0)))
@@ -4091,7 +4091,7 @@
       ;; GF_Bogen_L/R_xx- bzw. Separator-Attribute) - die Probe darf diese
       ;; Zaehler NICHT dauerhaft verfaelschen, darum sichern/zuruecksetzen.
       (setq acc-gfbogen-save *vfl-acc-gfbogen*  acc-sep-save *vfl-acc-separator*)
-      (setq probe-checkpoint (vf-lastent-ohne-attribute))
+      (setq probe-checkpoint (ssg-lastent-ohne-attribute))
       (setq probe-frame (vfl-insert-gf-bogen-block frame bogen-winkel bogen-seite))
       (setq hz2 (car (frame->hz-winkel probe-frame)))
       (setq bg2x (- (car (car probe-frame)) (car (car frame))))
@@ -4357,7 +4357,7 @@
       ;; theta-ref) - NICHT theta-ref selbst (das ist E1's Fahrtrichtung).
       (setq dref-x (cos (* (float eintritt-hz) (/ pi 180.0))))
       (setq dref-y (sin (* (float eintritt-hz) (/ pi 180.0))))
-      (setq checkpoint (vf-lastent-ohne-attribute))
+      (setq checkpoint (ssg-lastent-ohne-attribute))
       (setq p0-real p-aktuell)
       (setq p0x (car p0-real)  p0y (cadr p0-real))
       (setq theta-ref-rad (* (float eintritt-hz) (/ pi 180.0)))
@@ -4446,7 +4446,7 @@
         (setq rad-s (* (float s-winkel) (/ pi 180.0)))
         (setq tan-s (/ (sin rad-s) (cos rad-s)))
         (setq acc-gfbogen-save *vfl-acc-gfbogen*  acc-sep-save *vfl-acc-separator*)
-        (setq probe-checkpoint (vf-lastent-ohne-attribute))
+        (setq probe-checkpoint (ssg-lastent-ohne-attribute))
         (setq probe-frame-a (car (vfl-gf-bogen-uebergang frame (- (fix *vfk-gefaelle-winkel*)))))
         (setq probe-frame-a (vfl-gf-bogen-erweitern probe-frame-a "auf" (- (fix *vfk-gefaelle-winkel*)) extra-grad))
         (setq probe-frame-a (vfl-gf-bogen-erweitern probe-frame-a "ab" (- s-winkel) extra-grad))
@@ -6495,7 +6495,7 @@
   ;; dynamic scoping, gilt fuer die gesamte Laufzeit dieses Aufrufs, auch
   ;; tief verschachtelt z.B. in vfl-vf-einheit).
   (setq vfl-nummer (vf-next-number))
-  (setq lastEnt (vf-lastent-ohne-attribute))
+  (setq lastEnt (ssg-lastent-ohne-attribute))
   (setq anzahl-gf 0  anzahl-vf 0  frame nil)
   (setq old-error *error*)
   ;; Scharfen Abbruch-Wickel-Handler installieren (gemeinsam fuer alle drei
@@ -6581,7 +6581,7 @@
     ;; (vfl-segment-xdata-sichern, siehe Ende der cond unten) - dieselbe
     ;; Hilfsfunktion wie beim Ketten-lastEnt (oben), damit ATTRIB/SEQEND-
     ;; Ketten eines vorherigen INSERTs konsistent uebersprungen werden.
-    (setq seg-lastEnt (vf-lastent-ohne-attribute))
+    (setq seg-lastEnt (ssg-lastent-ohne-attribute))
     (vfl-journal-mark "?")
     ;; Erzwungener QC-Modus (Linienzug-Modus 4/5 im Typ-Dispatcher
     ;; c:VarioFoerderer, *vfl-forciere-qc-modus* = "4"/"5"): das Menue
@@ -9066,7 +9066,7 @@
   (setq ent-fp (* (+ *vfl-gf-min-laenge* *vfk-separator-laenge* *vfk-stations-laenge*) (cos rad3)))
   (setq run-typ nil)
   (setq vfl-nummer (vf-next-number))
-  (setq lastEnt (vf-lastent-ohne-attribute))
+  (setq lastEnt (ssg-lastent-ohne-attribute))
   (vfl-acc-reset)
   (setq anzahl-gf 0  anzahl-vf 0  frame nil)
   ;; --- Abbruch-Sicherung ab hier scharf (analog Modus 1/2) ---
@@ -9856,7 +9856,7 @@
   (setq aus (if as-vorhanden (if aus-dx aus-dx *vfk-as-es-fallback-dx*) 0.0)
         ein (if es-vorhanden (if ein-dx ein-dx *vfk-as-es-fallback-dx*) 0.0))
   (setq vfl-nummer (vf-next-number))
-  (setq lastEnt (vf-lastent-ohne-attribute))
+  (setq lastEnt (ssg-lastent-ohne-attribute))
   (vfl-acc-reset)
   ;; *vfl-journal*-Reset steht jetzt GANZ AM ANFANG der Funktion (vor der
   ;; Pfadauswahl/Praeambel) - siehe Kommentar dort. Hier NICHT mehr noetig