From 829514b32a127dc1c0e7c2c85b3934e6c9f8014f Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Mon, 3 Aug 2026 16:59:05 +0200 Subject: [PATCH] Fix: Etage-VF aus Mubea-Test per Doppelklick editierbar mubea:build-vario-one schrieb den SSG_VF_EDIT-Marker nur fuer typ="standard". Etage-Bloecke (z.B. VF_3 aus mubea.json) blieben ohne XDATA und wurden von VARIOFOERDERER_EDIT abgewiesen. Jetzt wird der Marker fuer standard UND etage geschrieben (analog vf_core.lsp), sodass der Doppelklick in den Etage-Neuaufbau (vfe-edit-ent) dispatcht. Co-Authored-By: Claude Opus 4.8 (1M context) --- tests/test_mubea.lsp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/tests/test_mubea.lsp b/tests/test_mubea.lsp index 5aaa465..63e9258 100644 --- a/tests/test_mubea.lsp +++ b/tests/test_mubea.lsp @@ -168,14 +168,14 @@ startpunkt lastEnt hz "0" "Schoenenberger Geruest")) (if (or (null ent) (/= (type ent) 'ENAME)) (setq ent (mubea:last-insert-prefix "VF_"))) - ;; SSG_VF_EDIT-XDATA schreiben (wie vfs-standard-dialog-berechnen- - ;; einfuegen) - sonst erkennt VARIOFOERDERER_EDIT den Block beim - ;; Doppelklick nicht als "per Dialog erstellt" und verweigert die - ;; Bearbeitung (vfs-edit-keine-xdata). NUR fuer typ="standard": das - ;; XDATA-Schema markiert den Block hart als "standard" - bei einem - ;; Etage-Block wuerde ein spaeterer Doppelklick faelschlich versuchen, - ;; ihn als Standard-Typ neu aufzubauen. - (if (and ent (= (type ent) 'ENAME) (= typ "standard")) (vfs-xdata-schreiben ent hz)) + ;; SSG_VF_EDIT-XDATA schreiben (wie der Produktions-Ablauf in vf_core.lsp) + ;; - sonst erkennt VARIOFOERDERER_EDIT den Block beim Doppelklick nicht als + ;; "per Dialog erstellt" und verweigert die Bearbeitung + ;; (vfs-edit-keine-xdata). Der Typ-Marker ("standard"/"etage") steuert beim + ;; Doppelklick den passenden Neuaufbau-Zweig (Etage -> vfe-edit-ent). Nur + ;; Linienzug/Altbestand bleiben unmarkiert. + (if (and ent (= (type ent) 'ENAME) (member typ '("standard" "etage"))) + (vf-edit-xdata-schreiben ent typ hz)) (mubea:ent-json tid "vario" ent)) (progn (princ (strcat "\n FEHLER: deltaL=" (rtos deltaL 2 0)