Merge branch 'master' of https://gitea.schoenenberger.de/m.stangl/dxfmakros

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
+;; Automatische Umgebungsvariablen Konfiguration
-    (alert "Umgebungsvariable DXFM_BLOCKS nicht gesetzt!\nBitte zuerst bin\\setenv.bat ausfuehren.")
+;; ============================================
-    (exit)
+
+;; 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)
+;; Prüfen ob Koordinaten-Bibliothek existiert
-(if (getenv "DXFM_DATA")
+(if (findfile koordinaten-lib)
-  (setq koordinaten-lib (strcat (getenv "DXFM_DATA") "/block_libraries/ils_vario_koordinaten.dwg"))
+  (princ (strcat "\n✅ Koordinaten-Bibliothek: " koordinaten-lib))
-  (progn
+  (princ (strcat "\n⚠️  Koordinaten-Bibliothek nicht gefunden: " koordinaten-lib))
-    (alert "Umgebungsvariable DXFM_DATA nicht gesetzt!\nBitte zuerst bin\\setenv.bat ausfuehren.")
-    (exit)
-  )
 )
+
+(princ "\n=== Umgebungsvariablen initialisiert ===\n")
 (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
 (setq modelspace (vla-get-ModelSpace doc))
 

README.md

@@ -15,7 +15,7 @@ Generiert komplette Vario-Foerderanlagen mit Vertikalboegen, Motor-/Spannstation
 
 Unterstuetzte Bogenwinkel: 3, 9, 12, 15, 24, 36, 48 Grad
 
-### ILSModulInsert.lsp - Kreisel Modul-Einfuegesystem (v4.0)
+### KreiselInsert.lsp - Kreisel Modul-Einfuegesystem (v4.0)
 
 Zeichnet ILS-Kreiselmodule mit konfigurierbarem Abstand und PIN-Typ.
 
@@ -31,7 +31,7 @@ dxfmakros/
 ├── Blocks/                # DWG-Bloecke (Motorstation, Spannstation, Vertikalboegen, etc.)
 ├── Lisp/                  # AutoLISP-Makros
 │   ├── VarioFoerderer.lsp
-│   └── ILSModulInsert.lsp
+│   └── KreiselInsert.lsp
 ├── bin/                   # Hilfs-Skripte
 ├── result/                # Ergebnisse / DXF-Exporte (nicht im Git)
 ├── LICENSE