Höhe, Drehung und Id in allen Omniflo Elementen auch setzen

Lisp/OmniModulInsert.lsp

@@ -982,6 +982,12 @@
               ;; Drehwinkel aus Dialog verwenden
               (setq angleDeg (if drehung (atof drehung) 0.0))
 
+              ;; Hoehe als Z-Koordinate auf den Einfuegepunkt anwenden
+              (if (and hoehe (/= hoehe ""))
+                (setq pt (list (car pt) (cadr pt) (atof hoehe)))
+                (setq pt (list (car pt) (cadr pt) (if (caddr pt) (caddr pt) 0.0)))
+              )
+
               ;; Block einfuegen mit Drehwinkel aus Dialog
               (command "_.INSERT" dxf-pfad pt "" "" angleDeg)
               ;; INSERT vollstaendig abschliessen (Attribut-Prompts beenden)
@@ -1317,6 +1323,12 @@
   (command "_.ERASE" ent "")
 
   (setq angleDeg (if new-drehung (atof new-drehung) 0.0))
+
+  ;; Hoehe als Z-Koordinate auf den Einfuegepunkt anwenden
+  (if (and new-hoehe (/= new-hoehe ""))
+    (setq basePoint (list (car basePoint) (cadr basePoint) (atof new-hoehe)))
+  )
+
   (command "_.INSERT" dxf-pfad basePoint "" "" angleDeg)
 
   (setq blockEnt (entlast))