---

Servus

Die Datei Planverzeichnis.xls soll geöffnet werden.
Mit (command "_start" "planverzeichnis.xls") sucht er leider nur im aktuellen Verzeichnis und in den Supportpfaden.
Diese Datei liegt aber nicht in diesen Verzeichnissen.

Beispiel
Dort liegt die Planverzeichnis.xls
Projekt\Planverzeichnis.xls
Dort ist das aktuelle Verzeichnis (die Unterverzeichnisse hängen von dem Planungsstatus ab
Projekt\Planungstatus\Pläne\

Kann man übergeordneten Pfade durchsucht lasen und somit die Planverzeichnis.xls öffnen?

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

(setq akt_pfad (getvar "dwgprefix") liefert Dir den Pfad zur Zeichnung
(vl-string-position (ascii "\\") akt_pfad nil t) liefert die Position des letzen "\", damit sollte es möglich sein sich so nach und nach den pfad nach oben zu hangeln und dann dort nach der Exel-Datei zu suchen.

Viele Grüße
spider

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

THX spider_dd

Bin ein D**p da es viel leichter ist von Anfang zu gehn. Werde mal basteln 

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd. Versuchs mal damit:

(defun DT:FINDFILEX ( DATEINAME / PATH TEMP SEARCHLIST FOUND)
  (defun DT:SPLIT-PATH (PATH / LST TEMPPATH RESULT)
    (if (=(type PATH)'STR)
      (progn           
        (while (or(vl-string-search "\\" path)
                  (vl-string-search "/" path)
              ) 
          (setq path (vl-string-subst "\" \"" "\\" path))
          (setq path (vl-string-subst "\" \"" "/" path))
        )     
        (setq LST (read (strcat "(\"" path "\")")))
      )
    )
  )
 
  (if(setq PATH(DT:SPLIT-PATH (getvar "DWGprefix")))
    (progn
      (setq TEMP"")
      (repeat (length PATH)
        (setq TEMP (strcat TEMP(car PATH)"/"))
        (setq SEARCHLIST (cons TEMP SEARCHLIST))
        (setq PATH (cdr PATH))
      )
      (while (and SEARCHLIST(not FOUND))
        (setq FOUND(findfile (strcat (car SEARCHLIST) DATEINAME)))
        (setq SEARCHLIST(cdr SEARCHLIST))       
      ) 
    ) 
  )
  FOUND
)

Geht vom aktuellen Zeichnungsverzeichnis aus und sucht nacheinander die übergeordneten Verzeichnisse durch.
Aufruf dann
(DT:FINDFILEX "planverzeichnis.xls")
bzw.
(command "_start" (DT:FINDFILEX "planverzeichnis.xls"))

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@CADmium danke
Deins findet die XLS, bricht ab da ein Leerzeichen in dem Pfad ist. Das selbe bei meinem Versuch.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
(defun c:Planverzeichnis (/ pfad objekt)
  (setq pfad
(substr (getvar "dwgprefix") 1 (+ 1 (vl-string-position (ascii "\\") (getvar "dwgprefix") 13)))
      )
  (setq objekt
(strcat pfad "Planverzeichnis.xls")
)
  (command "_start" objekt)
  )
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

HabŽs jetzt irgendwie geschaftt

THX spider_dd und cadmium

(defun c:Planverzeichnis (/ pfad objekt)
  (setq pfad
(substr (getvar "dwgprefix") 1 (+ 1 (vl-string-position (ascii "\\") (getvar "dwgprefix") 13)))
      )
  (startapp "C://Programme//Microsoft Office//Office10//excel.exe" (vl-prin1-to-string (strcat pfad "Planverzeichnis.xls")))
  ); end Defun

vl-prin1-to-string hats gebracht

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP