Dateien im Verzeichniss (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: Dateien im Verzeichniss (737 mal gelesen)
Ex-Mitglied
cadffm Moderator 良い精神 Beiträge: 21533 Registriert: 03.06.2002 Alles	erstellt am: 02. Jan. 2007 16:42 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007 Habe im Forum mal die Suchfunktion verwendet : wenn die Seite wieder läuft bei CADwiesel.de / Bauklötze / oder so ähnlich.. Evtl findest du ja noch andere Ansätze im Forum über die Suche !? (sorry das die Antwort nicht gehaltvoller ist ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Niggemann Mitglied Beiträge: 159 Registriert: 31.10.2003 Win 98 Se, ACAD 2004, XP Prof, ACAD 2004 und ACAD 2010	erstellt am: 02. Jan. 2007 18:05 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007 Hallo Rabbit 007, das Tool müßte Mehrfachauswahl heisen, ist gut gemacht und sehr nützlich. mfg Niggemann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 02. Jan. 2007 18:23 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007 kannst auch das mal testen : (defun DT:GETFILES(INITIALDIR FILTERSTRING / DLG FILES) (or(and(=(type INITIALDIR)'STR) (vl-file-directory-p INITIALDIR) ) (setq INITIALDIR(getvar "dwgprefix")) ) (or(=(type FILTERSTRING)'STR) (setq FILTERSTRING "Autocad(DWG)\| .dwg \|Autocad(DXF)\|.dxf") ) (if(setq DLG (vlax-create-object "userAccounts.CommonDialog")) (progn (vlax-put-property DLG 'filter (vlax-make-variant FILTERSTRING) ) (vlax-put-property DLG 'filterindex 1) (vlax-put-property DLG 'flags (+ 4 8 512 2048)) (vlax-put-property DLG 'initialdir INITIALDIR) (vlax-invoke DLG 'showopen) (setq FILES(vlax-get-property DLG 'filename)) (vlax-release-object DLG) ) ) FILES ) die Rückgabe müßte natürlich noch etwas aufbereitet werden..kanst dich ja mal daran versuchen und die Aufberietung z.B. in eine Liste hier dann posten. ------------------ - 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
Ex-Mitglied
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 03. Jan. 2007 12:01 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007 Schau mal hier und kämpf dich durch ------------------ - 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
Ex-Mitglied
Peter2 Ehrenmitglied V.I.P. h.c. Beiträge: 3701 Registriert: 15.10.2003 Win 10/64 Pro AutoCAD MAP 3D 2018 BricsCAD 22	erstellt am: 05. Jan. 2007 20:25 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007 Im Detail stehe ich zwar auf der Leitung, aber ist DosLib für solche Dinge nicht einen Versuch wert? http://www.de.emea.mcneel.com/doslib.htm Peter ------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)