[ADD] Eingang-/Ausgang-Symbole ueber BTMT-Stationen + Drehung im CSV-Export gerundet

ILS_EINGANG_INSERT/ILS_AUSGANG_INSERT (Menue SPS > Connections) setzen
das Eingang-/Ausgang-Symbol automatisch lotrecht ueber eine gewaehlte
BTMT-Beladung/-Entladung-Instanz statt per freiem Einfuegepunkt.
Blockdateien Eingang_2D/3D.dwg und Ausgang_2D/3D.dwg ins Flach-Schema
von data/ils kopiert (Quellen in data/ils/2D|3D bleiben unangetastet).
Mubea-Testdaten um ein Eingang-Symbol ueber der Beladung und je ein
Ausgang-Symbol ueber beiden Entladungen erweitert.

Zusaetzlich: BTMT-Drehung im CSV-Export (export_csv.py) auf ganze
Grad gerundet (90/180/... statt z.B. 90.4078), da Kommastellen dort
keine Bedeutung haben.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

Lisp/SSG_LIB_Commands.lsp

@@ -103,6 +103,81 @@
   (ils-insert-station *ils-btmt-entladung-block*)
 )
 
+;; --- ILS / SPS: Eingang-/Ausgang-Symbol ueber einer BTMT-Station ---
+;;
+;; Markiert den Materialfluss-Ein-/Ausgang der Anlage (Block Eingang/Ausgang,
+;; data/ils/Eingang_<DIM>.dwg bzw. Ausgang_<DIM>.dwg). Anders als
+;; ils-insert-station (freie Punktwahl) wird hier eine bestehende
+;; BTMT-Beladung/SC_Entladung-Instanz gewaehlt und das Symbol automatisch
+;; lotrecht darueber gesetzt (gleiche X/Y, Z-Versatz *ils-einausgang-z-offset*)
+;; - der Anwender pickt die Station, nicht den Einfuegepunkt.
+(if (null *ils-einausgang-z-offset*) (setq *ils-einausgang-z-offset* 800.0))
+
+;; Waehlt eine BTMT-Beladung/SC_Entladung-Instanz aus; liefert deren
+;; Einfuegepunkt oder nil bei Abbruch/falschem Block.
+(defun ils-pick-btmt-station ( / sel ent bname)
+  (setq sel (entsel (ssg-text "ils-einausgang-station-waehlen")))
+  (if (null sel)
+    nil
+    (progn
+      (setq ent   (car sel)
+            bname (cdr (assoc 2 (entget ent))))
+      (if (not (wcmatch (strcase bname)
+                 (strcat (strcase *ils-btmt-beladung-block*) "*,"
+                         (strcase *ils-btmt-entladung-block*) "*")))
+        (progn (alert (ssg-textf "ils-einausgang-kein-btmt" (list bname))) nil)
+        (cdr (assoc 10 (entget ent)))
+      )
+    )
+  )
+)
+
+;; Fuegt rohname (Eingang/Ausgang) lotrecht ueber einer gewaehlten
+;; BTMT-Station ein; wiederholbar bis ENTER/ESC. Rotation wie die uebrigen
+;; ILS-Stationen interaktiv am Cursor (pause).
+(defun ils-insert-einausgang (rohname / eff pt-station pt-sym n ent attribs)
+  (ssg-start (strcat "ILS " rohname) '(("OSMODE") ("ATTREQ") ("ATTDIA")))
+  (setq eff (ssg-ils-block-laden rohname))
+  (if (null eff)
+    (princ (ssg-textf "ils-station-fehler-blockdatei" (list (ssg-ils-blockname rohname))))
+    (progn
+      (setvar "ATTREQ" 0)
+      (setvar "ATTDIA" 0)
+      (setq n 0)
+      (while (setq pt-station (ils-pick-btmt-station))
+        (setq pt-sym (list (car pt-station) (cadr pt-station)
+                           (+ (caddr pt-station) *ils-einausgang-z-offset*)))
+        (command "_.INSERT" eff pt-sym "" "" pause)
+        (if (> (getvar "CMDACTIVE") 0) (command))
+        (if (> (getvar "CMDACTIVE") 0) (command))
+        (setq ent (entlast))
+        (if (and ent (= (cdr (assoc 0 (entget ent))) "INSERT"))
+          (progn
+            (setq attribs (ssg-attrib-read ent))
+            (ils-block-layer-setzen ent eff attribs)
+            (if (and (assoc "ID" attribs)
+                     (car (atoms-family 1 '("SSG-ID-GENERATE"))))
+              (ssg-id-generate ent)
+            )
+            (setq n (1+ n))
+          )
+        )
+      )
+      (princ (ssg-textf "ils-station-fertig" (list (itoa n) eff)))
+    )
+  )
+  (ssg-end)
+  (princ)
+)
+
+(defun c:ILS_EINGANG_INSERT ()
+  (ils-insert-einausgang "Eingang")
+)
+
+(defun c:ILS_AUSGANG_INSERT ()
+  (ils-insert-einausgang "Ausgang")
+)
+
 ;; --- ILS / Zusatzmodul: Sensoren (Scanner / Separator) einfuegen ---
 
 ;; Ermittelt den Pfad zu einer Sensor-Blockdatei. Folgt der 2D/3D-Umschaltung