Pfadabfrage (Autodesk/AutoCAD VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	NVIDIA GTC Paris und ISC High Performance-Konferenz 2025, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Pfadabfrage (969 mal gelesen)
Stagladasy Mitglied Ingenieur Beiträge: 21 Registriert: 02.01.2007	erstellt am: 12. Jan. 2007 19:13 <-- editieren / zitieren --> Unities abgeben: Hallo liebe Leute, ich suche nach einem Code, der mir den Pfad (ohne Dateinamen.dvb) ausgibt, unter dem das aktuelle Programm (also in das der Code integriert werden soll) abgespeichert ist. Hört sich zwar etwas komisch an, macht in meinem Falle jedoch einen Sinn. Vielen Dank. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Carsten1210 Mitglied staatl. geprüfter Holztechniker Beiträge: 1360 Registriert: 24.07.2002 AutoCAD ACA 2024 Solidworks 2022 Sp5 Enterprise PDM 2022 Sp5 Pascam Woodworks Visual Studio 2017 Pro Windows 10 64Bit Dell Precision 3660 Intel Core i9-12900K 32 GB Arbeitsspeicher 2x Dell U2415	erstellt am: 12. Jan. 2007 19:24 <-- editieren / zitieren --> Unities abgeben: Nur für Stagladasy Hi, Hier schon mal als Anfang: Sub ProjektName() Dim prj As Object Set prj = ThisDrawing.Application.Preferences.Application.VBE MsgBox prj.activevbproject.FileName, , "aktueller Projektname" End Sub Allerdings gibt er dir hier noch das ".DVB" mit aus, aber das lässt sich ja leicht mit den Stringbearbeitungsfunktionen ändern. Gruß, Carsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
startrek Moderator Architekt Beiträge: 1361 Registriert: 13.02.2003 .	erstellt am: 12. Jan. 2007 19:33 <-- editieren / zitieren --> Unities abgeben: Nur für Stagladasy oder Trick17?;-) Code: ?thisdrawing.Path C:\Dokumente und Einstellungen\NE\Desktop\Radebeul lg Nancy [edit: alles klar Carsten hat Recht, es ging ja um dvb's skusiskusiskusi, wer lesen kann usw. ... ] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Carsten1210 Mitglied staatl. geprüfter Holztechniker Beiträge: 1360 Registriert: 24.07.2002	erstellt am: 12. Jan. 2007 19:38 <-- editieren / zitieren --> Unities abgeben: Nur für Stagladasy Hi Nancy, Dein Code gibt ihm aber den Pfad der Zeichnung, nicht den Pfad der aktuellen dvb zurück. Gruß, Carsten Zitat: Original erstellt von startrek: oder Trick17?;-) Code: ?thisdrawing.Path C:\Dokumente und Einstellungen\NE\Desktop\Radebeul lg Nancy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
startrek Moderator Architekt Beiträge: 1361 Registriert: 13.02.2003 .	erstellt am: 12. Jan. 2007 19:41 <-- editieren / zitieren --> Unities abgeben: Nur für Stagladasy auch grade gemerkt ... ab in die Gruft mit mir;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Stagladasy Mitglied Ingenieur Beiträge: 21 Registriert: 02.01.2007	erstellt am: 12. Jan. 2007 19:47 <-- editieren / zitieren --> Unities abgeben: Danke für Eure Antworten, ich brauche den Pfadnamen als String, um ihn anschließend weiterverarbeiten zu können und als Pfad für eine weitere einzulesende Datei nutzbar zu machen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
startrek Moderator Architekt Beiträge: 1361 Registriert: 13.02.2003 .	erstellt am: 12. Jan. 2007 20:27 <-- editieren / zitieren --> Unities abgeben: Nur für Stagladasy Nochmal Hallo, das ginge dann u.a. so: Code: ?mid$(vbe.activevbproject.filename,1,len(vbe.activevbproject.filename)-len(dir$(vbe.activevbproject.filename))) D:\temp\ lg Nancy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Stagladasy Mitglied Ingenieur Beiträge: 21 Registriert: 02.01.2007	erstellt am: 12. Jan. 2007 20:39 <-- editieren / zitieren --> Unities abgeben: Super Nancy, genau danach habe ich gesucht - vielen Dank! Viele Grüße Uwe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)