[FIX] Koordinatensysteme Blocknamen vereinheitlicht bzw korrigiert: KSYS_EIN->KS_EIN, KSYS_AUS->KS_AUS

Lisp/Gefaellestrecke.lsp

@@ -141,9 +141,9 @@
     (setq ks-results '())
     (setq sub-entities (vlax-invoke block-obj 'Explode))
     (foreach sub-obj sub-entities
-      ;; KS-Blocknamen normalisieren: aeltere Bloecke nutzen KS_EIN/KS_AUS,
+      ;; KS-Blocknamen normalisieren: Standard KS_EIN/KS_AUS; historische
-      ;; Vario_Kurve-Bloecke KSYS_EIN/KSYS_AUS (inline, damit diese Fallback-
+      ;; Bestandsbloecke koennen noch KSYS_EIN/KSYS_AUS fuehren (inline, damit
-      ;; Kopie unabhaengig von vf_core.lsp funktioniert).
+      ;; diese Fallback-Kopie unabhaengig von vf_core.lsp funktioniert).
       (setq ks-ref
         (if (and (not (vlax-erased-p sub-obj))
                  (= (vla-get-ObjectName sub-obj) "AcDbBlockReference"))

Lisp/vf_core.lsp

@@ -106,8 +106,10 @@
     (t nil)))
 
 ;; Normalisiert die verschiedenen KS-Blocknamen auf "KS_EIN"/"KS_AUS".
-;; Die aelteren Bloecke (AS/ES/Gefaellebogen) verwenden KS_EIN/KS_AUS, die
+;; Standard ist KS_EIN/KS_AUS; historische Bestandsbloecke koennen noch
-;; Vario_Kurve-Bloecke KSYS_EIN/KSYS_AUS. Rueckgabe nil, wenn kein KS-Block.
+;; KSYS_EIN/KSYS_AUS fuehren (Vereinheitlichung via ILS_BLOCK_RENAME in
+;; block_rename.lsp). Diese Normalisierung bleibt als Sicherheitsnetz fuer
+;; solche Altzeichnungen. Rueckgabe nil, wenn kein KS-Block.
 (defun ks-normalize-name (nm)
   (cond
     ((or (= nm "KS_EIN") (= nm "KSYS_EIN")) "KS_EIN")

Lisp/vf_linienzug.lsp

@@ -893,8 +893,9 @@
 ;; Nicht-interaktiver Kern: Vario-Kurve mit gegebenem Winkel/Seite/Variante
 ;; einfuegen. Genutzt von der interaktiven Abfrage UND von den Pfad-Modi
 ;; (Winkel/Seite aus der Geometrie, Variante abgefragt). Rueckgabe: neuer Frame.
-;; Die Vario_Kurve-Bloecke fuehren KS_EIN/KS_AUS als KSYS_EIN/KSYS_AUS -
+;; Standard sind KS_EIN/KS_AUS; historische Bestandsbloecke koennen noch
-;; extract-ks-from-block-raw normalisiert das (siehe ks-normalize-name).
+;; KSYS_EIN/KSYS_AUS fuehren - extract-ks-from-block-raw normalisiert das
+;; (siehe ks-normalize-name).
 (defun vfl-insert-vario-kurve-block (frame kwinkel kseite kvariante /
                                       blockname hz flach-frame neuer-frame
                                       hz-gemessen hz-gesnappt)
@@ -924,8 +925,9 @@
 )
 
 ;; Vario-Kurve (horizontale Kurve, Neigung bleibt wie im aktuellen Frame).
-;; Die Vario_Kurve-Bloecke fuehren KS_EIN/KS_AUS als KSYS_EIN/KSYS_AUS -
+;; Standard sind KS_EIN/KS_AUS; historische Bestandsbloecke koennen noch
-;; extract-ks-from-block-raw normalisiert das (siehe ks-normalize-name).
+;; KSYS_EIN/KSYS_AUS fuehren - extract-ks-from-block-raw normalisiert das
+;; (siehe ks-normalize-name).
 ;; Interaktiv (i18n): Vario-Kurve-Winkel + Seite + Variante abfragen, dann Kern.
 (defun vfl-insert-vario-kurve (frame / kwinkel kseite kvariante antwort)
   (princ (ssg-text "vfl-variokurve-winkel-header"))