Find this line of code in the macro:
Code:
ModelName = NewParseString(UCase(Document.GetTitle), ".SLD", 0, 0)
and replace it with this:
Code:
ModelName = RIGHT(NewParseString(UCase(Document.GetTitle), ".SLD", 0, 0),3)
The going's on of the above code is this (working from inside out):
Document.GetTitle is getting the file name of the active file.
The UCase is changing whatever it got to all uppercase.
The NewParseString is looking through the filename and until it finds .SLD. When it finds it, it chops off the .SLD and anything after it.
The Right and the ,3 is grabbing just the 3 right most characters.
It is then assigning this result as the variable ModelName.
ModelName is used later in the macro to fill in the custom property.
You can access this code from within solidworks by going to Tools>Macro>Edit and then selecting the macro PartNoProperty.swp Then within the VBeditor go to forms and hit the "+" to expand the tree. Right click the "FormPartNoProp" and select view code.
were you able to update the text file to change the custom property from SP

ART_NR to <a name of your choosing>?
-Shaggy