fix: Z-Versatz bei GF/VF behoben (OSMODE=0 im Wrap ssg-block-wrap-welt); gepickte Hoehe als Einfuegehoehe im GF-Dialog

Lisp/vf_linienzug.lsp

@@ -821,12 +821,11 @@
     (ssadd ent vfl-ss)
     (setq ent (entnext ent))
   )
-  (setvar "ATTREQ" 0)
-  (setvar "ATTDIA" 0)
-  (command "_.-BLOCK" vfl-bname startpunkt vfl-ss "")
-  (command "_.INSERT" vfl-bname startpunkt 1.0 1.0 0.0)
-  (setvar "ATTREQ" 1)
-  (setq vfl-insert (entlast))
+  ;; Block definieren und einfuegen mit garantiert weltparallelem BKS.
+  ;; startpunkt ist ein Welt-Punkt; ssg-block-wrap-welt setzt das BKS
+  ;; temporaer auf Welt (verhindert den 31.95mm-Z-Versatz bei abweichendem
+  ;; BKS, siehe Kommentar dort) und stellt es danach wieder her.
+  (setq vfl-insert (ssg-block-wrap-welt vfl-bname startpunkt vfl-ss))
   ;; Werte (volle Liste; nicht vorhandene Tags ignoriert ssg-attrib-set-on)
   (ssg-attrib-set-on vfl-insert
     (list