Absoluter Pfad in Makro (Autodesk/Inventor VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Absoluter Pfad in Makro (967 mal gelesen)
chako74 Mitglied Teschek Beiträge: 127 Registriert: 04.12.2003	erstellt am: 07. Apr. 2007 11:24 <-- editieren / zitieren --> Unities abgeben: Hallo! Ich bin wirklich blutiger Anfänger in VBA. Ich versuche schon seit längerem ein Makro zu finden, dass aus einer Blechabwicklung ein DXF oder DWG-File in einem bestimmten Ordner speichert. Hier habe ich auch viele solcher Makros gefunden, leider schaffe ich es aber nicht, einen ABSOLUTEN Speicherort für das DXF zu definieren. Die Hilfedateien von Inventor helfen mir leider auch nicht wirklich weiter. Code: sDisplayName = oDoc.DisplayName sFullName = oDoc.FullFileName sName = Left$(sDisplayName, Len(sDisplayName) - 4) + ".dxf" sPath = "?????" ------------------ Wer vom Ziel nichts weiß, wird den Weg nicht finden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
daywa1k3r Moderator Softwareentwickler Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012	erstellt am: 07. Apr. 2007 11:31 <-- editieren / zitieren --> Unities abgeben: Nur für chako74 Ich weiß zwar nicht was du willst, aber probiere das: Code: sPath = Left$(oDoc.FullFileName, Len(oDoc.FullFileName) - 4) + ".dxf" ------------------ Grüße Igor FX64 Software Solutions HMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
chako74 Mitglied Teschek Beiträge: 127 Registriert: 04.12.2003	erstellt am: 07. Apr. 2007 11:45 <-- editieren / zitieren --> Unities abgeben: Danke für die rasche Antwort! Ich will schlicht und ergreifend, dass das DXF in einem definierten Ordner (ZB C:/DXF/Beispiel.dxf) gespeichert wird. Wie kann ich den Pfad in VBA angeben? ------------------ Wer vom Ziel nichts weiß, wird den Weg nicht finden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
daywa1k3r Moderator Softwareentwickler Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012	erstellt am: 07. Apr. 2007 11:50 <-- editieren / zitieren --> Unities abgeben: Nur für chako74 Code: sMyFolder = "C:\DXF\" sPath = sMyFolder + sName ? ------------------ Grüße Igor FX64 Software Solutions HMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
chako74 Mitglied Teschek Beiträge: 127 Registriert: 04.12.2003	erstellt am: 07. Apr. 2007 12:31 <-- editieren / zitieren --> Unities abgeben: Jo! Genau das habe ich gesucht! Der Dateiname ist noch ein wenig "eigentümlich". Das bekomme ich aber hoffentlich selbst hin. Ich wünsche Dir und Deiner Familie ein frohres Osterfest! ------------------ Wer vom Ziel nichts weiß, wird den Weg nicht finden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
daywa1k3r Moderator Softwareentwickler Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012	erstellt am: 07. Apr. 2007 12:57 <-- editieren / zitieren --> Unities abgeben: Nur für chako74 Zitat: Original erstellt von chako74: Ich wünsche Dir und Deiner Familie ein frohres Osterfest! Danke, und dir ebenso! ------------------ Grüße Igor FX64 Software Solutions HMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)