Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros

Lisp/vf_core.lsp

@@ -1151,8 +1151,9 @@
       (if (car (atoms-family 1 '("SSG-ID-GENERATE")))
         (ssg-id-generate vf-insert))
       (princ (ssg-textf "vfc-block-erstellt-eingefuegt" (list vf-bname)))
+      vf-insert
     )
-    (princ (ssg-text "vfc-fehler-keine-entities"))
+    (progn (princ (ssg-text "vfc-fehler-keine-entities")) nil)
   )
 )
 
@@ -1260,6 +1261,26 @@
   (setq vf-nummer (vf-next-number))
   (princ (ssg-textf "vfc-naechste-vf-nummer" (list (itoa vf-nummer))))
 
+  ;; 2b. Standardfall (anlage-typ "standard") + Werteingabe -> DCL-Dialog
+  ;; (dcl/variofoerderer.dcl, siehe vf_standard.lsp: vfs-standard-dialog-ablauf).
+  ;; 3D-Linie-Eingabe und alle anderen Anlagen-Typen (Etage, Linienzug) bleiben
+  ;; unveraendert interaktiv (fallen unten in den bestehenden Konsolen-Ablauf,
+  ;; der die Eingabemodus-Frage dabei erneut stellt - siehe vf-eingabe-abfragen).
+  (if (= anlage-typ "standard")
+    (progn
+      (princ (ssg-text "vfc-eingabemodus-header"))
+      (princ (ssg-text "vfc-eingabemodus-3dlinie"))
+      (princ (ssg-text "vfc-eingabemodus-werte"))
+      (setq antwort (getstring (ssg-text "vfc-prompt-wahl-1-2-ohne-default")))
+      (if (= antwort "2")
+        (progn
+          (vfs-standard-dialog-ablauf vf-nummer)
+          (exit)
+        )
+      )
+    )
+  )
+
   ;; 3. Gemeinsame Eingabe (deltaL, deltaH, richtung, startpunkt) - richtung
   ;; steht bei beiden Eingabemodi (Werteingabe UND 3D-Linie) bereits fest.
   (setq eingabe (vf-eingabe-abfragen))