[FIX] Koordinatensysteme Blocknamen vereinheitlicht bzw korrigiert: KSYS_EIN->KS_EIN, KSYS_AUS->KS_AUS
This commit is contained in:
+4
-2
@@ -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
|
||||
;; Vario_Kurve-Bloecke KSYS_EIN/KSYS_AUS. Rueckgabe nil, wenn kein KS-Block.
|
||||
;; Standard ist KS_EIN/KS_AUS; historische Bestandsbloecke koennen noch
|
||||
;; 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")
|
||||
|
||||
Reference in New Issue
Block a user