Breaking News: Grepper is joining You.com. Read the official announcement!

solidworks macro get pathname without filename

Crazy Capybara answered on November 4, 2020 Popularity 1/10 Helpfulness 1/10

answer solidworks macro get pathname without filename

solidworks macro get pathname without filename

Comment

' PathName of current model document
Dim sModelFullPath As String
sModelFullPath = swModel.GetPathName

' get path name without filename
Dim sFilePath As String
sFilePath = Left(sModelFullPath, InStrRev(sModelFullPath, "\"))

' get filename and extension
Dim sFileName As String
sFileName = Right(sModelFullPath, Len(sModelFullPath) - InStrRev(sModelFullPath, "\"))

' get filename without extension
Dim sFileNameWithoutExtension As String
sFileNameWithoutExtension = Left(sFileName, InStrRev(sFileName, ".") - 1)

' combine everything to new path name
Dim sNewFullPath As String
sNewFullPath = prefix & sFileNameWithoutExtension & "REV" & CurrRev & ".pdf"

' SaveAs with new full path
Set swExportPDFData = swApp.GetExportFileData(1)
swModel.Extension.SaveAs sNewFullPath, 0, 0, swExportPDFData, 0, 0

Popularity 1/10 Helpfulness 1/10 Language whatever

Source: stackoverflow.com

Tags: get pathname solidworks whatever

Link to this answer
Share Copy Link