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

Lisp/addattribute.lsp

@@ -3,11 +3,9 @@
 ;; Synchronisiert ATTDEF-Attribute in den ILS-Block-DWGs mit den
 ;; Werten aus allocations.json.
 ;;
-;; Es wird zwischen data/ils/2D und data/ils/3D unterschieden: nach
-;; Auswahl des Verzeichnisses wird die dortige allocations.json
-;; gelesen (data/ils/<2D|3D>/allocations.json) und anschliessend
-;; werden ausschliesslich die DWGs in genau diesem Verzeichnis
-;; bearbeitet.
+;; Es wird die allocations.json aus data/ils gelesen
+;; (data/ils/allocations.json) und anschliessend werden
+;; ausschliesslich die DWGs in genau diesem Verzeichnis bearbeitet.
 ;;
 ;; Ablauf je JSON-Eintrag  "Blockname": {"TAG": "Wert", ...}:
 ;;   - <Blockname>.dwg im selben Verzeichnis wie die JSON oeffnen
@@ -28,7 +26,7 @@
 ;; Voraussetzung: DXFM_DATA ist gesetzt (siehe bin/setenv.bat).
 ;;
 ;; Aufruf in BricsCAD:
-;;   (load "C:/.../data/ils/2D/addattribute.lisp")
+;;   (load "C:/.../Lisp/addattribute.lsp")
 ;;   ILS_ATTR_SYNC
 ;; ============================================================
 
@@ -157,7 +155,7 @@
 ;; ------------------------------------------------------------
 ;; Hauptbefehl
 ;; ------------------------------------------------------------
-(defun c:ILS_ATTR_SYNC ( / data-dir json-pfad dwg-dir dwg-unterverz daten orig-doc anzahl-aktualisiert
+(defun c:ILS_ATTR_SYNC ( / data-dir json-pfad dwg-dir daten orig-doc anzahl-aktualisiert
                           anzahl-unveraendert anzahl-fehler anzahl-fehlt eintrag blockname attribs
                           dwg-pfad bereits-offen fehler fehlende-liste name)
   (setq data-dir (getenv "DXFM_DATA"))
@@ -169,10 +167,7 @@
   )
   (setq data-dir (vl-string-translate "\\" "/" data-dir))
 
-  (initget "2D 3D")
-  (setq dwg-unterverz (getkword "\nDWG-Verzeichnis waehlen [2D/3D] <2D>: "))
-  (if (not dwg-unterverz) (setq dwg-unterverz "2D"))
-  (setq dwg-dir   (strcat data-dir "/ils/" dwg-unterverz)
+  (setq dwg-dir   (strcat data-dir "/ils")
         json-pfad (strcat dwg-dir "/allocations.json")
   )
   (if (not (findfile json-pfad))