Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros

Lisp/vf_core.lsp

@@ -1104,12 +1104,11 @@
   (setq vf-bname (strcat "VF_" (itoa vf-nummer)))
   (if (> (sslength vf-ss) 0)
     (progn
-      (setvar "ATTREQ" 0)
-      (setvar "ATTDIA" 0)
-      (command "_.-BLOCK" vf-bname startpunkt vf-ss "")
-      (command "_.INSERT" vf-bname startpunkt 1.0 1.0 0.0)
-      (setvar "ATTREQ" 1)
-      (setq vf-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) und stellt es danach wieder her.
+      (setq vf-insert (ssg-block-wrap-welt vf-bname startpunkt vf-ss))
       (setq montagehoehe-m (/ (+ hoehe-von hoehe-bis) 2000.0))
       ;; L_GF_m: kommagetrennte Segmentlaengen in Metern (vorne,hinten),
       ;; analog L_GF_m in Gefaellestrecke.lsp.