WINKEL_AS und WINKEL_ES hinzugefügt

Lisp/Gefaellestrecke.lsp

@@ -1043,7 +1043,8 @@
         bR90 bR60 bR30
         startpunkt last-ent nach-aus-pt entry-hz
         (caddr (nth first-idx segmente))
-        es-seite "0" "Schoenenberger Geruest")
+        es-seite "0" "Schoenenberger Geruest"
+        gf-as-winkel gf-es-winkel)
 
       (princ "\n\n=========================================")
       (princ (ssg-text "gf-status-fertig"))
@@ -1141,7 +1142,8 @@
                             bogen-L90 bogen-L60 bogen-L30
                             bogen-R90 bogen-R60 bogen-R30
                             startpunkt last-ent nach-aus-pt entry-hz L-first-seg
-                            es-seite geruest-einzelmodul geruest-typ /
+                            es-seite geruest-einzelmodul geruest-typ
+                            as-winkel es-winkel /
                             gf-bname gf-ss ent gf-insert typ-str anzahl-gf
                             gf-winkel-str i gf-g10z gf-korr-dz gf-osmode-alt)
   (if (null geruest-einzelmodul) (setq geruest-einzelmodul "1"))
@@ -1217,7 +1219,9 @@
       (cons "DELTA_L_mm"       (itoa (fix deltaL)))
       (cons "TYP"              typ-str)
       (cons "SEITE_AS"         seite)
+      (cons "WINKEL_AS"        (if as-winkel as-winkel ""))
       (cons "SEITE_ES"         es-seite)
+      (cons "WINKEL_ES"        (if es-winkel es-winkel ""))
       (cons "ANZAHL_GF"        (itoa anzahl-gf))
       (cons "L_GF_m"           L-gf-str)
       (cons "GF_WINKEL"        gf-winkel-str)
@@ -1357,7 +1361,8 @@
       0 0
       0 0 0  0 0 0
       startpunkt last-ent nach-aus-pt (float hz) (float L_stau)
-      es-seite geruest-einzelmodul geruest-typ))
+      es-seite geruest-einzelmodul geruest-typ
+      as-winkel es-winkel))
 
   ;; Edit-Metadaten (Fahrtrichtung, Gefaellewinkel, Element-Winkel) als XDATA
   ;; auf das GF_N-INSERT schreiben, damit GEFAELLESTRECKE_EDIT die Strecke