Fix der Gefällestrecke: Nimmt auch Fliesskommazahlen für den Winkel an. An Mubea Layout gemerkt. Funktionen zur Einfügung vno Geraden dazu

Lisp/Gefaellestrecke.lsp

@@ -1873,7 +1873,7 @@
   ;; Bestaetigung - entfaellt, wenn bereits per Dialog-OK bestaetigt (Modus 1)
   (setq antwort (if dialog-bestaetigt "1" (getstring (ssg-text "gf-prompt-einfuegen"))))
   (if (not (= antwort "2"))
-    (gefaellestrecke-einfuegen L_stau (fix winkel) startpunkt as-seite es-seite hz-winkel deltaL as-winkel es-winkel
+    (gefaellestrecke-einfuegen L_stau winkel startpunkt as-seite es-seite hz-winkel deltaL as-winkel es-winkel
       geruest-einzelmodul geruest-typ)
     (princ (ssg-text "gf-status-abgebrochen"))
   )
@@ -1899,7 +1899,7 @@
       nil
     )
     (gefaellestrecke-einfuegen
-      L_stau (fix winkel) startpunkt as-seite es-seite hz-winkel deltaL as-winkel es-winkel
+      L_stau winkel startpunkt as-seite es-seite hz-winkel deltaL as-winkel es-winkel
       geruest-einzelmodul geruest-typ)
   )
 )

Lisp/OmniModulInsert.lsp

@@ -499,12 +499,25 @@
 ;; laengemax = Maximale Fahrstreckenlaenge in mm
 ;; --- Quell-Attribute einer Aluprofil-.dwg lesen (mit ID-Feld) ---
 ;; blockname = Profiltyp (z.B. "AP60", "AP110", "APG110")
+;;
+;; Seit dem ILS-Flach-Refactor tragen die Quell-Bloecke das Dimensionssuffix
+;; _2D/_3D und liegen flach unter data/ils/ (z.B. AP60_3D.dwg). Die Aufloesung
+;; laeuft daher ueber den zentralen Resolver ssg-ils-block-datei (mit
+;; automatischem 3D-Fallback) statt ueber *block-path* + Name. Nur wenn der
+;; Resolver nichts findet, wird als Rueckfall der alte Pfad (*block-path* +
+;; Name ohne Suffix) versucht.
 ;; Rueckgabe: Attribut-Alist (mit angehaengtem leeren "ID"-Feld) oder nil,
-;;            wenn *block-path* fehlt oder die Quell-.dwg keine Attribute hat.
-(defun omni:read-src-attribs (blockname / srcAttribs)
-  (if (and (boundp '*block-path*) *block-path*)
+;;            wenn keine Quell-.dwg gefunden wird bzw. sie keine Attribute hat.
+(defun omni:read-src-attribs (blockname / datei srcAttribs)
+  (if (car (atoms-family 1 '("SSG-ILS-BLOCK-DATEI")))
+    (setq datei (ssg-ils-block-datei blockname))
+  )
+  (if (and (null datei) (boundp '*block-path*) *block-path*)
+    (setq datei (strcat *block-path* blockname ".dwg"))
+  )
+  (if datei
     (progn
-      (setq srcAttribs (ssg-attrib-read-dwg (strcat *block-path* blockname ".dwg")))
+      (setq srcAttribs (ssg-attrib-read-dwg datei))
       (if (and srcAttribs (not (assoc "ID" srcAttribs)))
         (setq srcAttribs (append srcAttribs (list (cons "ID" ""))))
       )