Rename part of text string

[madstrolle]

Hi,

I use Pack and go to copy a project and afterwards I use Design assistant to rename the files. Eg. as shown on the picture the files are named 41826_W01 and then i rename it 42485_W01, so it's only the first 5 characters that i'm renaming. When it's huge projects it takes ages to rename all the files in Design assistant.

There must be a quicker and easier way?

Thanks in advance 🙂

[JelteDeJong]

It's possible to create a copy design function but it's not as easy as it might think. Therefore I wonder if you ever have looked at the copy design function of the Vault. In the basic Vault that you get for free with Inventor you can do a search and replace in the file names.

https://help.autodesk.com/view/VAULT/2023/ENU/?guid=GUID-EC6894D4-36E4-48B9-84D6-1F9B41240A0B

And if you have a look at Workgroup and Professional vault then you have even better options.

https://help.autodesk.com/view/VAULT/2023/ENU/?guid=GUID-9865E786-4FE2-40AC-B951-1FEBA910ECCC

[Martin-Winkler-Consulting]

Do you rename the files, or are there only the "wrong" names in the browser tree?

[madstrolle]

I'm renaming the files.

[madstrolle]

@JelteDeJong thank you for your suggestion, but unfortunately we don't use Vault.

[Curtis_Waguespack]

Hi @madstrolle 

Here is a basic example.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Where the setup is something like this:

Resulting in this:

'This rule expects the following:
'	an original Path such As: "C:\Temp\Projects\41826\41826_123456.iam"
'	a parameter called current_ProjectNumber
'	a parameter called new_ProjectNumber, with a value such as 55555
'
'the result would be a new path such as: "C:\Temp\Projects\55555\55555_123456.iam"

Sub Main
	Dim oDoc As AssemblyDocument
	oDoc = ThisDoc.Document
	oNewname = UpdateName(oDoc)
	
	If oDoc.ComponentDefinition.Occurrences.Count > 0 Then
		Call TraverseAssembly(oDoc.ComponentDefinition.Occurrences, oNewname)
	End If

	If Not oNewname = oDoc.FullFileName Then
		oDoc.SaveAs(oNewname, False)
	End If
	
	InventorVb.DocumentUpdate()

End Sub

Sub TraverseAssembly(Occurrences As ComponentOccurrences, oNewname As String)
	On Error Resume Next
	Dim oOcc As ComponentOccurrence
	Dim oDoc As Document
	For Each oOcc In Occurrences
		If oOcc.DefinitionDocumentType = kAssemblyDocumentObject Then
			Call TraverseAssembly(oOcc.SubOccurrences, oNewname)
		End If

		oDoc = oOcc.Definition.Document
		oNewname = UpdateName(oDoc)

		oDoc.SaveAs(oNewname, False)
		oDoc.PropertySets("Design Tracking Properties")("Part Number").Value = IO.Path.GetFileName(oDoc.fullfilename)
		
	Next
End Sub

Function UpdateName(oDoc As Document)

	Dim sName As String = oDoc.FullFileName
	Dim sPath As String = IO.Path.GetDirectoryName(sName)
	Dim sSplitArray = Split(sPath,"\")
	Dim sCurPN As String = sSplitArray(sSplitArray.Length - 1)	
	Dim sNewPN As String = Trim(Parameter("new_ProjectNumber"))
	Parameter("current_ProjectNumber") = sNewPN

	Dim oNewname As String = Replace(sName, sCurPN, sNewPN)

	sFolderPath = IO.Path.GetDirectoryName(oNewname)

	If Not System.IO.Directory.Exists(sFolderPath) Then
		System.IO.Directory.CreateDirectory(sFolderPath)
	End If

	Return oNewname

End Function

[madstrolle]

@Curtis_Waguespack 

Thank you very much for taking your time to help me.

Unfortunately it is not working. 

This is our drives that contain our files:

And then our files a named according the drives. Eg. 41826_C01, 41826_C02, 41826_W01 etc.

[Curtis_Waguespack · Accepted solution]

---

@madstrolle wrote:

Thank you very much for taking your time to help me.

Unfortunately it is not working. 

This is our drives that contain our files:

---

It works as written for the file and folder structure examples I provided.

Unfortunately, the nature of this type of copy design code is that it unique to each organization, often with a lot of exceptions as well, and so it would be too time consuming for me to tailor it to your needs for you.

I would suggest setting up some simple example files that follow the structure I showed in the example, and then use that to modify this example to your specifics.