Update der Attribute Höhe und Drehung vor Aufruf der Exports durchgeführt

Lisp/export.lsp

@@ -108,6 +108,31 @@
 )
 
 
+;; --- HOEHE/DREHUNG aller Omniflo-Elemente still aktualisieren ---
+;; Wird automatisch vor jedem Export aufgerufen.
+(defun omni:update-all-attribs ( / ss i ename ed bname teileart)
+  (setq ss (ssget "X" (list (cons 0 "INSERT"))))
+  (if ss
+    (progn
+      (setq i 0)
+      (while (setq ename (ssname ss i))
+        (setq ed (entget ename))
+        (setq bname (cdr (assoc 2 ed)))
+        (setq teileart (csv:get-attrib ename "TEILEART"))
+        (if (or teileart
+                (wcmatch (strcase bname) "AP110*,AP_110*"))
+          (progn
+            (omni:set-hoehe-attrib ename)
+            (omni:set-drehung-attrib ename)
+          )
+        )
+        (setq i (1+ i))
+      )
+    )
+  )
+)
+
+
 ;; --- Gemeinsame Export-Funktion ---
 ;; Sammelt relevante Bloecke, schreibt JSON, ruft Python auf.
 ;; label   = Anzeigename (z.B. "EXPORTCSV")
@@ -115,6 +140,9 @@
 ;; csv-name = Ergebnis-CSV-Name (z.B. "export.csv")
 (defun csv:run-export (label py-name csv-name / ss i ename fh out-pfad
                         py-skript ergebnis-pfad cmd first-block count)
+  ;; Vor dem Export HOEHE/DREHUNG aller Omniflo-Elemente aktualisieren
+  (princ (strcat "\n[" label "] Aktualisiere Hoehe/Drehung..."))
+  (omni:update-all-attribs)
   (princ (strcat "\n[" label "] Sammle relevante Bloecke..."))
 
   (setq ss (csv:collect-export-blocks))
@@ -338,6 +366,9 @@
                          len-ap110 len-ap60 laenge-str
                          fh out-pfad lines subtyp merkmale)
 
+  ;; Vor dem Export HOEHE/DREHUNG aller Omniflo-Elemente aktualisieren
+  (princ "\n[OMNI_EXPORT] Aktualisiere Hoehe/Drehung...")
+  (omni:update-all-attribs)
   (princ "\n[OMNI_EXPORT] Sammle Omniflo-Elemente...")
   (setq ss-all (ssget "X" (list (cons 0 "INSERT"))))
   (if (null ss-all)