[FIX] Koordinatensysteme Blocknamen vereinheitlicht bzw korrigiert: KSYS_EIN->KS_EIN, KSYS_AUS->KS_AUS
This commit is contained in:
@@ -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,
|
||||
;; Vario_Kurve-Bloecke KSYS_EIN/KSYS_AUS (inline, damit diese Fallback-
|
||||
;; Kopie unabhaengig von vf_core.lsp funktioniert).
|
||||
;; KS-Blocknamen normalisieren: Standard KS_EIN/KS_AUS; historische
|
||||
;; Bestandsbloecke koennen noch KSYS_EIN/KSYS_AUS fuehren (inline, damit
|
||||
;; 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"))
|
||||
|
||||
Reference in New Issue
Block a user