Use filename of 2D file, to fill in iproperties - Inventor 2024

[jens_herrebaut83]

Hi,

Is there a way to save a 2D file (ex: Title-desciption-customer.idw) and it automatically fills in the iproperties of that 2D file?

@jens_herrebaut83 Your post title was modified to add the product name and version and to increase findability - CGBenner

[andrewiv]

This could be done with iLogic as long as the same format is used for your filenames all the time.

[jens_herrebaut83]

yes, the filename would be the same all the time. 

What steps do I have to do for that?

[CGBenner]

@jens_herrebaut 

Hello, and welcome to the forum!  This is something that might be possible through some custom programming.  I will move this to the Inventor Programming forum for the experts there to look at and off some advice.  Can you tell us what version of Inventor you are using?  Thank you!

[jens_herrebaut83]

I'm using 2024

[andrewiv]

Here is a quick rule that will get you what you want.  I used a custom property for Client but you can assign that value to any property.

Try
	Dim oDoc As Document = ThisApplication.ActiveEditDocument
	Dim oName As String = ThisDoc.FileName(False)
	Dim oFirstDashPos As Integer = InStr(oName, "-")
	Dim oSecondDashPos As Integer = InStr(oFirstDashPos + 1, oName, "-")
	Dim oTitle As String = Left(oName, oFirstDashPos -1)
	Dim oClient As String = Mid(oName, oFirstDashPos + 1, oSecondDashPos - oFirstDashPos - 1)
	Dim oDesc As String = Right(oName, Len(oName) - oSecondDashPos)
	
	iProperties.Value("Summary", "Title") = oTitle
	iProperties.Value("Custom", "Client") = oClient
	iProperties.Value("Project", "Description") = oDesc
Catch
End Try