[FIX] Attribute der ILS Blöcke für 2d und 3d vereinheitlicht

Lisp/collect_attributes.lsp

@@ -6,9 +6,8 @@
 ;; allocations.json (siehe addattribute.lsp):
 ;;   {"Blockname": {"TAG1": "Wert1", "TAG2": "Wert2", ...}, ...}
 ;;
-;; Wird zunaechst fuer data/ils/2D und data/ils/3D ausgefuehrt -
-;; je Verzeichnis entsteht eine eigene allocations_collected.json,
-;; direkt im jeweiligen Verzeichnis abgelegt.
+;; Wird fuer data/ils ausgefuehrt - es entsteht eine
+;; allocations_collected.json direkt in diesem Verzeichnis.
 ;;
 ;; Voraussetzung: DXFM_DATA ist gesetzt (siehe bin/setenv.bat).
 ;;
@@ -215,9 +214,9 @@
 )
 
 ;; ------------------------------------------------------------
-;; Hauptbefehl - verarbeitet DXFM_DATA/ils/2D und DXFM_DATA/ils/3D
+;; Hauptbefehl - verarbeitet DXFM_DATA/ils
 ;; ------------------------------------------------------------
-(defun c:ILS_ATTR_COLLECT ( / data-dir basis-dir subverz dwg-dir json-pfad)
+(defun c:ILS_ATTR_COLLECT ( / data-dir dwg-dir json-pfad)
   (setq data-dir (getenv "DXFM_DATA"))
   (if (not data-dir)
     (progn
@@ -226,16 +225,10 @@
     )
   )
   (setq data-dir  (vl-string-translate "\\" "/" data-dir)
-        basis-dir (strcat data-dir "/ils")
-  )
-
-  (foreach subverz '("2D" "3D")
-    (setq dwg-dir   (strcat basis-dir "/" subverz)
-          json-pfad (strcat dwg-dir "/allocations_collected.json")
-    )
-    (princ (strcat "\n[ATTR-COLLECT] === " subverz " ==="))
-    (cac-collect-directory dwg-dir json-pfad)
+        dwg-dir   (strcat data-dir "/ils")
+        json-pfad (strcat dwg-dir "/allocations_collected.json")
   )
+  (cac-collect-directory dwg-dir json-pfad)
   (princ)
 )