Menueeintraege Scanner/Separator einfuegen + Zaehlbefehl im Zusatzmodul; Einfuege-Befehle ILS_SCANNER_INSERT/ILS_SEPARATOR_INSTERT

Lisp/SSG_LIB_Commands.lsp

@@ -15,6 +15,47 @@
   (princ)
 )
 
+;; --- ILS / Zusatzmodul: Sensoren (Scanner / Separator) einfuegen ---
+
+;; Ermittelt den Pfad zu einer Sensor-Blockdatei. Die Sensor-Bloecke
+;; werden fest aus data/ils/3D geladen (unabhaengig von der
+;; 2D/3D-Umschaltung).
+(defun ils-sensor-pfad (fname / p)
+  (setq p (strcat (getenv "DXFMAKRO") "\\data\\ils\\3D\\" fname ".dwg"))
+  (if (findfile p) p nil)
+)
+
+;; Fuegt einen Sensor-Block wiederholt ein, bis der Benutzer mit
+;; ENTER oder ESC abbricht. Rotation je Einfuegung interaktiv.
+(defun ils-insert-sensor (fname / pfad pt oldattreq n)
+  (setq pfad (ils-sensor-pfad fname))
+  (if (null pfad)
+    (princ (strcat "\n>>> FEHLER: Blockdatei '" fname ".dwg' nicht gefunden."
+                   " (in data/ils/3D pruefen)"))
+    (progn
+      (setq oldattreq (getvar "ATTREQ"))
+      (setvar "ATTREQ" 0)
+      (setq n 0)
+      (while (setq pt (getpoint (strcat "\nEinfuegepunkt fuer " fname
+                                        " [ENTER=Ende]: ")))
+        (command "_.INSERT" pfad pt "" "" pause)
+        (setq n (1+ n))
+      )
+      (setvar "ATTREQ" oldattreq)
+      (princ (strcat "\n>>> " (itoa n) " x " fname " eingefuegt."))
+    )
+  )
+  (princ)
+)
+
+(defun c:ILS_SCANNER_INSERT ()
+  (ils-insert-sensor "Scanner")
+)
+
+(defun c:ILS_SEPARATOR_INSERT ()
+  (ils-insert-sensor "Separator_SP")
+)
+
 ;; --- ILS / Foerderer ---
 (defun c:ILS_TEF_Strecke ()
   (princ "\n[DUMMY] ILS_TEF_Strecke aufgerufen")