Hallo erstmal...
Ich versuche ein Makro in SolidWorks mit folgender Funktion zu schreiben:
Die Aktuelle Baugruppe soll als Parasold mit gleichem Namen neu gespeichert werden; je nach Dateinamen in einem anderen Ordner.
Erklärung anhand Beispiel:
Aktuelle Datei = H20000.sldasm
Diese Datei soll nun in C:\Projekte\Hermle\4_PARA als H20000.x_t gespeichert werden.
variabler Speicherort:
Beginnt der aktuelle Dateinamne mit H2, dann Speicherort C:\Projekte\Hermle\4_PARA
Beginnt der aktuelle Dateinamne mit D6, dann Speicherort
C:\Projekte\DMU60\4_PARA
...
Ich habe mir das mal als Makro aufzeichnen lassen, wenn ich das manuell mache:
Dim swApp As Object
Dim Part As Object
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
longstatus = Part.SaveAs3("C:\Projekte\Hermle\4_PARA\H20000.X_T", 0, 0)
End Sub
Wie kann ich jetzt den aktuellen Namen (die ersten beiden Zeichen) der Baugruppe abfragen und so per Variabel den Speicherort festlegen?
Kann so etwas in der Art funktionieren:
Dim FileNameBeginn as String 'Variabel für Anfangsbuchstaben Dateinamne
Dim FileSavePath as String 'Variabel für Speicherort
FileNameBeginn = ActiveFileName 'aktueller Dateinamen auf Variabel FileNameBeginn schreiben
If Left(FileNameBeginn, 2) = "H2" Then
FileSavePath = "C:\Projekte\Hermle\4_PARA"
If Left(FileNameBeginn, 2) = "D6" Then
FileSavePath = "C:\Projekte\DMU60\4_PARA"
End If
Besten Dank für jeden Tipp im Voraus
mfg Polytyper
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP