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) <noreply@anthropic.com>
This commit is contained in:
2026-08-03 16:59:05 +02:00
parent 046d34c4aa
commit 829514b32a
+8 -8
View File
@@ -168,14 +168,14 @@
startpunkt lastEnt hz "0" "Schoenenberger Geruest")) startpunkt lastEnt hz "0" "Schoenenberger Geruest"))
(if (or (null ent) (/= (type ent) 'ENAME)) (if (or (null ent) (/= (type ent) 'ENAME))
(setq ent (mubea:last-insert-prefix "VF_"))) (setq ent (mubea:last-insert-prefix "VF_")))
;; SSG_VF_EDIT-XDATA schreiben (wie vfs-standard-dialog-berechnen- ;; SSG_VF_EDIT-XDATA schreiben (wie der Produktions-Ablauf in vf_core.lsp)
;; einfuegen) - sonst erkennt VARIOFOERDERER_EDIT den Block beim ;; - sonst erkennt VARIOFOERDERER_EDIT den Block beim Doppelklick nicht als
;; Doppelklick nicht als "per Dialog erstellt" und verweigert die ;; "per Dialog erstellt" und verweigert die Bearbeitung
;; Bearbeitung (vfs-edit-keine-xdata). NUR fuer typ="standard": das ;; (vfs-edit-keine-xdata). Der Typ-Marker ("standard"/"etage") steuert beim
;; XDATA-Schema markiert den Block hart als "standard" - bei einem ;; Doppelklick den passenden Neuaufbau-Zweig (Etage -> vfe-edit-ent). Nur
;; Etage-Block wuerde ein spaeterer Doppelklick faelschlich versuchen, ;; Linienzug/Altbestand bleiben unmarkiert.
;; ihn als Standard-Typ neu aufzubauen. (if (and ent (= (type ent) 'ENAME) (member typ '("standard" "etage")))
(if (and ent (= (type ent) 'ENAME) (= typ "standard")) (vfs-xdata-schreiben ent hz)) (vf-edit-xdata-schreiben ent typ hz))
(mubea:ent-json tid "vario" ent)) (mubea:ent-json tid "vario" ent))
(progn (progn
(princ (strcat "\n FEHLER: deltaL=" (rtos deltaL 2 0) (princ (strcat "\n FEHLER: deltaL=" (rtos deltaL 2 0)