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)