I have a part numbering system that has the drawing rev built into the filename for example: 11111234A-PM.slddrw
Previously the Macro used to save this drawing would get the revision from custom properties.
This field is no longer updated and there is now a need to retrieve the revision from the filename instead.
Below is a clip of the current macro, in the "get revision" section is what was used to get the rev, I want to get the revision from the 9th digit of the file name as "rev"
any help would be greatly appreciated.
Dim longstatus As Long, longwarnings As Long
Dim swModel As SldWorks.ModelDoc2
Dim swApp As SldWorks.SldWorks
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModel = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Dim proj As String
Dim dwg As String
Dim filename As String
Dim saveLoc As String
Dim lastTwoChar As String
Dim rev As String
Dim trueRev As String
Set swCusPropMgr = swModel.Extension.CustomPropertyManager("")
filename = swModel.GetPathName
If filename = "" Then
MsgBox "Please save the file first and try again", vbCritical
retval = swCusPropMgr.Get3("Revision", False, rev, trueRev)
If rev = "-" Then
rev = "-"