Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
jkunLLJ2Y
540 Views, 7 Replies

Add Part Title To Save Name Macro

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
in reply to: jkunLLJ2Y

@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

 

If this solved a problem, please click (accept) as solution.‌‌‌‌
Or if this helped you, please, click (like)‌‌
Regards
Alan
jkunLLJ2Y
in reply to: A.Acheson

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

A.Acheson
in reply to: jkunLLJ2Y

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/

 

If this solved a problem, please click (accept) as solution.‌‌‌‌
Or if this helped you, please, click (like)‌‌
Regards
Alan
jkunLLJ2Y
in reply to: A.Acheson

I tried that, the "Title / 2"

 

However it just spits out a 0

A.Acheson
in reply to: jkunLLJ2Y

@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.  

If this solved a problem, please click (accept) as solution.‌‌‌‌
Or if this helped you, please, click (like)‌‌
Regards
Alan
jkunLLJ2Y
in reply to: A.Acheson

Capture.PNG

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

jkunLLJ2Y
in reply to: jkunLLJ2Y

I figured it out.


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

 

Thanks for the help.