Wizard mit Oberflächenstückwerk für den Mode 3 für den VF gebaut

Lisp/vf_core.lsp

@@ -764,11 +764,30 @@
 ;; 30/90-Wahl fuer ein AS/ES-Element. Rueckgabe: "30" oder "90" (Vorgabe 90).
 ;; headerkey: i18n-Key fuer die Kopfzeile ("vf-winkel-aus-header" oder
 ;; "vf-winkel-ein-header"). Rueckgabe: "30" oder "90" (Default 90).
-(defun vf-frage-element-winkel (headerkey)
-  (princ (ssg-text headerkey))
-  (princ (ssg-text "vf-winkel-90"))
-  (princ (ssg-text "vf-winkel-30"))
-  (if (= (getstring (ssg-text "prompt-wahl-1-2")) "2") "30" "90"))
+;; Wizard: nutzt vflw-wahl (dcl/vf_linienzug_wizard.dcl, definiert in
+;; vf_linienzug.lsp) falls dieses Modul geladen und *vfl-wizard-mode* aktiv
+;; ist - sonst (oder bei jedem Fehler) unveraendert die Konsolen-Fragen
+;; (princ + getstring, de/en ueber ssg-text). Gemeinsam genutzt von
+;; Gefaellestrecke.lsp UND vf_linienzug.lsp.
+(defun vf-frage-element-winkel (headerkey / antwort)
+  (if (and (boundp '*vfl-wizard-mode*) *vfl-wizard-mode*
+           (car (atoms-family 1 '("VFLW-WAHL"))))
+    (progn
+      (setq antwort
+        (vl-catch-all-apply 'vflw-wahl
+          (list (ssg-text headerkey)
+                (list (ssg-text "vf-winkel-90") (ssg-text "vf-winkel-30")) 1)))
+      (if (or (vl-catch-all-error-p antwort) (null antwort) (= antwort ""))
+        (setq antwort "1"))
+    )
+    (progn
+      (princ (ssg-text headerkey))
+      (princ (ssg-text "vf-winkel-90"))
+      (princ (ssg-text "vf-winkel-30"))
+      (setq antwort (getstring (ssg-text "prompt-wahl-1-2")))
+    )
+  )
+  (if (= antwort "2") "30" "90"))
 
 ;; AS-/ES-Masse-Globals (aus-dx/dy/dz bzw. ein-dx/dy/dz) fuer die gewaehlte
 ;; Winkel-/Seiten-Variante neu setzen (fuer berechne-alle-winkel, GF-Winkel,