topic Re: How to create a new file name adding suffix in a new folder? in Inventor Programming Forum

How to create a new file name adding suffix in a new folder?

ikilic1461 — Fri, 16 Feb 2024 09:04:35 GMT

Hello ;

I have a ilogic parametric assembly here and I want to add a prefix to all items ,including sub assemblies ,parts in product tree and save as to a new folder(like pack and go )

For example ; firts item's name "Oil Entry DOF Tube" , after apply my desired rules I want to add project name as prefix.

I will put a button and write "Enter project name "

Project name : PA366

Then it will become "PA366_Oil Entry DOF Tube"

Re: How to create a new file name adding suffix in a new folder?

bradeneuropeArthur — Fri, 16 Feb 2024 09:21:43 GMT

You could use ilogic copy design, found in the ribbon zero documents!

Re: How to create a new file name adding suffix in a new folder?

ikilic1461 — Mon, 19 Feb 2024 09:03:58 GMT

ıs there another solution to be able to add to the form with rule?

Because I have some form paremeters , I also want to include project number too , then want to change all item's file name with this prefix.

Thanks .

Re: How to create a new file name adding suffix in a new folder?

ikilic1461 — Wed, 21 Feb 2024 13:48:52 GMT

Hello @bradeneuropeArthur ;

I have some parameters from the parts in the assembly , when I use ilogic copy design , in the copied assembly the parameter names stay as previous one , so the rule gives error.

You can see below screenshoot, in model tree it is with prefix name which created with ilogic design copy but in the rule they remain as previous one.

If you help me I would be grateful

Re: How to create a new file name adding suffix in a new folder?

WCrihfield — Wed, 21 Feb 2024 15:06:07 GMT

Hi @ikilic1461. Besides what I mentioned on your other current forum topic, below is another possible workaround way to 'fix' the rule afterwards, if needed, but this one can be pretty tricky to implement correctly. This would be something you would need to run after the design copy process has completed, to help fix the contents of the iLogic rule to reflect the new component names.

It is not 'perfect', but may work OK if working from a Template type situation (copying a template assembly files to new files). This is because it is expecting the names of the components in the rule to not already have a 'prefix' in their names. If they do already have a prefix in their names, such as when copying one 'copied' assembly to make another, then the 'find & replace' task will not be working with the correct 'find' text. If that is the case, then you may need to redefine how the 'find' text is dictated by replacing old/previous prefix with new/current prefix, instead of just removing prefix.

Sub Main Dim oADoc As AssemblyDocument = TryCast(ThisDoc.Document, Inventor.AssemblyDocument) If oADoc Is Nothing Then Logger.Debug(iLogicVb.RuleName & " exited (Wrong DocumentType)") : Return Dim oOccs As ComponentOccurrences = oADoc.ComponentDefinition.Occurrences If oOccs.Count = 0 Then Return Dim sPrefix As String = InputBox("Enter Prefix Text.", "Prefix", "") If sPrefix = "" Then Return '<<< a Dictionary to hold each 'old/previous' and 'new/current' component BrowserNode name, in pairs, in a list >>> '<<< each 'entry' has a 'Key' and a 'Value' (Key = old or previous name, Value = new or current name) >>> Dim oDict As New Dictionary(Of String, String) '<<< a transaction bundles multiple actions into one item in the UNDO list >>> Dim oTrans As Inventor.Transaction oTrans = ThisApplication.TransactionManager.StartTransaction(oADoc, "Update iLogic Rule Component Names") For Each oOcc As ComponentOccurrence In oOccs '<<< get name of component BrowserNode without the 'Prefix' >>> Dim sOccNameWithoutPrefix As String = oOcc.Name.Replace(sPrefix, "") '<<< if sOccNameWithoutPrefix is not already in dictionary, then add it, along with current name >>> If Not oDict.ContainsKey(sOccNameWithoutPrefix) Then oDict.Add(sOccNameWithoutPrefix, oOcc.Name) End If Next 'oOcc If oDict.Count = 0 Then : oTrans.Abort : Return : End If '<<< run the custom Sub routine below with following line of code >>> '<<< IMPORTANT: EDIT RULE NAME IN NEXT LINE >>> FindReplaceTextInRule(oADoc, "RuleName", oDict) oTrans.End End Sub Sub FindReplaceTextInRule(oDoc As Inventor.Document, sRuleName As String, _ oOldAndNewPairs As Dictionary(Of String, String)) If oDoc Is Nothing OrElse oDoc.IsModifiable = False Then Return If sRuleName = "" Then Return If oOldAndNewPairs Is Nothing OrElse oOldAndNewPairs.Count = 0 Then Return Dim oRule As iLogicRule = iLogicVb.Automation.GetRule(oDoc, sRuleName) If oRule Is Nothing Then Logger.Debug("iLogic Rule named '" & sRuleName & "' not found!") Return End If Dim sRuleText As String = oRule.Text If sRuleText = "" Then Return For Each oEntry As KeyValuePair(Of String, String) In oOldAndNewPairs Try sRuleText = sRuleText.Replace(oEntry.Key, oEntry.Value) Catch Logger.Error("Error editing iLogic Rule named " & sRuleName & vbCrLf & _ "while replacing: " & oEntry.Key & vbCrLf & _ "with: " & oEntry.Value) End Try Next 'oEntry oRule.Text = sRuleText End Sub

I also have an alternative custom Sub routine with the same name, but which requests a single 'text to find' and 'text to replace the with', instead of a Dictionary(Of String, String), for when you only need to replace one term in a rule.

Sub FindReplaceTextInRule(oDoc As Inventor.Document, sRuleName As String, _ sTextToFind As String, sReplacementText As String) If oDoc Is Nothing OrElse oDoc.IsModifiable = False Then Return If sRuleName = "" OrElse sTextToFind = "" Then Return Dim oRule As iLogicRule = iLogicVb.Automation.GetRule(oDoc, sRuleName) If oRule Is Nothing Then Logger.Debug("iLogic Rule named '" & sRuleName & "' not found!") Return End If Dim sRuleText As String = oRule.Text If sRuleText = "" Then Return Try sRuleText = sRuleText.Replace(sTextToFind, sReplacementText) Catch Logger.Error("Error editing iLogic Rule named " & sRuleName & vbCrLf & _ "while trying to replace: " & sTextToFind & vbCrLf & _ "with the following: " & sReplacementText) End Try oRule.Text = sRuleText End Sub

If this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.

Re: How to create a new file name adding suffix in a new folder?

bradeneuropeArthur — Wed, 21 Feb 2024 20:16:09 GMT

You should use a static occurrence name which stays always the same...

Re: How to create a new file name adding suffix in a new folder?

ikilic1461 — Thu, 22 Feb 2024 09:01:01 GMT

Hello @WCrihfield ;

I am so grateful for your endless support, But , I see I couldn't solve my problem yet.

I also attached my study here. If you have time you may integrate your statements .

Many thanks

Re: How to create a new file name adding suffix in a new folder?

ikilic1461 — Thu, 22 Feb 2024 09:02:46 GMT

Hello @bradeneuropeArthur ;

My study attached in the previous message.

I couldn't understand how to do it . If you have time and solve this issue I would be grateful.

Many thanks.

Re: How to create a new file name adding suffix in a new folder?

bradeneuropeArthur — Thu, 22 Feb 2024 13:08:39 GMT

I will support you. Will come back to you, ok?

Re: How to create a new file name adding suffix in a new folder?

ikilic1461 — Thu, 22 Feb 2024 13:19:09 GMT

Hello @bradeneuropeArthur ;

Thank you , I will be waiting for it.

Re: How to create a new file name adding suffix in a new folder?

bradeneuropeArthur — Thu, 22 Feb 2024 21:15:24 GMT

Hi,

First create a Custom Property in each part in the assembly Called "MyDisplayName" and give this the values as per picture.

Than use this i-locig code to set each time you copy the value back to the default (Displayname)

Dim a As AssemblyDocument = ThisAssembly.Document Dim ac As AssemblyComponentDefinition = a.ComponentDefinition Dim ao As ComponentOccurrence For Each ao In ac.Occurrences Dim d As Document = ao.Definition.Document Dim dps As PropertySet = d.PropertySets.Item(4) Dim dp As [Property] = dps.Item("MyDisplayName") ao.Name = dp.Value Next

Now the problem from the rename is away since the displayname is always static or overwitable with the "MyDisplayName" value of each occurence in this assembly.

Re: How to create a new file name adding suffix in a new folder?

ikilic1461 — Fri, 23 Feb 2024 08:11:55 GMT

Hello @bradeneuropeArthur ;

I created a custom property in 7 parts which I got parameters in my assembly as you mentioned "MyDisplayName".

But at the end I got this error . Then form didn't work.

I am also attaching model here.

MyDisplayName = Oil Entry DOF Tube.ipt:1

MyDisplayName = Interval DOF Tube.ipt:1

MyDisplayName = End DOF Tube.ipt:1

MyDisplayName = DOF Oil Entry End Flange.ipt:1

MyDisplayName = End Stop Board Packing Block.ipt:1

MyDisplayName = DOF Tube Support Board.ipt:1

MyDisplayName = Petal Washer Seal.ipt:1

Re: How to create a new file name adding suffix in a new folder?

bradeneuropeArthur — Tue, 27 Feb 2024 21:37:07 GMT

I have got it working for you.

What you forgot is to add "MyDisplayName" to each compontent even it is an empty string.

Also changed this in the code:

For Each ao In ac.Occurrences Dim d As Document = ao.Definition.Document Dim dps As PropertySet = d.PropertySets.Item(4) Try Dim dp As [Property] = dps.Item("MyDisplayName") ao.Name = dp.Value Catch End Try Next

See the movie for explanation too

Re: How to create a new file name adding suffix in a new folder?

ikilic1461 — Thu, 29 Feb 2024 08:16:07 GMT

Hello @bradeneuropeArthur ;

Even if I applied to the all items I got en error again ;

There is something wrong or missing.

If possible , can you share your modifed file?