keys de/en für VF-linienzug wurde eingefügt, Export Sivas ruft vorab ZAEHLE_SEP_SCAN auf(Attribute aktualisieren), Menü neu laden notwendig

Lisp/SSG_LIB_Commands.lsp

@@ -27,7 +27,7 @@
 
 ;; 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)
+(defun ils-insert-sensor (fname / pfad pt oldattreq n res)
   (setq pfad (ils-sensor-pfad fname))
   (if (null pfad)
     (princ (strcat "\n>>> FEHLER: Blockdatei '" fname ".dwg' nicht gefunden."
@@ -36,8 +36,16 @@
       (setq oldattreq (getvar "ATTREQ"))
       (setvar "ATTREQ" 0)
       (setq n 0)
-      (while (setq pt (getpoint (strcat "\nEinfuegepunkt fuer " fname
-                                        " [ENTER=Ende]: ")))
+      ;; Punkt abfragen; ENTER liefert nil, ESC einen abgefangenen Fehler -
+      ;; beides beendet die Schleife sauber (ATTREQ wird wiederhergestellt).
+      (while
+        (progn
+          (setq res (vl-catch-all-apply
+                      'getpoint
+                      (list (strcat "\nEinfuegepunkt fuer " fname " [ENTER=Ende]: "))))
+          (and (not (vl-catch-all-error-p res)) res)
+        )
+        (setq pt res)
         (command "_.INSERT" pfad pt "" "" pause)
         (setq n (1+ n))
       )