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)