AN8 und SP8 für Kreisel als Einzelne DWG Datei gespeichert.

Lisp/VarioFoerderer.lsp

@@ -7,24 +7,50 @@
 (vl-load-com)
 
 ;; ============================================================
-;; TEIL 1: GLOBALE EINSTELLUNGEN
+;; BLOCK PATH INITIALIZATION
 ;; ============================================================
-(if (getenv "DXFM_BLOCKS")
-  (setq modul-pfad (strcat (getenv "DXFM_BLOCKS") "/"))
-  (progn
-    (alert "Umgebungsvariable DXFM_BLOCKS nicht gesetzt!\nBitte zuerst bin\\setenv.bat ausfuehren.")
-    (exit)
+
+;; ============================================
+;; Automatische Umgebungsvariablen Konfiguration
+;; ============================================
+
+;; Basis-Pfad (an Ihre Struktur anpassen)
+(setq *dxfm-base* "C:\\Users\\y.wang\\Documents\\dxfmakros\\")
+
+;; Funktion zum sicheren Setzen von Umgebungsvariablen
+(defun ensure-env-var (varName defaultPath)
+  (if (null (getenv varName))
+    (progn
+      (setenv varName defaultPath)
+      (princ (strcat "\n✅ " varName " gesetzt: " defaultPath))
+    )
+    (princ (strcat "\n📌 " varName " bereits gesetzt: " (getenv varName)))
+  )
+  (getenv varName)
+)
+
+;; Umgebungsvariablen sicherstellen
+(ensure-env-var "DXFM_BLOCKS" (strcat *dxfm-base* "Blocks\\"))
+(ensure-env-var "DXFM_DATA" (strcat *dxfm-base* "Data\\"))
+
+;; Block-Pfad initialisieren (für draw-module)
+(setq *block-pfad* (getenv "DXFM_BLOCKS"))
+
+;; Koordinaten-Bibliothek initialisieren (mit Fallback)
+(setq koordinaten-lib 
+  (if (getenv "DXFM_DATA")
+    (strcat (getenv "DXFM_DATA") "block_libraries\\ils_vario_koordinaten.dwg")
+    (strcat *dxfm-base* "Data\\block_libraries\\ils_vario_koordinaten.dwg")
   )
 )
 
-;; Pfad zur Koordinaten-Bibliothek (neue Bogen-Bloecke mit KS_EIN/KS_AUS)
-(if (getenv "DXFM_DATA")
-  (setq koordinaten-lib (strcat (getenv "DXFM_DATA") "/block_libraries/ils_vario_koordinaten.dwg"))
-  (progn
-    (alert "Umgebungsvariable DXFM_DATA nicht gesetzt!\nBitte zuerst bin\\setenv.bat ausfuehren.")
-    (exit)
-  )
+;; Prüfen ob Koordinaten-Bibliothek existiert
+(if (findfile koordinaten-lib)
+  (princ (strcat "\n✅ Koordinaten-Bibliothek: " koordinaten-lib))
+  (princ (strcat "\n⚠️  Koordinaten-Bibliothek nicht gefunden: " koordinaten-lib))
 )
+
+(princ "\n=== Umgebungsvariablen initialisiert ===\n")
 (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
 (setq modelspace (vla-get-ModelSpace doc))