WINKEL_AS und WINKEL_ES hinzugefügt

Lisp/vf_linienzug.lsp

@@ -2798,7 +2798,9 @@
       (cons "DELTA_L_mm"           (itoa (fix delta-l-total)))
       (cons "TYP"                  typ-str)
       (cons "SEITE_AS"             as-seite)
+      (cons "WINKEL_AS"            (if (boundp '*vfl-as-winkel*) *vfl-as-winkel* ""))
       (cons "SEITE_ES"             es-seite)
+      (cons "WINKEL_ES"            (if (boundp '*vfl-es-winkel*) *vfl-es-winkel* ""))
       ;; ANZAHL_GF = alle GF-Stuecke: eigenstaendige GF-Segmente UND die GF1/GF2
       ;; jeder VF-Einheit (alle ueber vfl-acc-gf-seg in *vfl-acc-lgf* gesammelt).
       (cons "ANZAHL_GF"            (itoa (length *vfl-acc-lgf*)))
@@ -3045,6 +3047,11 @@
                   (list (ssg-text "vfl-ja") (ssg-text "vfl-as-nein")) 1
                   "vfl-as-setzen-frage"))
   (setq as-vorhanden (/= antwort "2"))
+  ;; *vfl-as-winkel*/*vfl-es-winkel* sind Globals (fuer vfl-as-winkel/-es-winkel-
+  ;; Zugriff aus AS-/ES-Einfuegefunktionen) und muessen pro Kette zurueckgesetzt
+  ;; werden - sonst wuerde ein WINKEL_AS-Attribut den Wert der VORHERIGEN Kette
+  ;; tragen, wenn diesmal kein AS gewaehlt wird.
+  (setq *vfl-as-winkel* nil  *vfl-es-winkel* nil)
   (if as-vorhanden
     (progn
       (setq *vfl-as-winkel*
@@ -4875,6 +4882,8 @@
                   (list (ssg-text "vfl-ja") (ssg-text "vfl-m3-as-nein")) 1
                   "vfl-as-setzen-frage"))
   (setq as-vorhanden (/= antwort "2"))
+  ;; Globals pro Lauf zuruecksetzen (siehe Kommentar in vf-linienzug-modus).
+  (setq *vfl-as-winkel* nil  *vfl-es-winkel* nil)
   (if as-vorhanden
     (progn
       (setq *vfl-as-winkel*
@@ -5694,7 +5703,7 @@
 ;; Rueckgabe: (list attribut-alist typ-str).
 (defun vfl-kette-baue-attribute (kette neuer-bname chain-start chain-end /
     rec typ bname anzahl-vf phase entry-info gemessen betrag richtung
-    as-seite es-seite delta-l erster letzter ergebnis typ-str)
+    as-seite es-seite as-winkel es-winkel delta-l erster letzter ergebnis typ-str)
   (vfl-acc-reset)
   (setq anzahl-vf 0)
   (setq phase "gf")
@@ -5704,6 +5713,7 @@
   ;; eigenes AS-/ES-Element beginnt/endet, soll das im Attribut auch als
   ;; "keins vorhanden" erkennbar bleiben statt eine falsche Seite vorzutaeuschen.
   (setq as-seite "" es-seite "")
+  (setq as-winkel "" es-winkel "")
   (setq erster (car kette))
   (setq letzter (car (reverse kette)))
 
@@ -5719,10 +5729,16 @@
       ;; aufgeloest; jedes davon durchlaeuft hier dieselbe Typ-Klassifikation
       ;; wie ein von Anfang an loses Bauteil.
       ((= typ "AS")
-        (if (equal rec erster) (setq as-seite (vfl-kette-teil bname 3))))
+        (if (equal rec erster)
+          (progn
+            (setq as-seite (vfl-kette-teil bname 3))
+            (setq as-winkel (vfl-kette-teil bname 2)))))
 
       ((= typ "ES")
-        (if (equal rec letzter) (setq es-seite (vfl-kette-teil bname 3))))
+        (if (equal rec letzter)
+          (progn
+            (setq es-seite (vfl-kette-teil bname 3))
+            (setq es-winkel (vfl-kette-teil bname 2)))))
 
       ((= typ "GFBOGEN")
         ;; Gefaellebogen_<seite>_<winkel>_R500
@@ -5797,7 +5813,9 @@
       (cons "DELTA_L_mm"           (itoa (fix delta-l)))
       (cons "TYP"                  typ-str)
       (cons "SEITE_AS"             as-seite)
+      (cons "WINKEL_AS"            as-winkel)
       (cons "SEITE_ES"             es-seite)
+      (cons "WINKEL_ES"            es-winkel)
       (cons "ANZAHL_GF"            (itoa (length *vfl-acc-lgf*)))
       (cons "L_GF_m"               (vfl-join-komma *vfl-acc-lgf*))
       (cons "GF_WINKEL"            (vfl-join-komma *vfl-acc-gfwinkel*))