feat: VF-Linienzug Linie-GF - Separator VOR/NACH, Endpunkt/Zielhoehe-Vorwahl, steigende GF (Sonderfall bis 3 Grad)
Auf der neuen Kollegen-Architektur (Stufe 0-2: Spec/Journal/Replay-System in vf_spec.lsp, Frage-Schale/Bauteil-Trennung) neu aufgebaut, nachdem der urspruengliche Stand (Commit e76e24e) auf einer aelteren Basis beruhte und per Rebase-Analyse als eigenstaendige, unabhaengige Erweiterung erkannt wurde (der Kollege hat nichts entfernt - diese Features existierten vorher nur lokal uncommitted). Drei Erweiterungen fuer "Neue Linie: GF" in vf-linienzug-modus: - Separator VOR/NACH direkt vor bzw. nach der Gefaellestrecke einfuegbar. - Aeussere Vorwahl "Wie soll die Laenge bestimmt werden?": Endpunkt waehlen (bisheriges Verhalten) oder Zielhoehe zuerst festlegen (Winkel wird daraus berechnet). - Dritte Option "Steigende GF" (Sonderfall, 0 bis 3 Grad): erlaubt eine GF, die statt zu fallen steigt. Neuer Helfer vfl-bogen-uebergang erkennt anhand der tatsaechlichen Frame-Neigung, ob 0/1/2 Uebergangsboegen (Vario_Bogen_auf_3/ab_3) noetig sind, und baut sie automatisch - im Normalfall (fallend->fallend) ein No-Op. Lisp/vf_spec.lsp (Kollegen-Spec/Headless-Bau-System) um die drei neuen Felder (laenge_modus/sep_vor/sep_nach/steigend_modus) erweitert, mit Defaults, die alte Specs unveraendert lassen - haelt die "Spec-Pfad == interaktiver Pfad"-Invariante seines Systems (TEST_HUNDM05/VF_SPEC_BAU) intakt. tests/test_vf_spec.lsp entsprechend mit neuen Testfaellen ergaenzt. Neuer Regressionstest TEST_LINIENZUG_STUFE2 (linienzug_tests_stufe2.json) sowie Anleitung doc/vf_linienzug_modus1_anleitung.md aus dem urspruenglichen Commit uebernommen; die Gefaelle-Hoehe/Winkel-Optionsreihenfolge im Testdatensatz an die jetzt geltende (Kollegen-)Konvention angepasst. Offen (bewusst zurueckgestellt): lib/vf_spec_export.py (Python-Vorwaerts- Emitter, Pendant zu vf_spec.lsp) noch nicht nachgezogen - siehe Folge-Commit. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
Yuelin Wang
co-authored by
Claude Sonnet 5
Claude Sonnet 5
parent
f4edb7339d
commit
23d653c4b3
+445
-127
@@ -2403,6 +2403,75 @@
|
||||
(vfl-frame-3grad pt hz))
|
||||
frame))
|
||||
|
||||
;; Genereller Uebergang zwischen zwei Basis-Neigungen (0/+3/-3 Grad,
|
||||
;; Vorzeichenkonvention wie frame->hz-winkel: positiv=fallend, negativ=
|
||||
;; steigend). Die Bibliothek kennt nur einen 3-Grad-Bogen gegenueber FLACH
|
||||
;; (0 Grad) - ein Wechsel zwischen der fallenden (+3) und der steigenden (-3)
|
||||
;; Basis braucht daher IMMER zwei Boegen ueber 0 als Zwischenhalt. "auf"-
|
||||
;; Boegen senken die Neigung numerisch (Richtung steigend), "ab"-Boegen
|
||||
;; erhoehen sie (Richtung fallend) - siehe vfl-nach-3grad/vfl-hor-koerper-
|
||||
;; bauen, deren Uebergaenge hier verallgemeinert werden. Ist kein Uebergang
|
||||
;; noetig (Start-/Zielbasis identisch), no-op.
|
||||
;; Rueckgabe: (neuer-frame fussabdruck-summe) - fussabdruck-summe (mm, auf hz
|
||||
;; projiziert) muss der Aufrufer von der geplanten Restlaenge/Zielstrecke
|
||||
;; abziehen.
|
||||
(defun vfl-bogen-uebergang (frame ziel-winkel / t0 basis-ziel hz pt m summe vor-pt)
|
||||
(setq hz (car (frame->hz-winkel frame)))
|
||||
(setq t0 (cadr (frame->hz-winkel frame)))
|
||||
(setq t0 (cond ((< (abs t0) *vfk-frame-flach-toleranz*) 0)
|
||||
((< t0 0) (- (fix *vfk-gefaelle-winkel*)))
|
||||
(t (fix *vfk-gefaelle-winkel*))))
|
||||
(setq basis-ziel (cond ((< (abs ziel-winkel) *vfl-gf-winkel-toleranz*) 0)
|
||||
((< ziel-winkel 0) (- (fix *vfk-gefaelle-winkel*)))
|
||||
(t (fix *vfk-gefaelle-winkel*))))
|
||||
(setq summe 0.0)
|
||||
(if (/= t0 basis-ziel)
|
||||
(progn
|
||||
;; Schritt 1: t0 -> 0 (falls t0 noch nicht flach ist).
|
||||
(if (/= t0 0)
|
||||
(progn
|
||||
(setq vor-pt (car frame))
|
||||
(if (> t0 0)
|
||||
(progn
|
||||
(setq m (get-bogen-mass bogen-auf (fix *vfk-gefaelle-winkel*)))
|
||||
(princ (ssg-text "vfl-bogen-auf3-uebergang"))
|
||||
(setq pt (insert-rotated-block-with-ks "Vario_Bogen_auf_3_TEF_rechts" vor-pt
|
||||
(fix *vfk-gefaelle-winkel*) (car m) (caddr m) hz)))
|
||||
(progn
|
||||
(setq m (get-bogen-mass bogen-ab (fix *vfk-gefaelle-winkel*)))
|
||||
(princ (ssg-text "vfl-bogen-ab3-uebergang"))
|
||||
(setq pt (insert-rotated-block-with-ks "Vario_Bogen_ab_3_TEF_rechts" vor-pt
|
||||
(- (fix *vfk-gefaelle-winkel*)) (car m) (caddr m) hz)))
|
||||
)
|
||||
(setq summe (+ summe (vfl-projiziere-distanz vor-pt pt hz)))
|
||||
(setq frame (make-frame-from-dir pt (hz-winkel->xu hz 0)))
|
||||
)
|
||||
)
|
||||
;; Schritt 2: 0 -> basis-ziel (falls das Ziel nicht flach ist).
|
||||
(if (/= basis-ziel 0)
|
||||
(progn
|
||||
(setq vor-pt (car frame))
|
||||
(if (> basis-ziel 0)
|
||||
(progn
|
||||
(setq m (get-bogen-mass bogen-ab (fix *vfk-gefaelle-winkel*)))
|
||||
(princ (ssg-text "vfl-bogen-ab3-uebergang"))
|
||||
(setq pt (insert-rotated-block-with-ks "Vario_Bogen_ab_3_TEF_rechts" vor-pt
|
||||
0 (car m) (caddr m) hz)))
|
||||
(progn
|
||||
(setq m (get-bogen-mass bogen-auf (fix *vfk-gefaelle-winkel*)))
|
||||
(princ (ssg-text "vfl-bogen-auf3-uebergang"))
|
||||
(setq pt (insert-rotated-block-with-ks "Vario_Bogen_auf_3_TEF_rechts" vor-pt
|
||||
0 (car m) (caddr m) hz)))
|
||||
)
|
||||
(setq summe (+ summe (vfl-projiziere-distanz vor-pt pt hz)))
|
||||
(setq frame (make-frame-from-dir pt (hz-winkel->xu hz basis-ziel)))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(list frame summe)
|
||||
)
|
||||
|
||||
;; Horizontales Sub-Segment bauen. Die flache Zone (0 Grad) wird NICHT mehr
|
||||
;; automatisch mit ab_3 auf die 3-Grad-Basis zurueckgefuehrt - das Stueck ENDET
|
||||
;; FLACH. Der ab_3-Uebergang kommt erst, wenn ein 3-Grad-Element folgt
|
||||
@@ -3461,7 +3530,9 @@
|
||||
anzahl-gf anzahl-vf vfl-nummer lastEnt seg-lastEnt
|
||||
gf-max-winkel gf-ok kettenanfang
|
||||
as-vorhanden erg old-error vfl-ins dbg-an
|
||||
hoehe-vorschlaege hoehe-ab hoehe-auf hoehe-fallback)
|
||||
hoehe-vorschlaege hoehe-ab hoehe-auf hoehe-fallback
|
||||
gf-laenge-modus gf-steigend-modus sep-vor-gf sep-nach-gf
|
||||
sep-anzahl erg-bogen)
|
||||
(princ "\n\n=========================================")
|
||||
(princ (ssg-text "vfl-modus1-header"))
|
||||
(princ "\n=========================================")
|
||||
@@ -3706,146 +3777,393 @@
|
||||
|
||||
;; --- Neue Linie: GF (Nutzer legt den Typ explizit fest) ---
|
||||
((= wahl "Linie-GF")
|
||||
;; Fahrtrichtung folgt dem vorherigen Element (Frame); nur das erste
|
||||
;; Segment (frame=nil) definiert die Richtung frei.
|
||||
(setq linie-mess (vfl-neue-linie-messen p-aktuell
|
||||
(if frame (car (frame->hz-winkel frame)) nil)))
|
||||
(if (null linie-mess) (progn (princ (ssg-text "vfl-abgebrochen")) (exit)))
|
||||
(setq deltaL (car linie-mess) hz-neu (cadr linie-mess))
|
||||
(setq kettenanfang (null frame))
|
||||
(setq gf-max-winkel (float (ssg-cfg-or "vario" "gefaelle_winkel" 3)))
|
||||
(if (< deltaL 1.0)
|
||||
(princ (ssg-text "vfl-fehler-linie-zu-kurz"))
|
||||
(setq gf-ok nil sep-vor-gf nil sep-nach-gf nil)
|
||||
;; NEU: Vorfrage "Wie soll die Laenge bestimmt werden?" - IMMER
|
||||
;; gezeigt. gf-laenge-modus="2" => Zielhoehe zuerst (Zweig B), "3" =>
|
||||
;; steigende GF (Sonderfall, Zweig C, KEIN Separator), sonst (Default
|
||||
;; "1") Endpunkt waehlen (Zweig A, heutiges Verhalten + Separator).
|
||||
(princ (ssg-text "vfl-gf-laenge-modus-header"))
|
||||
(princ (ssg-text "vfl-gf-laenge-modus-opt-endpunkt"))
|
||||
(princ (ssg-text "vfl-gf-laenge-modus-opt-hoehe"))
|
||||
(princ (ssg-text "vfl-gf-laenge-modus-opt-steigend"))
|
||||
(setq gf-laenge-modus (vfl-menu (ssg-text "prompt-wahl-1-2")
|
||||
(list (ssg-text "vfl-gf-laenge-modus-opt-endpunkt")
|
||||
(ssg-text "vfl-gf-laenge-modus-opt-hoehe")
|
||||
(ssg-text "vfl-gf-laenge-modus-opt-steigend")) 1
|
||||
"vfl-gf-laenge-modus-header"))
|
||||
(cond
|
||||
((= gf-laenge-modus "3")
|
||||
;; --- Zweig C: Steigende GF (Sonderfall, bis gf-max-winkel Grad) ---
|
||||
;; Eigenstaendig: KEIN Separator (gilt nur fuer die normale
|
||||
;; fallende GF). Innerhalb dieses Zweigs nochmal dieselbe Wahl
|
||||
;; (Endpunkt vs. Zielhoehe), mit Ziel-Richtung "Auf" statt "Ab".
|
||||
;; Der noetige Uebergangsbogen (falls die Vorgaenger-Neigung nicht
|
||||
;; schon zur steigenden Basis passt) wird zentral im gemeinsamen
|
||||
;; Abschluss unten ueber vfl-bogen-uebergang eingefuegt.
|
||||
(princ (ssg-text "vfl-gf-laenge-modus-header"))
|
||||
(princ (ssg-text "vfl-gf-laenge-modus-opt-endpunkt"))
|
||||
(princ (ssg-text "vfl-gf-laenge-modus-opt-hoehe"))
|
||||
(setq gf-steigend-modus (vfl-menu (ssg-text "prompt-wahl-1-2")
|
||||
(list (ssg-text "vfl-gf-laenge-modus-opt-endpunkt")
|
||||
(ssg-text "vfl-gf-laenge-modus-opt-hoehe")) 1
|
||||
"vfl-gf-laenge-modus-header"))
|
||||
(if (= gf-steigend-modus "2")
|
||||
(progn
|
||||
;; --- Zweig C2: Zielhoehe zuerst (steigend) ---
|
||||
(if kettenanfang
|
||||
(progn
|
||||
(setq linie-mess (vfl-neue-linie-messen p-aktuell nil))
|
||||
(if (null linie-mess) (progn (princ (ssg-text "vfl-abgebrochen")) (exit)))
|
||||
(setq hz-neu (cadr linie-mess))
|
||||
(setq erg (vfl-kettenanfang-baustein p-aktuell hz-neu 1.0e9 as-seite as-vorhanden))
|
||||
(setq frame (nth 0 erg) p-aktuell (car frame))
|
||||
)
|
||||
(setq hz-neu (car (frame->hz-winkel frame)))
|
||||
)
|
||||
(setq gf-ok t)
|
||||
(setq hoehe-neu
|
||||
(vfl-in-real (ssg-textf "vfl-prompt-hoehe-linienendpunkt"
|
||||
(list (rtos (caddr p-aktuell) 2 1)))))
|
||||
(if (null hoehe-neu) (setq hoehe-neu (caddr p-aktuell)))
|
||||
(setq deltaH (- hoehe-neu (caddr p-aktuell)))
|
||||
(if (< deltaH 0.0)
|
||||
(progn
|
||||
(vfl-meldung (ssg-text "vfl-alert-gf-steigend-falsche-richtung"))
|
||||
(setq gf-ok nil))
|
||||
(progn
|
||||
(setq winkel
|
||||
(vfl-in-real (ssg-textf "vfl-prompt-neigungswinkel-steigend" (list (rtos gf-max-winkel 2 1)))))
|
||||
(if (null winkel) (setq winkel gf-max-winkel))
|
||||
(if (or (< winkel 0.0) (> winkel gf-max-winkel))
|
||||
(progn
|
||||
(vfl-meldung (ssg-textf "vfl-alert-winkel-ungueltig-steigend"
|
||||
(list (rtos winkel 2 1) (rtos gf-max-winkel 2 1))))
|
||||
(setq gf-ok nil))
|
||||
(if (and (< winkel 1.0e-6) (> deltaH 1.0e-6))
|
||||
(progn
|
||||
(vfl-meldung (ssg-textf "vfl-alert-winkel-ungueltig-steigend"
|
||||
(list (rtos winkel 2 1) (rtos gf-max-winkel 2 1))))
|
||||
(setq gf-ok nil))
|
||||
(progn
|
||||
(setq deltaL
|
||||
(if (< winkel 1.0e-6) 0.0
|
||||
(/ deltaH (/ (sin (* winkel (/ pi 180.0))) (cos (* winkel (/ pi 180.0)))))))
|
||||
(if (< deltaL 1.0)
|
||||
(progn (princ (ssg-text "vfl-fehler-linie-zu-kurz")) (setq gf-ok nil)))
|
||||
(setq winkel (- winkel))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(progn
|
||||
;; --- Zweig C1: Endpunkt waehlen (steigend) ---
|
||||
(setq linie-mess (vfl-neue-linie-messen p-aktuell
|
||||
(if frame (car (frame->hz-winkel frame)) nil)))
|
||||
(if (null linie-mess) (progn (princ (ssg-text "vfl-abgebrochen")) (exit)))
|
||||
(setq deltaL (car linie-mess) hz-neu (cadr linie-mess))
|
||||
(if (< deltaL 1.0)
|
||||
(princ (ssg-text "vfl-fehler-linie-zu-kurz"))
|
||||
(progn
|
||||
(if kettenanfang
|
||||
(progn
|
||||
(setq erg (vfl-kettenanfang-baustein p-aktuell hz-neu deltaL as-seite as-vorhanden))
|
||||
(setq frame (nth 0 erg) deltaL (nth 1 erg) p-aktuell (car frame))
|
||||
)
|
||||
)
|
||||
(if (< deltaL 1.0)
|
||||
(princ (ssg-text "vfl-fehler-linie-zu-kurz"))
|
||||
(progn
|
||||
(setq gf-ok t)
|
||||
(setq winkel
|
||||
(vfl-in-real (ssg-textf "vfl-prompt-neigungswinkel-steigend" (list (rtos gf-max-winkel 2 1)))))
|
||||
(if (null winkel) (setq winkel gf-max-winkel))
|
||||
(if (or (< winkel 0.0) (> winkel gf-max-winkel))
|
||||
(progn
|
||||
(vfl-meldung (ssg-textf "vfl-alert-winkel-ungueltig-steigend"
|
||||
(list (rtos winkel 2 1) (rtos gf-max-winkel 2 1))))
|
||||
(setq gf-ok nil))
|
||||
(setq winkel (- winkel))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= gf-laenge-modus "2")
|
||||
;; --- Zweig B: Zielhoehe zuerst festlegen, Laenge wird berechnet ---
|
||||
(if kettenanfang
|
||||
(progn
|
||||
(setq linie-mess (vfl-neue-linie-messen p-aktuell nil))
|
||||
(if (null linie-mess) (progn (princ (ssg-text "vfl-abgebrochen")) (exit)))
|
||||
(setq hz-neu (cadr linie-mess))
|
||||
(setq erg (vfl-kettenanfang-baustein p-aktuell hz-neu 1.0e9 as-seite as-vorhanden))
|
||||
(setq frame (nth 0 erg) p-aktuell (car frame))
|
||||
)
|
||||
(setq hz-neu (car (frame->hz-winkel frame)))
|
||||
)
|
||||
(setq rad3 (* gf-max-winkel (/ pi 180.0)))
|
||||
(princ (ssg-text "vfl-sep-vor-gf-frage"))
|
||||
(princ (ssg-text "vfl-ja"))
|
||||
(princ (ssg-text "vfl-nein"))
|
||||
(setq sep-vor-gf (= (vfl-menu (ssg-text "vfl-prompt-wahl-1-2-def2")
|
||||
(list (ssg-text "vfl-ja") (ssg-text "vfl-nein")) 2
|
||||
"vfl-sep-vor-gf-frage") "1"))
|
||||
(princ (ssg-text "vfl-sep-nach-gf-frage"))
|
||||
(princ (ssg-text "vfl-ja"))
|
||||
(princ (ssg-text "vfl-nein"))
|
||||
(setq sep-nach-gf (= (vfl-menu (ssg-text "vfl-prompt-wahl-1-2-def2")
|
||||
(list (ssg-text "vfl-ja") (ssg-text "vfl-nein")) 2
|
||||
"vfl-sep-nach-gf-frage") "1"))
|
||||
(setq sep-anzahl (+ (if sep-vor-gf 1 0) (if sep-nach-gf 1 0)))
|
||||
(setq gf-ok t)
|
||||
(setq hoehe-neu
|
||||
(vfl-in-real (ssg-textf "vfl-prompt-hoehe-linienendpunkt"
|
||||
(list (rtos (vfl-gf-hoehe-vorschlag (caddr p-aktuell)) 2 1)))))
|
||||
(if (null hoehe-neu) (setq hoehe-neu (vfl-gf-hoehe-vorschlag (caddr p-aktuell))))
|
||||
(setq deltaH (- hoehe-neu (caddr p-aktuell)))
|
||||
(setq richtung (if (>= deltaH 0.0) "Auf" "Ab"))
|
||||
(setq deltaH (abs deltaH))
|
||||
(if (= richtung "Auf")
|
||||
(progn
|
||||
(vfl-meldung (ssg-text "vfl-alert-gf-kann-nicht-steigen"))
|
||||
(if dbg-an
|
||||
(dbgmsg (strcat "GEOMETRIE FEHLGESCHLAGEN: Linie-GF (Zielhoehe zuerst) kann nicht steigen"
|
||||
" (deltaH=" (rtos deltaH 2 0) ")")))
|
||||
(setq gf-ok nil))
|
||||
(progn
|
||||
(if (> sep-anzahl 0)
|
||||
(setq deltaH (max 0.0 (- deltaH (* sep-anzahl *vfk-separator-laenge* (sin rad3))))))
|
||||
(setq winkel
|
||||
(vfl-in-real (ssg-textf "vfl-prompt-neigungswinkel-laenge-berechnet" (list (rtos gf-max-winkel 2 1)))))
|
||||
(if (null winkel) (setq winkel gf-max-winkel))
|
||||
(if (or (<= winkel 0.0) (> winkel gf-max-winkel))
|
||||
(progn
|
||||
(vfl-meldung (ssg-textf "vfl-alert-winkel-ungueltig"
|
||||
(list (rtos winkel 2 1) (rtos gf-max-winkel 2 1))))
|
||||
(setq gf-ok nil))
|
||||
(progn
|
||||
(setq deltaL (/ deltaH (/ (sin (* winkel (/ pi 180.0))) (cos (* winkel (/ pi 180.0))))))
|
||||
(if (< deltaL 1.0)
|
||||
(progn (princ (ssg-text "vfl-fehler-linie-zu-kurz")) (setq gf-ok nil)))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(t
|
||||
;; --- Zweig A: Endpunkt waehlen (heutiges Verhalten + Separator) ---
|
||||
(setq linie-mess (vfl-neue-linie-messen p-aktuell
|
||||
(if frame (car (frame->hz-winkel frame)) nil)))
|
||||
(if (null linie-mess) (progn (princ (ssg-text "vfl-abgebrochen")) (exit)))
|
||||
(setq deltaL (car linie-mess) hz-neu (cadr linie-mess))
|
||||
(if (< deltaL 1.0)
|
||||
(princ (ssg-text "vfl-fehler-linie-zu-kurz"))
|
||||
(progn
|
||||
;; Kettenanfang: AS-Element (falls gewuenscht) SOFORT einfuegen
|
||||
;; (Richtung hz-neu jetzt bekannt) und die GF-Restlaenge aus dem
|
||||
;; TATSAECHLICHEN KS_AUS nachrechnen (siehe vfl-kettenanfang-
|
||||
;; baustein). Keine Fussabdruck-Schaetzung mehr: sowohl KS_EIN-
|
||||
;; als auch Ursprung-basierte Vorab-Messung ignorieren die
|
||||
;; Drehteller-Rotation, die insert-block-mixed-to-ks beim
|
||||
;; echten Einfuegen anwendet, und liefern daher einen falschen
|
||||
;; Wert (empirisch bestaetigt: ~210mm Schaetzung vs.
|
||||
;; tatsaechlich ~420mm noetiger Versatz).
|
||||
(if kettenanfang
|
||||
(progn
|
||||
(setq erg (vfl-kettenanfang-baustein p-aktuell hz-neu deltaL as-seite as-vorhanden))
|
||||
(setq frame (nth 0 erg) deltaL (nth 1 erg) p-aktuell (car frame))
|
||||
)
|
||||
)
|
||||
;; Nach dem AS-Einfuegen kann die reale Restlaenge (aus dem
|
||||
;; tatsaechlichen KS_AUS neu gemessen) kleiner als der
|
||||
;; urspruenglich gepickte Rohwert sein - bei einem knapp
|
||||
;; gepickten Punkt sogar NEGATIV. Sofortiger Abbruch DIESES
|
||||
;; Zweigs (kein Weiterfragen fuer ein Segment, das ohnehin
|
||||
;; nicht gebaut werden kann).
|
||||
(if (< deltaL 1.0)
|
||||
(princ (ssg-text "vfl-fehler-linie-zu-kurz"))
|
||||
(progn
|
||||
(setq gf-ok t)
|
||||
;; Separator VOR/NACH JETZT fragen, BEVOR Hoehe/Winkel
|
||||
;; berechnet wird - gueltige Trennstellen GF-GF bzw.
|
||||
;; GF-Umlenkstation. Beide Laengen (genaehert mit dem
|
||||
;; Referenzwinkel gf-max-winkel, der tatsaechliche
|
||||
;; GF-Winkel steht erst danach fest) werden SOFORT vom
|
||||
;; gepickten deltaL abgezogen, damit die Kette exakt am
|
||||
;; gepickten Punkt endet statt danach ueberzustehen.
|
||||
(setq rad3 (* gf-max-winkel (/ pi 180.0)))
|
||||
(princ (ssg-text "vfl-sep-vor-gf-frage"))
|
||||
(princ (ssg-text "vfl-ja"))
|
||||
(princ (ssg-text "vfl-nein"))
|
||||
(setq sep-vor-gf (= (vfl-menu (ssg-text "vfl-prompt-wahl-1-2-def2")
|
||||
(list (ssg-text "vfl-ja") (ssg-text "vfl-nein")) 2
|
||||
"vfl-sep-vor-gf-frage") "1"))
|
||||
(princ (ssg-text "vfl-sep-nach-gf-frage"))
|
||||
(princ (ssg-text "vfl-ja"))
|
||||
(princ (ssg-text "vfl-nein"))
|
||||
(setq sep-nach-gf (= (vfl-menu (ssg-text "vfl-prompt-wahl-1-2-def2")
|
||||
(list (ssg-text "vfl-ja") (ssg-text "vfl-nein")) 2
|
||||
"vfl-sep-nach-gf-frage") "1"))
|
||||
(setq sep-anzahl (+ (if sep-vor-gf 1 0) (if sep-nach-gf 1 0)))
|
||||
(if (> sep-anzahl 0)
|
||||
(setq deltaL (- deltaL (* sep-anzahl *vfk-separator-laenge* (cos rad3)))))
|
||||
(if (< deltaL 1.0)
|
||||
(progn (princ (ssg-text "vfl-fehler-linie-zu-kurz")) (setq gf-ok nil)))
|
||||
(if gf-ok
|
||||
(progn
|
||||
(if (vfl-wizard-aktiv)
|
||||
(vl-catch-all-apply 'vflw-gruppe-gefaelle-impl
|
||||
(list (vfl-gf-hoehe-vorschlag (caddr p-aktuell)))))
|
||||
(princ (ssg-text "vfl-gefaelle-festlegen-header"))
|
||||
(princ (ssg-text "vfl-gefaelle-opt-hoehe"))
|
||||
(princ (ssg-text "vfl-gefaelle-opt-winkel"))
|
||||
(setq antwort (vfl-menu (ssg-text "prompt-wahl-1-2")
|
||||
(list (ssg-text "vfl-gefaelle-opt-hoehe")
|
||||
(ssg-text "vfl-gefaelle-opt-winkel")) 1
|
||||
"vfl-gefaelle-festlegen-header"))
|
||||
(if (= antwort "2")
|
||||
(progn
|
||||
;; Winkel direkt vorgeben - deltaH ergibt sich aus
|
||||
;; deltaL*tan(winkel). deltaL ist hier schon um
|
||||
;; Separator VOR/NACH reduziert.
|
||||
(setq winkel
|
||||
(vfl-in-real (ssg-textf "vfl-prompt-neigungswinkel" (list (rtos gf-max-winkel 2 1)))))
|
||||
(if (null winkel) (setq winkel gf-max-winkel))
|
||||
(if (or (<= winkel 0.0) (> winkel gf-max-winkel))
|
||||
(progn
|
||||
(vfl-meldung (ssg-textf "vfl-alert-winkel-ungueltig"
|
||||
(list (rtos winkel 2 1) (rtos gf-max-winkel 2 1))))
|
||||
(setq gf-ok nil))
|
||||
(progn
|
||||
(setq richtung "Ab")
|
||||
(setq deltaH (* deltaL (/ (sin (* winkel (/ pi 180.0)))
|
||||
(cos (* winkel (/ pi 180.0))))))
|
||||
)
|
||||
)
|
||||
)
|
||||
(progn
|
||||
;; Gegebene Hoehe - Winkel wird daraus abgeleitet
|
||||
;; und gegen den GF-Maximalwinkel geprueft.
|
||||
(setq hoehe-neu
|
||||
(vfl-in-real (ssg-textf "vfl-prompt-hoehe-linienendpunkt"
|
||||
(list (rtos (vfl-gf-hoehe-vorschlag (caddr p-aktuell)) 2 1)))))
|
||||
(if (null hoehe-neu) (setq hoehe-neu (vfl-gf-hoehe-vorschlag (caddr p-aktuell))))
|
||||
(setq deltaH (- hoehe-neu (caddr p-aktuell)))
|
||||
(setq richtung (if (>= deltaH 0.0) "Auf" "Ab"))
|
||||
(setq deltaH (abs deltaH))
|
||||
(if (> sep-anzahl 0)
|
||||
(setq deltaH (max 0.0 (- deltaH (* sep-anzahl *vfk-separator-laenge* (sin rad3))))))
|
||||
(cond
|
||||
((= richtung "Auf")
|
||||
(vfl-meldung (ssg-text "vfl-alert-gf-kann-nicht-steigen"))
|
||||
(if dbg-an
|
||||
(dbgmsg (strcat "GEOMETRIE FEHLGESCHLAGEN: Linie-GF kann nicht steigen"
|
||||
" (deltaL=" (rtos deltaL 2 0) " deltaH=" (rtos deltaH 2 0) ")")))
|
||||
(setq gf-ok nil))
|
||||
(t
|
||||
(setq winkel (* (atan (/ deltaH deltaL)) (/ 180.0 pi)))
|
||||
(if (> winkel gf-max-winkel)
|
||||
(progn
|
||||
(vfl-meldung (ssg-textf "vfl-alert-gefaelle-zu-steil"
|
||||
(list (rtos winkel 2 1) (rtos gf-max-winkel 2 1))))
|
||||
(if dbg-an
|
||||
(dbgmsg (strcat "GEOMETRIE FEHLGESCHLAGEN: Linie-GF zu steil (deltaL="
|
||||
(rtos deltaL 2 0) " deltaH=" (rtos deltaH 2 0)
|
||||
" winkel=" (rtos winkel 2 1) " max=" (rtos gf-max-winkel 2 1) ")")))
|
||||
(setq gf-ok nil))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
;; --- Gemeinsamer Abschluss fuer ALLE drei Zweige ---
|
||||
(if gf-ok
|
||||
(progn
|
||||
;; Kettenanfang: AS-Element (falls gewuenscht) SOFORT einfuegen
|
||||
;; (Richtung hz-neu jetzt bekannt) und die GF-Restlaenge aus dem
|
||||
;; TATSAECHLICHEN KS_AUS nachrechnen (siehe vfl-kettenanfang-
|
||||
;; baustein). Keine Fussabdruck-Schaetzung mehr: sowohl KS_EIN- als
|
||||
;; auch Ursprung-basierte Vorab-Messung ignorieren die Drehteller-
|
||||
;; Rotation, die insert-block-mixed-to-ks beim echten Einfuegen
|
||||
;; anwendet, und liefern daher einen falschen Wert (empirisch
|
||||
;; bestaetigt: ~210mm Schaetzung vs. tatsaechlich ~420mm noetiger
|
||||
;; Versatz).
|
||||
(if kettenanfang
|
||||
;; Uebergangsbogen(n) einfuegen, falls die aktuelle Frame-Neigung
|
||||
;; nicht zur Ziel-Neigung dieser Linie passt: noetig fuer den
|
||||
;; Steigend-Sonderfall (Zweig C, winkel < 0) UND falls der
|
||||
;; VORGAENGER eine steigende GF war und jetzt normal (Zweig A/B)
|
||||
;; weitergebaut wird. Im unveraenderten Normalfall (Vorgaenger-
|
||||
;; Neigung bereits 0/+3, Ziel +3 wie bisher) ist die Bedingung
|
||||
;; falsch - kein Verhaltensunterschied zu vorher.
|
||||
(if (or (< winkel 0.0) (< (cadr (frame->hz-winkel frame)) (- *vfl-gf-winkel-toleranz*)))
|
||||
(progn
|
||||
(setq erg (vfl-kettenanfang-baustein p-aktuell hz-neu deltaL as-seite as-vorhanden))
|
||||
(setq frame (nth 0 erg) deltaL (nth 1 erg) p-aktuell (car frame))
|
||||
(setq erg-bogen (vfl-bogen-uebergang frame winkel))
|
||||
(setq frame (car erg-bogen))
|
||||
(setq deltaL (- deltaL (cadr erg-bogen)))
|
||||
(if (< deltaL 1.0)
|
||||
(progn (princ (ssg-text "vfl-fehler-linie-zu-kurz")) (setq gf-ok nil)))
|
||||
)
|
||||
)
|
||||
;; Nach dem AS-Einfuegen kann die reale Restlaenge (aus dem
|
||||
;; tatsaechlichen KS_AUS neu gemessen) kleiner als der urspruenglich
|
||||
;; gepickte Rohwert sein - bei einem knapp gepickten Punkt sogar
|
||||
;; NEGATIV (das AS-Element allein braucht bereits mehr Platz als bis
|
||||
;; zum Klickpunkt vorhanden war). Ohne diese zweite Pruefung wuerde
|
||||
;; vfl-insert-gf-segment mit negativem deltaL "erfolgreich" eine
|
||||
;; entartete/unsichtbare GF-Strecke bauen (leerer Sprung zwischen AS
|
||||
;; und dem naechsten Element) statt den Nutzer erneut picken zu
|
||||
;; lassen - siehe vfl-fehler-linie-zu-kurz oben (dieselbe Meldung).
|
||||
;; Sofortiger Abbruch DIESES Zweigs (kein Weiterfragen nach Winkel/
|
||||
;; Hoehe fuer ein Segment, das ohnehin nicht gebaut werden kann) -
|
||||
;; gf-ok wird unten sonst mehrfach ueberschrieben.
|
||||
(if (< deltaL 1.0)
|
||||
(princ (ssg-text "vfl-fehler-linie-zu-kurz"))
|
||||
(if gf-ok
|
||||
(progn
|
||||
(setq gf-ok t)
|
||||
(if (vfl-wizard-aktiv)
|
||||
(vl-catch-all-apply 'vflw-gruppe-gefaelle-impl
|
||||
(list (vfl-gf-hoehe-vorschlag (caddr p-aktuell)))))
|
||||
(princ (ssg-text "vfl-gefaelle-festlegen-header"))
|
||||
(princ (ssg-text "vfl-gefaelle-opt-hoehe"))
|
||||
(princ (ssg-text "vfl-gefaelle-opt-winkel"))
|
||||
(setq antwort (vfl-menu (ssg-text "prompt-wahl-1-2")
|
||||
(list (ssg-text "vfl-gefaelle-opt-hoehe")
|
||||
(ssg-text "vfl-gefaelle-opt-winkel")) 1
|
||||
"vfl-gefaelle-festlegen-header"))
|
||||
(if (= antwort "2")
|
||||
;; Separator VOR (Antwort aus der Vorab-Frage oben) - VOR
|
||||
;; dem GF-Segment selbst einfuegen, am GF-Winkel.
|
||||
(if sep-vor-gf
|
||||
(progn
|
||||
;; Winkel direkt vorgeben - deltaH ergibt sich aus deltaL*tan(winkel).
|
||||
(setq winkel
|
||||
(vfl-in-real (ssg-textf "vfl-prompt-neigungswinkel" (list (rtos gf-max-winkel 2 1)))))
|
||||
(if (null winkel) (setq winkel gf-max-winkel))
|
||||
(if (or (<= winkel 0.0) (> winkel gf-max-winkel))
|
||||
(progn
|
||||
(vfl-meldung (ssg-textf "vfl-alert-winkel-ungueltig"
|
||||
(list (rtos winkel 2 1) (rtos gf-max-winkel 2 1))))
|
||||
(setq gf-ok nil))
|
||||
(progn
|
||||
(setq richtung "Ab")
|
||||
(setq deltaH (* deltaL (/ (sin (* winkel (/ pi 180.0)))
|
||||
(cos (* winkel (/ pi 180.0))))))
|
||||
)
|
||||
)
|
||||
)
|
||||
(progn
|
||||
;; Gegebene Hoehe - wie bisher, aber Winkel wird daraus abgeleitet
|
||||
;; und gegen den GF-Maximalwinkel geprueft (GF kann nicht steigen).
|
||||
;; p-aktuell ist ab hier immer der reale Referenzpunkt (bei
|
||||
;; Kettenanfang das echte KS_AUS des AS-Elements). Vorschlag/
|
||||
;; Enter-Default = vfl-gf-hoehe-vorschlag (siehe dort), NICHT
|
||||
;; die unveraenderte Ist-Hoehe - sonst waere deltaH=0 und die
|
||||
;; GF-Pruefung wiese den Wert als "kann nicht steigen" ab.
|
||||
(setq hoehe-neu
|
||||
(vfl-in-real (ssg-textf "vfl-prompt-hoehe-linienendpunkt"
|
||||
(list (rtos (vfl-gf-hoehe-vorschlag (caddr p-aktuell)) 2 1)))))
|
||||
(if (null hoehe-neu) (setq hoehe-neu (vfl-gf-hoehe-vorschlag (caddr p-aktuell))))
|
||||
(setq deltaH (- hoehe-neu (caddr p-aktuell)))
|
||||
(setq richtung (if (>= deltaH 0.0) "Auf" "Ab"))
|
||||
(setq deltaH (abs deltaH))
|
||||
(cond
|
||||
((= richtung "Auf")
|
||||
(vfl-meldung (ssg-text "vfl-alert-gf-kann-nicht-steigen"))
|
||||
(if dbg-an
|
||||
(dbgmsg (strcat "GEOMETRIE FEHLGESCHLAGEN: Linie-GF kann nicht steigen"
|
||||
" (deltaL=" (rtos deltaL 2 0) " deltaH=" (rtos deltaH 2 0) ")")))
|
||||
(setq gf-ok nil))
|
||||
(t
|
||||
(setq winkel (* (atan (/ deltaH deltaL)) (/ 180.0 pi)))
|
||||
(if (> winkel gf-max-winkel)
|
||||
(progn
|
||||
(vfl-meldung (ssg-textf "vfl-alert-gefaelle-zu-steil"
|
||||
(list (rtos winkel 2 1) (rtos gf-max-winkel 2 1))))
|
||||
(if dbg-an
|
||||
(dbgmsg (strcat "GEOMETRIE FEHLGESCHLAGEN: Linie-GF zu steil (deltaL="
|
||||
(rtos deltaL 2 0) " deltaH=" (rtos deltaH 2 0)
|
||||
" winkel=" (rtos winkel 2 1) " max=" (rtos gf-max-winkel 2 1) ")")))
|
||||
(setq gf-ok nil))
|
||||
)
|
||||
)
|
||||
)
|
||||
(setq frame (make-frame-from-dir
|
||||
(gf-insert-hz-with-ks "Staustrecke_Separator_SP_300_mm"
|
||||
(car frame) hz-neu winkel *vfk-separator-laenge* 0)
|
||||
(hz-winkel->xu hz-neu winkel)))
|
||||
(setq *vfl-acc-separator* (1+ *vfl-acc-separator*))
|
||||
)
|
||||
)
|
||||
(if gf-ok
|
||||
(if dbg-an
|
||||
(dbgmsg (strcat "GEOMETRIE: vfl-insert-gf-segment (deltaL=" (rtos deltaL 2 0)
|
||||
" hz=" (rtos hz-neu 2 1) " winkel=" (rtos winkel 2 1) ")")))
|
||||
(setq frame (vfl-insert-gf-segment (car frame) hz-neu deltaL winkel))
|
||||
(setq anzahl-gf (1+ anzahl-gf))
|
||||
(vfl-acc-gf-seg (/ deltaL (cos (* (float winkel) (/ pi 180.0)))) winkel)
|
||||
(setq letzter-typ "GF")
|
||||
(setq p-aktuell (car frame))
|
||||
(if dbg-an
|
||||
(dbgmsg (strcat "GEOMETRIE ERFOLG: GF-Segment gebaut, neue Position="
|
||||
(dbg-tostring p-aktuell))))
|
||||
;; Separator NACH (Antwort aus der Vorab-Frage oben) - DIREKT
|
||||
;; nach dem GF-Segment einfuegen, noch VOR der Kettenende-
|
||||
;; Frage.
|
||||
(if sep-nach-gf
|
||||
(progn
|
||||
(if dbg-an
|
||||
(dbgmsg (strcat "GEOMETRIE: vfl-insert-gf-segment (deltaL=" (rtos deltaL 2 0)
|
||||
" hz=" (rtos hz-neu 2 1) " winkel=" (rtos winkel 2 1) ")")))
|
||||
(setq frame (vfl-insert-gf-segment (car frame) hz-neu deltaL winkel))
|
||||
(setq anzahl-gf (1+ anzahl-gf))
|
||||
(vfl-acc-gf-seg (/ deltaL (cos (* (float winkel) (/ pi 180.0)))) winkel)
|
||||
(setq letzter-typ "GF")
|
||||
(setq frame (make-frame-from-dir
|
||||
(gf-insert-hz-with-ks "Staustrecke_Separator_SP_300_mm"
|
||||
(car frame) hz-neu winkel *vfk-separator-laenge* 0)
|
||||
(hz-winkel->xu hz-neu winkel)))
|
||||
(setq *vfl-acc-separator* (1+ *vfl-acc-separator*))
|
||||
(setq letzter-typ "Separator")
|
||||
(setq p-aktuell (car frame))
|
||||
(if dbg-an
|
||||
(dbgmsg (strcat "GEOMETRIE ERFOLG: GF-Segment gebaut, neue Position="
|
||||
(dbg-tostring p-aktuell))))
|
||||
(princ (ssg-text "vfl-ist-kettenende-header"))
|
||||
(princ (ssg-text "vfl-kettenende-opt-ja-es"))
|
||||
(princ (ssg-text "vfl-kettenende-opt-ja-ohne-es"))
|
||||
(princ (ssg-text "vfl-kettenende-opt-nein"))
|
||||
(setq antwort (vfl-menu (ssg-text "vfl-prompt-wahl-1-3-def3")
|
||||
(list (ssg-text "vfl-kettenende-opt-ja-es")
|
||||
(ssg-text "vfl-kettenende-opt-ja-ohne-es")
|
||||
(ssg-text "vfl-kettenende-opt-nein")) 3
|
||||
"vfl-ist-kettenende-header"))
|
||||
(cond
|
||||
((= antwort "1")
|
||||
(setq es-seite (vfl-frage-es-seite))
|
||||
(setq frame (vfl-insert-es-element "GF" frame hz-neu winkel
|
||||
(caddr (car frame)) es-seite))
|
||||
(setq fertig t))
|
||||
((= antwort "2") (setq fertig t))
|
||||
)
|
||||
)
|
||||
)
|
||||
(princ (ssg-text "vfl-ist-kettenende-header"))
|
||||
(princ (ssg-text "vfl-kettenende-opt-ja-es"))
|
||||
(princ (ssg-text "vfl-kettenende-opt-ja-ohne-es"))
|
||||
(princ (ssg-text "vfl-kettenende-opt-nein"))
|
||||
(setq antwort (vfl-menu (ssg-text "vfl-prompt-wahl-1-3-def3")
|
||||
(list (ssg-text "vfl-kettenende-opt-ja-es")
|
||||
(ssg-text "vfl-kettenende-opt-ja-ohne-es")
|
||||
(ssg-text "vfl-kettenende-opt-nein")) 3
|
||||
"vfl-ist-kettenende-header"))
|
||||
(cond
|
||||
((= antwort "1")
|
||||
(setq es-seite (vfl-frage-es-seite))
|
||||
(setq frame (vfl-insert-es-element "GF" frame hz-neu winkel
|
||||
(caddr (car frame)) es-seite))
|
||||
(setq fertig t))
|
||||
((= antwort "2") (setq fertig t))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
+46
-7
@@ -49,6 +49,12 @@
|
||||
(setq *vsp-tab-seite* '(("links" . "1") ("rechts" . "2")))
|
||||
(setq *vsp-tab-variante* '(("aussen" . "1") ("innen" . "2")))
|
||||
(setq *vsp-tab-gefaelle* '(("hoehe" . "1") ("winkel" . "2")))
|
||||
;; Vorwahl "Wie soll die Laenge der Gefaellestrecke bestimmt werden?"
|
||||
;; (vfl-menu in vf-linienzug-modus, wahl="Linie-GF"). Die innere Wahl im
|
||||
;; Steigend-Sonderfall (Endpunkt/Hoehe) nutzt dieselbe Tabelle - dort sind
|
||||
;; nur die Codes "1"/"2" gueltig, "steigend" kommt dort nie vor.
|
||||
(setq *vsp-tab-gf-laenge-modus* '(("endpunkt" . "1") ("hoehe" . "2")
|
||||
("steigend" . "3")))
|
||||
(setq *vsp-tab-verteilung* '(("haelfte" . "1") ("einlauf" . "2")))
|
||||
(setq *vsp-tab-im-vf* '(("horizontal" . "1") ("vario-kurve" . "2")
|
||||
("auf-ab" . "3")))
|
||||
@@ -219,7 +225,7 @@
|
||||
(vsp-wert-str (ssg-val kopf "as_winkel") "as_winkel")
|
||||
(vsp-code-raus *vsp-tab-seite* (ssg-val kopf "as_seite") "as_seite"))))
|
||||
|
||||
(defun vsp-sektion (sek subs erster / label tab code art)
|
||||
(defun vsp-sektion (sek subs erster / label tab code art modus smodus)
|
||||
(setq label (ssg-val sek "glied"))
|
||||
(setq *vsp-wo* (strcat "Sektion " (if label label "(ohne glied)")))
|
||||
(cond
|
||||
@@ -250,12 +256,45 @@
|
||||
(vsp-code-raus *vsp-tab-seite* (ssg-val sek "seite") "seite"))
|
||||
|
||||
((= label "Linie-GF")
|
||||
(vsp-linie sek)
|
||||
(setq art (ssg-val sek "gefaelle"))
|
||||
(vsp-code-raus *vsp-tab-gefaelle* art "gefaelle")
|
||||
(if (= art "hoehe")
|
||||
(vsp-zahl "REAL" (ssg-val sek "hoehe") "hoehe")
|
||||
(vsp-zahl "REAL" (ssg-val sek "winkel") "winkel"))
|
||||
;; Vorwahl "laenge_modus" (endpunkt/hoehe/steigend, Default
|
||||
;; "endpunkt" - deckt alte Specs ohne dieses Feld ab, identisch
|
||||
;; zum bisherigen alleinigen Ablauf). "steigend" ist der
|
||||
;; Sonderfall (GF bis 3 Grad steigend, KEIN Separator, eigene
|
||||
;; innere Endpunkt/Hoehe-Wahl "steigend_modus"). Die DL(+hz)-
|
||||
;; Eingabe (vsp-linie) faellt bei "hoehe"/"steigend"+"hoehe" NUR
|
||||
;; beim allerersten Segment der Kette an (Kettenanfang braucht
|
||||
;; einen Pick fuer die freie Richtung; jedes weitere Segment erbt
|
||||
;; die Richtung vom Vorgaenger ohne eigenen Pick) - siehe erster.
|
||||
(setq modus (ssg-val sek "laenge_modus"))
|
||||
(if (null modus) (setq modus "endpunkt"))
|
||||
(vsp-code-raus *vsp-tab-gf-laenge-modus* modus "laenge_modus")
|
||||
(cond
|
||||
((= modus "steigend")
|
||||
(setq smodus (ssg-val sek "steigend_modus"))
|
||||
(if (null smodus) (setq smodus "endpunkt"))
|
||||
(vsp-code-raus *vsp-tab-gf-laenge-modus* smodus "steigend_modus")
|
||||
(if (= smodus "endpunkt")
|
||||
(vsp-linie sek)
|
||||
(if erster (vsp-linie sek)))
|
||||
(if (= smodus "hoehe")
|
||||
(vsp-zahl "REAL" (ssg-val sek "hoehe") "hoehe"))
|
||||
(vsp-zahl "REAL" (ssg-val sek "winkel") "winkel"))
|
||||
((= modus "hoehe")
|
||||
(if erster (vsp-linie sek))
|
||||
(vsp-raus "STR" (vsp-ja-code (ssg-val sek "sep_vor")))
|
||||
(vsp-raus "STR" (vsp-ja-code (ssg-val sek "sep_nach")))
|
||||
(vsp-zahl "REAL" (ssg-val sek "hoehe") "hoehe")
|
||||
(vsp-zahl "REAL" (ssg-val sek "winkel") "winkel"))
|
||||
(T ;; "endpunkt"
|
||||
(vsp-linie sek)
|
||||
(vsp-raus "STR" (vsp-ja-code (ssg-val sek "sep_vor")))
|
||||
(vsp-raus "STR" (vsp-ja-code (ssg-val sek "sep_nach")))
|
||||
(setq art (ssg-val sek "gefaelle"))
|
||||
(vsp-code-raus *vsp-tab-gefaelle* art "gefaelle")
|
||||
(if (= art "hoehe")
|
||||
(vsp-zahl "REAL" (ssg-val sek "hoehe") "hoehe")
|
||||
(vsp-zahl "REAL" (ssg-val sek "winkel") "winkel")))
|
||||
)
|
||||
(vsp-code-raus *vsp-tab-ende3* (ssg-val sek "ende") "ende"))
|
||||
|
||||
((= label "Linie-VF")
|
||||
|
||||
Reference in New Issue
Block a user