From 59835c1d2fa5958135bd93f8cbc0838cb018b9a4 Mon Sep 17 00:00:00 2001 From: Yuelin Wang Date: Tue, 21 Jul 2026 13:51:16 +0200 Subject: [PATCH] fix: OSMODE=0 in Omniflo-Inserts (Aluprofil/DXF) gegen Hoehen-Umfang-Bug --- Lisp/OmniModulInsert.lsp | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Lisp/OmniModulInsert.lsp b/Lisp/OmniModulInsert.lsp index cd808cc..be08419 100644 --- a/Lisp/OmniModulInsert.lsp +++ b/Lisp/OmniModulInsert.lsp @@ -589,6 +589,10 @@ (if (tblsearch "BLOCK" bname) (setq bname (strcat bname "_" (itoa (fix (* (getvar "CDATE") 1000000))))) ) + ;; Objektfang aus: sonst kann _.INSERT den Einfuegepunkt pt + ;; auf ein Objekt umfangen (z.B. den Text bei pt) und die + ;; Hoehe verfaelschen. OSMODE via ssg-start gesichert. + (setvar "OSMODE" 0) (command "_.-BLOCK" bname (list 0.0 0.0 0.0) ss "") ;; Block einfuegen (ATTREQ/ATTDIA bereits auf 0) @@ -914,6 +918,11 @@ (setq pt (list (car pt) (cadr pt) (if (caddr pt) (caddr pt) 0.0))) ) + ;; Objektfang aus: sonst kann _.INSERT den (mit expliziter Z-Hoehe + ;; gesetzten) Einfuegepunkt auf ein Objekt umfangen -> falsche Hoehe + ;; (gleicher Bugtyp wie beim GF-Z-Versatz). OSMODE via ssg-start + ;; gesichert, ssg-end stellt es wieder her. + (setvar "OSMODE" 0) ;; Block einfuegen mit Drehwinkel aus Dialog (command "_.INSERT" dxf-pfad pt "" "" angleDeg) ;; INSERT vollstaendig abschliessen (Attribut-Prompts beenden)