[FIX] Omniflo TEF einfügen entlang Gerade funktioniert wieder; Omniflo Gerade ist aus dem Menü entfernt worden, da entweder über das Menü Fahrstrecke oder nur als Linie gezeichnet wird

Lisp/TEFInsert.lsp

@@ -3,7 +3,8 @@
 ;;
 ;; Zeichnet eine Linie zwischen zwei vom Benutzer gewaehlten Punkten
 ;; und reiht darauf 1000 mm lange TEF-Geradenelemente
-;; (data/omniflo/<DIM>/0_B10030.dxf, $INSBASE=Ursprung=Anfang des
+;; (data/omniflo/<DIM>/0_B10030.dxf - Dimensionsrueckfall wie bei
+;; omni:insert-dxf, $INSBASE=Ursprung=Anfang des
 ;; Elements, Ende bei lokal X=1000) aneinander.
 ;;
 ;; Ist die Linienlaenge kein exaktes Vielfaches von 1000 mm, wird fuer
@@ -34,13 +35,27 @@
 (if (null *tefl-blockname*) (setq *tefl-blockname* "0_B10030"))
 
 ;; ------------------------------------------------------------
-;; Pfad zur Element-DXF ermitteln (DXFM_OMNIFLO, wie omni:insert-dxf
-;; in OmniModulInsert.lsp).
+;; Pfad zur Element-DXF ermitteln - ueber denselben Resolver wie
+;; omni:insert-dxf (omni:omniflo-datei-finden, OmniModulInsert.lsp): .dxf
+;; bzw. .dwg im aktuellen Dimensionsordner, sonst Rueckfall auf den anderen
+;; (2D<->3D). Das Element liegt derzeit nur in data/omniflo/2D/, ein
+;; fester Pfad in DXFM_OMNIFLO (= .../3D) fand es deshalb nicht.
+;; Rueckgabe: vorhandener Dateipfad; ohne Fund der erwartete .dxf-Pfad (fuer
+;; die Fehlermeldung); nil nur, wenn DXFM_OMNIFLO fehlt.
 ;; ------------------------------------------------------------
-(defun tefl-dxf-pfad ( / omniflo-pfad)
+(defun tefl-dxf-pfad ( / omniflo-pfad gefunden)
   (setq omniflo-pfad (getenv "DXFM_OMNIFLO"))
   (if omniflo-pfad
-    (strcat (vl-string-translate "\\" "/" omniflo-pfad) "/" *tefl-blockname* ".dxf")
+    (progn
+      (if (null (car (atoms-family 1 '("OMNI:OMNIFLO-DATEI-FINDEN"))))
+        (ssg-ensure "OmniModulInsert")
+      )
+      (setq gefunden (omni:omniflo-datei-finden *tefl-blockname* omniflo-pfad))
+      (if gefunden
+        gefunden
+        (strcat (vl-string-translate "\\" "/" omniflo-pfad) "/" *tefl-blockname* ".dxf")
+      )
+    )
   )
 )