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/count_sep_scan.lsp

@@ -6,11 +6,14 @@
 ;;; Gefaellestrecke) und schreibt die Anzahlen in die Attribute
 ;;; des jeweiligen ILS-Blocks. Anschliessend QSAVE.
 ;;;
-;;; Zuordnung eines Sensors zu einem ILS-Block:
-;;;   - Der geometrische Mittelpunkt (X/Y) des Sensors (Zentrum
-;;;     seiner eigenen Bounding-Box, unabhaengig vom $INSBASE)
-;;;     muss in der achsparallelen Bounding-Box des ILS-Blocks
-;;;     liegen (Z wird ignoriert).
+;;; Zuordnung eines Sensors zu einem ILS-Block (Z wird ignoriert):
+;;;   - Scanner: der Einfuegepunkt (X/Y) muss in der Bounding-Box
+;;;     des ILS-Blocks liegen. Die 3D-Geometrie des Scanners kann
+;;;     weit vom Einfuegepunkt entfernt sein, daher zaehlt hier der
+;;;     Einfuegepunkt (dort klickt der Benutzer auf den Block).
+;;;   - Separator: der geometrische Mittelpunkt (Zentrum der eigenen
+;;;     Bounding-Box, unabhaengig vom $INSBASE) muss in der
+;;;     Bounding-Box des ILS-Blocks liegen.
 ;;;   - Liegt der Punkt in mehreren Boxen (Ueberlappung), wird
 ;;;     der ILS-Block mit dem naechstgelegenen Box-Zentrum gewaehlt.
 ;;;   - Ein optionaler Toleranzrand (*senstol*) vergroessert die
@@ -112,17 +115,23 @@
 )
 
 ;;; ------------------------------------------------------------
-;;; Referenzpunkt eines Sensors: geometrischer Mittelpunkt seiner
-;;; eigenen Bounding-Box (X/Y). Unabhaengig vom $INSBASE der
-;;; Sensor-DWG. Fallback auf den Einfuegepunkt, falls die Box
-;;; nicht ermittelbar ist.
+;;; Referenzpunkt eines Sensors (X/Y), je nach Typ:
+;;;   - Scanner   : Einfuegepunkt (DXF-Gruppe 10).
+;;;   - Separator : geometrischer Mittelpunkt seiner eigenen
+;;;                 Bounding-Box (unabhaengig vom $INSBASE),
+;;;                 Fallback auf den Einfuegepunkt.
 ;;; ------------------------------------------------------------
-(defun cs-sensor-point (ent ed / bb)
-  (setq bb (cs-bbox ent))
-  (if bb
-    (list (/ (+ (nth 0 bb) (nth 2 bb)) 2.0)
-          (/ (+ (nth 1 bb) (nth 3 bb)) 2.0))
+(defun cs-sensor-point (ent ed kind / bb)
+  (if (eq kind 'scanner)
     (cdr (assoc 10 ed))
+    (progn
+      (setq bb (cs-bbox ent))
+      (if bb
+        (list (/ (+ (nth 0 bb) (nth 2 bb)) 2.0)
+              (/ (+ (nth 1 bb) (nth 3 bb)) 2.0))
+        (cdr (assoc 10 ed))
+      )
+    )
   )
 )
 
@@ -271,7 +280,7 @@
             (setq kind (cs-sensor-kind nm))
             (if kind
               (progn
-                (setq pt (cs-sensor-point ent ed))
+                (setq pt (cs-sensor-point ent ed kind))
                 (if (eq kind 'scanner)
                   (setq scanpts (cons pt scanpts))
                   (setq seppts  (cons pt seppts)))))