Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros

# Conflicts:
#	Lisp/KreiselInsert.lsp
#	lib/export_sivas.py

Lisp/KreiselInsert.lsp

@@ -71,19 +71,25 @@
 (setq *kreisel-default-hoehe*  (ssg-cfg-or "kreisel" "default_hoehe" 2000.0))
 
 ;; Attribut-Definitionen: ((TAG DEFAULT) ...)
+;; Anzeige-/Attributreihenfolge im Block (ID zuerst, dann Bezeichnung,
+;; Artinr. fest 6200, Montage-/Hoehendaten, dann Ausstattung).
+;; NUMMER steht am Ende (wird intern fuer Nummerierung/Blockname
+;; benoetigt; Entfernen erfordert Refactor der Nummernvergabe).
 (setq *kreisel-attrib-defs*
-  '(("Bezeichnung"    "")
-    ("DREHRICHTUNG"     "UZS")
-    ("ANZAHL_SEPARATOR" "2")
+  '(("ID"               "")
+    ("Bezeichnung"      "")
+    ("Artinr."          "6200")
+    ("MONTAGEHOEHE_m"   "0.000")
+    ("HOEHE"            "0")
     ("KREISELART"       "STANDARD")
+    ("ABSTAND"          "2300")
+    ("ANZAHL_SEPARATOR" "2")
     ("ANZAHL_SCANNER"   "0")
-    ("N_RAMPEN"         "0")
-    ("DREHUNG"       "0")
-    ("ABSTAND"       "2300")
-    ("NUMMER"        "0")
-    ("HOEHE"         "0")
+    ("ANZAHL_RAMPEN"    "0")
     ("GERUEST_EINZELMODUL" "0")
-    ("ID"            ""))
+    ("DREHRICHTUNG"     "UZS")
+    ("DREHUNG"          "0")
+    ("NUMMER"           "0"))
 )
 
 ;; Eckrad-Einstellungen
@@ -354,6 +360,11 @@
   (setq attribs (subst (cons "HOEHE" block-hoehe)
                         (assoc "HOEHE" attribs) attribs))
 
+  ;; Montagehoehe in Metern ableiten (Default = HOEHE / 1000, mm->m).
+  ;; Bleibt ein normales Attribut und kann vom Benutzer geaendert werden.
+  (setq attribs (subst (cons "MONTAGEHOEHE_m" (rtos (/ z-hoehe 1000.0) 2 3))
+                        (assoc "MONTAGEHOEHE_m" attribs) attribs))
+
   ;; Abgeleitete Masse
   (setq radius (/ *kreisel-durchmesser* 2.0))
   (setq pin-y  (- radius *kreisel-pin-abstand*))