Replace text - field text & leader text
Hi dschleede,
Here is an iLogic rule that looks at General Notes, Leader Notes, Title Block Field Text, and Sketched Symbols Text and will replace their values when they match the user input search string.
Post back if there are other text items that you need the iLogic rule to search through.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
oDoc = ThisDoc.Document
Dim oSheets As Sheets
Dim oSheet As Sheet
Dim oViews As DrawingViews
Dim oView As DrawingView
Dim oGeneralNotes As GeneralNotes
Dim oGeneralNote As GeneralNote
Dim oSymbol As SketchedSymbol
Dim oSymbols As SketchedSymbols
Dim oTitleBlock As TitleBlock
Dim oTestBox as TextBox
Dim TXT2Find As String
Dim NewTXT As String
'get user input
TXT2Find = InputBox("Enter Text To Find:", "iLogic", "XXX")
'look for blank value
If TXT2Find ="" Then
Return 'exit rule
Else
'Continue rule
End If
NewTXT = InputBox("Enter Text To Replace '"& TXT2Find _
& "' with.", "iLogic", "****")
oSheets = oDoc.Sheets
For Each oSheet In oSheets
Try
oGeneralNotes = oSheet.DrawingNotes.GeneralNotes
'look at gerenal notes
For Each oGeneralNote In oGeneralNotes
If oGeneralNote.FormattedText = TXT2Find Then
oGeneralNote.FormattedText = NewTXT
Else
End if
Next
oLeaderNotes = oSheet.DrawingNotes.LeaderNotes
'look at gerenal notes
For Each oLeaderNote In oLeaderNotes
If oLeaderNote.FormattedText = TXT2Find Then
oLeaderNote.FormattedText = NewTXT
Else
End if
Next
oTitleBlock = oSheet.TitleBlock
For Each oTextBox In oTitleBlock.Definition.Sketch.TextBoxes
If oTitleBlock.GetResultText(oTextBox) = TXT2Find Then
oTitleBlock.SetPromptResultText(oTextBox, NewTXT )
Else
End If
Next
oSymbols = oSheet.SketchedSymbols
'look at sketched symbols
For Each oSymbol In oSymbols
For Each oTextBox In oSymbol.Definition.Sketch.TextBoxes
If oSymbol.GetResultText(oTextBox) = TXT2Find Then
oSymbol.SetPromptResultText (oTextBox, NewTXT)
Else
End if
Next
Next
Catch
'do nothing here,
'this simply catches errors, for
'exampl: when a sheet has no title block
End Try
Next
**** Updated version ****
The Try/Catch I had in the first version didn't work as intended. 
This new version should work as expected, just disregard the previous version. 
I should point out also that this iLogic does not handle Sketched Symbols where the static text matches the searched text, as it is only looking at the prompted/field text in the symbols.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
oDoc = ThisDoc.Document
Dim oSheets As Sheets
Dim oSheet As Sheet
Dim oViews As DrawingViews
Dim oView As DrawingView
Dim oGeneralNotes As GeneralNotes
Dim oGeneralNote As GeneralNote
Dim oSymbol As SketchedSymbol
Dim oSymbols As SketchedSymbols
Dim oTitleBlock As TitleBlock
Dim oTestBox as TextBox
Dim TXT2Find As String
Dim NewTXT As String
'get user input
TXT2Find = InputBox("Enter Text To Find:", "iLogic", "XXX")
'look for blank value
If TXT2Find ="" Then
Return 'exit rule
Else
'Continue rule
End If
NewTXT = InputBox("Enter Text To Replace '"& TXT2Find _
& "' with.", "iLogic", "****")
'look for blank value
If NewTXT ="" Then
Return 'exit rule
Else
'Continue rule
End If
oSheets = oDoc.Sheets
For Each oSheet In oSheets
'handle errors
On Error Resume Next
'look at gerenal notes
oGeneralNotes = oSheet.DrawingNotes.GeneralNotes
For Each oGeneralNote In oGeneralNotes
If oGeneralNote.FormattedText = TXT2Find Then
oGeneralNote.FormattedText = NewTXT
Else
End if
Next
'look at leader notes
oLeaderNotes = oSheet.DrawingNotes.LeaderNotes
For Each oLeaderNote In oLeaderNotes
If oLeaderNote.FormattedText = TXT2Find Then
oLeaderNote.FormattedText = NewTXT
Else
End if
Next
'look at title blocks
oTitleBlock = oSheet.TitleBlock
For Each oTextBox In oTitleBlock.Definition.Sketch.TextBoxes
If oTitleBlock.GetResultText(oTextBox) = TXT2Find Then
oTitleBlock.SetPromptResultText(oTextBox, NewTXT )
Else
End If
Next
'look at sketched symbols
oSymbols = oSheet.SketchedSymbols
For Each oSymbol In oSymbols
For Each oTextBox In oSymbol.Definition.Sketch.TextBoxes
If oSymbol.GetResultText(oTextBox) = TXT2Find Then
oSymbol.SetPromptResultText (oTextBox, NewTXT)
Else
End if
Next
Next
Next
Hi dschleede,
It's possible that you have something in your drawings that are a departure from what I tested. Attached is a sample file that you can look at to see how this is working, and hopefully determine what is different than your file(s). If so you might provide some screen shots of your files to help others better understand what you're working with. But I suspect my example is too simple compared to your real world files.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
If you are still at a loss with this, I have something similar that I use with my Certification drawings. Typically a client assigns a Tool number and I have lots of text in my drawings that reference this number (general notes, drawing number, titleblock, etc..) I use the iLogic Form function along with custom iProperties to populate all my text. So for instance, I open the form, enter the tool number and after applying, the text is filled in with the number at the locations I specified. It does take a bit to setup (you will have to go through all your text and title block and add in the custom iproperty). But once finished, it is very simple and effective. See some screen caps below...
Accepted solution
Update to this to find string that contain the search string as requested in the past:
Sub main oDoc = ThisDoc.Document Dim oSheets As Sheets Dim oSheet As Sheet Dim oGeneralNotes As GeneralNotes Dim oGeneralNote As GeneralNote Dim oSymbol As SketchedSymbol Dim oSymbols As SketchedSymbols Dim oTitleBlock As TitleBlock Dim oTextBox as TextBox Dim ooTXT2Find As String Dim oNewTXT As String 'get user input oTXT2Find = InputBox("Enter Text To Find:", "iLogic", "XXX") 'look for blank value If oTXT2Find = "" Then Return 'exit rule End If oNewTXT = InputBox("Enter Text To Replace '" & oTXT2Find _ & "' with.", "iLogic", "ZZZ") 'look for blank value If oNewTXT = "" Then Return 'exit rule End If oSheets = oDoc.Sheets For Each oSheet In oSheets 'handle errors On Error Resume Next 'look at General Notes oGeneralNotes = oSheet.DrawingNotes.GeneralNotes For Each oGeneralNote In oGeneralNotes oText = oGeneralNote.FormattedText oText = ReplaceText(oText, oTXT2Find, oNewTXT) oGeneralNote.FormattedText = oText Next 'look at leader notes oLeaderNotes = oSheet.DrawingNotes.LeaderNotes For Each oLeaderNote In oLeaderNotes oText = oLeaderNote.FormattedText oText = ReplaceText(oText, oTXT2Find, oNewTXT) oLeaderNote.FormattedText = oText Next 'look at title blocks oTitleBlock = oSheet.TitleBlock For Each oTextBox In oTitleBlock.Definition.Sketch.TextBoxes oText = oTitleBlock.GetResultText(oTextBox) oText = ReplaceText(oText, oTXT2Find, oNewTXT) oTitleBlock.SetPromptResultText(oTextBox, oText) Next 'look at sketched symbols oSymbols = oSheet.SketchedSymbols For Each oSymbol In oSymbols For Each oTextBox In oSymbol.Definition.Sketch.TextBoxes oText = oSymbol.GetResultText(oTextBox) oText = ReplaceText(oText, oTXT2Find, oNewTXT) oSymbol.SetPromptResultText(oTextBox, oText) Next Next Next End Sub Function ReplaceText(oText As String, oTXT2Find As String, oNewTXT As String) If oText = oTXT2Find Or oText.Contains(oTXT2Find) Then oText = Replace(oText, oTXT2Find, oNewTXT) End If Return oText End Function
