Tipp: ordner dialog (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Tipp: ordner dialog (1676 mal gelesen)
fuchsi Mitglied Programmierer c#.net Datawarehouse Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit	erstellt am: 14. Jan. 2004 10:28 <-- editieren / zitieren --> Unities abgeben: oft benötigt man keinen dateiauswahldialog, sondern nur eine auswahl eines ordners, da gibts in lisp keinen standard befehl ich mach das so (defun BrowseForFolder ( text / ret y ) (setq y (vlax-get-or-create-object "shell.application")) (if (setq ret (vlax-invoke y "BrowseForFolder" 0 text 1)) (setq ret (vlax-get (vlax-get ret "Self") "Path"))) (vlax-release-object y) ret ) der aufruf lautet dann so (BrowseForFolder "bitte geben sie einen ordner an") rückgabe wert ist entweder der gewählte ordner oder NIL bei abbruch ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator Beiträge: 2490 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)	erstellt am: 24. Mrz. 2006 12:24 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi Hi Fuchsi, kann man "BrowseForFolder" auch mit einer Vorgabe für den Startordner füttern, damit im Auswahldialog dieser bereits ausgewählt ist? Es ist ziemlich blöde wenn ich irgendwo 'nen Unterordner im Netz selekiteren will aber mich erst vom Arbeitsplatz ganz dort hinklicken muss. Ich habe bereits ein wenig rumgespielt, bin aber zu keinem Ergebnis gekommen :-( ... ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 24. Mrz. 2006 12:30 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi guck mal hier unter shell->Methods->browsefor Folder (defun BrowseForFolder ( text Rootfolder / ret y ) (setq y (vlax-get-or-create-object "shell.application")) (if (setq ret (vlax-invoke y "BrowseForFolder" 0 text 1 Rootfolder)) (setq ret (vlax-get (vlax-get ret "Self") "Path"))) (vlax-release-object y) ret ) und Aufruf z.B. (BrowseForFolder "Win" "c:\\WINDOWS") .. man kommt dann aber nicht mehr in übergeordnete Ordner ------------------ - 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
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator Beiträge: 2490 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)	erstellt am: 24. Mrz. 2006 12:36 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi @cadmium Subber Burschi ;-) :staub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
mkl-cad Mitglied Technischer Zeichner Beiträge: 378 Registriert: 23.07.2003 ACAD 2002 Express Tools 1-9 Architektural Desktop Windows XP Server Windows 2003 3 GHz Rechner 1 GB RAM 80 GB Festplatte ATI FireGL V3100 2 17" Flachbildschirme	erstellt am: 27. Mrz. 2006 12:32 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi Hallo CADmium echt ne prima Sache. Hat nur einen winzigen Haken. Wenn man einen Ordner angibt kann man keine Ebene zurück. z.B von c:\\windows zurück nach c:\\ oder zum Arbeitsplatz. ------------------ Martin Viele Grüße aus dem schönen Münsterland! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator Beiträge: 2490 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)	erstellt am: 27. Mrz. 2006 13:20 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi Zitat: Original erstellt von mkl-cad: Hat nur einen winzigen Haken. Wenn man einen Ordner angibt kann man keine Ebene zurück Des einen Leid, des anderen Freud'... ;-) Für MICH ist das Verhalten genau SO richtig und WICHTIG. Also Ansichtssache. ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 27. Mrz. 2006 14:00 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi Zitat: Original erstellt von mkl-cad: Hallo CADmium echt ne prima Sache. Hat nur einen winzigen Haken. Wenn man einen Ordner angibt kann man keine Ebene zurück. z.B von c:\\windows zurück nach c:\\ oder zum Arbeitsplatz. ...auf den "Mangel" hatte ich in meinem Post hingewiesen ... ------------------ - 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
mkl-cad Mitglied Technischer Zeichner Beiträge: 378 Registriert: 23.07.2003 ACAD 2002 Express Tools 1-9 Architektural Desktop Windows XP Server Windows 2003 3 GHz Rechner 1 GB RAM 80 GB Festplatte ATI FireGL V3100 2 17" Flachbildschirme	erstellt am: 27. Mrz. 2006 15:12 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi OK, OK Hatte ich überlesen, ist dennoch ne prima Sache! ------------------ Martin Viele Grüße aus dem schönen Münsterland! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)