Oberfläche für Standard von Varioförder und Gefällestrecke bauen lassen

Lisp/SSG_LIB_Commands.lsp

@@ -219,6 +219,20 @@
       (command "_.BEDIT" bname)
     )
 
+    ;; Gefaellestrecke-Bloecke (GF_n) -> GEFAELLESTRECKE_EDIT (DCL-Dialog)
+    ((wcmatch bname "GF_*")
+      (princ (ssg-textf "cmd-gefaelle-bearbeiten" (list bname)))
+      (c:GEFAELLESTRECKE_EDIT)
+    )
+
+    ;; VarioFoerderer-Bloecke (VF_n) -> VARIOFOERDERER_EDIT (DCL-Dialog);
+    ;; weist Bloecke ohne SSG_VF_EDIT-XDATA (Etage/Linienzug/Altbestand)
+    ;; intern selbst ab, siehe c:VARIOFOERDERER_EDIT in vf_standard.lsp.
+    ((wcmatch bname "VF_*")
+      (princ (ssg-textf "cmd-variofoerderer-bearbeiten" (list bname)))
+      (c:VARIOFOERDERER_EDIT)
+    )
+
     ;; Omniflo-Bloecke -> OMNI_EDIT
     ;; Erkennung: TEILEART-Attribut vorhanden, AP110-Blockname oder rein numerisch
     ((progn