Add Part Title To Save Name Macro

[jkunLLJ2Y]

I have a working macro for saving a file, however I need to add the title of the part to the end of the file name, and I cannot find the code for it.

oDataMedium.FileName = "U:\DWF\" & onamefile & " " & TITLE & ".dwf"

[A.Acheson]

@jkunLLJ2Y 

Are you using VBA or iLogic? This is a list for ilogic snippets.

https://adndevblog.typepad.com/manufacturing/2018/04/accessing-iproperties-through-ilogic-code.html

If I am correct you can not use ilogic snippets in VBA and need to use property sets. Perhaps you can verify if they work?

https://modthemachine.typepad.com/my_weblog/2010/02/accessing-iproperties.html

[jkunLLJ2Y]

I am using VBA, and there is no "Title" code in the PropertySets that I could find.

[A.Acheson]

Here is a more up to date list and you can extract a list of your current inventor release. 

https://modthemachine.typepad.com/my_weblog/iproperties/

[jkunLLJ2Y]

I tried that, the "Title / 2"

However it just spits out a 0

[A.Acheson]

@jkunLLJ2Y 

Can you try the sample read iproperty sub in the image and change the property set and property as the per the chart referencing title. Failing that post the code your using to extract the title string from the file.  

[jkunLLJ2Y]

 

I'm not sure exactly what you mean, but this is what I have now.

[jkunLLJ2Y · Accepted solution]

I figured it out.

Dim oDoc As String
oDoc = ThisApplication.ActiveDocument.PropertySets.Item(1).Item(1).Value

Thanks for the help.