| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Excel datei öffnen im höhren Pfad (2028 mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 12. Mai. 2005 15:35 <-- editieren / zitieren --> Unities abgeben:
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 |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 12. Mai. 2005 15:57 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
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 |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 12. Mai. 2005 16:04 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 12. Mai. 2005 16:06 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
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 |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 12. Mai. 2005 16:44 <-- editieren / zitieren --> Unities abgeben:
@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 |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 17. Mai. 2005 08:18 <-- editieren / zitieren --> Unities abgeben:
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 |