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))

cfg/attradd.cfg

@@ -46,6 +46,8 @@ ID        = ""
 RADIUS    = Radius
 WINKEL    = KurvenWinkel
 SIVASNR_TEF = SivasnrTEF
+HOEHE     = ""
+DREHUNG   = ""
 
 
 [weiche]
@@ -59,4 +61,6 @@ WEICHENTYP = WeichenTyp
 WINKEL    = KurvenWinkel
 RICHTUNG  = KurvenRichtung
 SIVASNR_TEF = SivasnrTEF
+HOEHE     = ""
+DREHUNG   = ""