Edit text in Sketched symbols

[Anonymous]

Hi,

I have more then one hundred sketched symbols on drawing. Sketched symbols have one text box with certain text.

Is it possible to change this text to another in each sketch symbol?

I know how to go over the collection of  sketched symbols, but I don't know the procedure of editing text in sketched symbols. Please help me with example on VBA/VBnet.

[HermJan.Otterman]

if you know some vba/vb then look in the Inventor programming/API help

look for the sketchedsymboldefinition and textboxes...

you can change the text in the textboxes of a sketched symbol

[bradeneuropeArthur]

Check this:

https://forums.autodesk.com/t5/inventor-customization/get-attributes-values-from-sketched-symbol/td-p/7714141

https://forums.autodesk.com/t5/inventor-customization/get-attributes-values-from-sketched-symbol/td-...

[Anonymous]

Try these scripts out in the API. Depending on whether or not you are using prompted entry for that text box you might want a different Script. I believe you're probably looking for the second of these two scripts though.

Uncomment the lines for the symbol's name if you want to isolate a specific symbol by name.

Good Luck!

Public Sub ChangeTextPromptOfSketchSymbolsOnAllSheets()
    If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then Exit Sub
    Dim oDrawDoc As DrawingDocument: Set oDrawDoc = ThisApplication.ActiveDocument
    Dim oSheet As Sheet
    Dim oSymbol As SketchedSymbol
    
    Dim strNewText As String: strNewText = InputBox("Enter New Text for Sketched Symbols.")
    
    On Error Resume Next 'this allows the script to skip over the symbol if the first textbox is not a prompted entry textbox
    For Each oSheet In oDrawDoc.Sheets
        For Each oSymbol In oSheet.SketchedSymbols
'            If oSymbol.Name = "STAMP" Then
                Dim oText As TextBox
                Set oText = oSymbol.Definition.Sketch.TextBoxes(1)
                Call oSymbol.SetPromptResultText(oText, strNewText)
'            End If
        Next
    Next
End Sub

Public Sub ChangeFirstTextBoxOfAllSketchedSymbolDefinitionsInDrawing()
    If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then Exit Sub
    Dim oDrawDoc As DrawingDocument: Set oDrawDoc = ThisApplication.ActiveDocument
    Dim oSheet As Sheet
    Dim oSymbolDef As SketchedSymbolDefinition
    
    Dim strNewText As String: strNewText = InputBox("Enter New Text for Sketched Symbols.")
    
    'as written, this will disregard any prompted entry textboxes and reset them to static text
    For Each oSymbolDef In oDrawDoc.SketchedSymbolDefinitions
'        If oSymbolDef.Name = "STAMP" Then
            Dim oDrawSketch As DrawingSketch
            Set oDrawSketch = oSymbolDef.Sketch
            Call oSymbolDef.Edit(oDrawSketch)
            Dim oText As TextBox
            Set oText = oDrawSketch.TextBoxes.Item(1)
            oText.FormattedText = strNewText
            Call oSymbolDef.ExitEdit(True)
'        End If
    Next
End Sub

[Anonymous]

---

@Anonymous wrote:

Try these scripts out in the API. Depending on whether or not you are using prompted entry for that text box you might want a different Script. I believe you're probably looking for the second of these two scripts though.

Uncomment the lines for the symbol's name if you want to isolate a specific symbol by name.

Good Luck!

Public Sub ChangeTextPromptOfSketchSymbolsOnAllSheets()
    If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then Exit Sub
    Dim oDrawDoc As DrawingDocument: Set oDrawDoc = ThisApplication.ActiveDocument
    Dim oSheet As Sheet
    Dim oSymbol As SketchedSymbol
    
    Dim strNewText As String: strNewText = InputBox("Enter New Text for Sketched Symbols.")
    
    On Error Resume Next 'this allows the script to skip over the symbol if the first textbox is not a prompted entry textbox
    For Each oSheet In oDrawDoc.Sheets
        For Each oSymbol In oSheet.SketchedSymbols
'            If oSymbol.Name = "STAMP" Then
                Dim oText As TextBox
                Set oText = oSymbol.Definition.Sketch.TextBoxes(1)
                Call oSymbol.SetPromptResultText(oText, strNewText)
'            End If
        Next
    Next
End Sub

Public Sub ChangeFirstTextBoxOfAllSketchedSymbolDefinitionsInDrawing()
    If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then Exit Sub
    Dim oDrawDoc As DrawingDocument: Set oDrawDoc = ThisApplication.ActiveDocument
    Dim oSheet As Sheet
    Dim oSymbolDef As SketchedSymbolDefinition
    
    Dim strNewText As String: strNewText = InputBox("Enter New Text for Sketched Symbols.")
    
    'as written, this will disregard any prompted entry textboxes and reset them to static text
    For Each oSymbolDef In oDrawDoc.SketchedSymbolDefinitions
'        If oSymbolDef.Name = "STAMP" Then
            Dim oDrawSketch As DrawingSketch
            Set oDrawSketch = oSymbolDef.Sketch
            Call oSymbolDef.Edit(oDrawSketch)
            Dim oText As TextBox
            Set oText = oDrawSketch.TextBoxes.Item(1)
            oText.FormattedText = strNewText
            Call oSymbolDef.ExitEdit(True)
'        End If
    Next
End Sub

---

Thanks for your reply! You are right I am looking for the second script but it is not working properly:(  

I'm testing the script on small drawing and I have created some Leader Text symbols (in Annotate tab) on the drawing with certain text.

(I suppose object "Leader Text" relates to Sketched symbols, am I right?)

Then I run the script. It changes text to specified in the sketched symbols and formatting of the text is reset. But if I open symbol by standard editor I see the old text. You can try it yourself.

Any ideas?

[Anonymous · Accepted solution]

Good call. I was working with sketched symbols that did not have any formatting on the text so I was ignoring retaining it. Try this.

Public Sub ChangeFirstTextBoxOfAllSketchedSymbolDefinitionsInDrawing()
    If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then Exit Sub
    Dim oDrawDoc As DrawingDocument: Set oDrawDoc = ThisApplication.ActiveDocument
    Dim oSheet As Sheet
    Dim oSymbolDef As SketchedSymbolDefinition
    
    Dim strNewText As String: strNewText = InputBox("Enter New Text for Sketched Symbols.")
    
    'as written, this will disregard any prompted entry textboxes and reset them to static text
    For Each oSymbolDef In oDrawDoc.SketchedSymbolDefinitions
'        If oSymbolDef.Name = "STAMP" Then
            Dim oDrawSketch As DrawingSketch
            Set oDrawSketch = oSymbolDef.Sketch
            Call oSymbolDef.Edit(oDrawSketch)
            Dim oText As TextBox
            Set oText = oDrawSketch.TextBoxes.Item(1)
            Dim strTextFormat As String: strTextFormat = oText.FormattedText
            strTextFormat = Replace(strTextFormat, oText.Text, strNewText)
            oText.FormattedText = strTextFormat
            Call oSymbolDef.ExitEdit(True)
'        End If
    Next
End Sub

[Anonymous]

---

@Anonymous wrote:

Good call. I was working with sketched symbols that did not have any formatting on the text so I was ignoring retaining it. Try this.

Public Sub ChangeFirstTextBoxOfAllSketchedSymbolDefinitionsInDrawing()
    If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then Exit Sub
    Dim oDrawDoc As DrawingDocument: Set oDrawDoc = ThisApplication.ActiveDocument
    Dim oSheet As Sheet
    Dim oSymbolDef As SketchedSymbolDefinition
    
    Dim strNewText As String: strNewText = InputBox("Enter New Text for Sketched Symbols.")
    
    'as written, this will disregard any prompted entry textboxes and reset them to static text
    For Each oSymbolDef In oDrawDoc.SketchedSymbolDefinitions
'        If oSymbolDef.Name = "STAMP" Then
            Dim oDrawSketch As DrawingSketch
            Set oDrawSketch = oSymbolDef.Sketch
            Call oSymbolDef.Edit(oDrawSketch)
            Dim oText As TextBox
            Set oText = oDrawSketch.TextBoxes.Item(1)
            Dim strTextFormat As String: strTextFormat = oText.FormattedText
            strTextFormat = Replace(strTextFormat, oText.Text, strNewText)
            oText.FormattedText = strTextFormat
            Call oSymbolDef.ExitEdit(True)
'        End If
    Next
End Sub

---

This one works better. The formatting remains the same.

But there is still one bug I mentioned in my previous message - after script finished working I see the text has changed on the drawing but when I open symbol in standard editor I see the old text. Why?

[Anonymous]

I'm not sure on that one. I can't seem to replicate that problem. If you want to attach a drawing with one of the sketched symbols, maybe I can see what you're seeing.

[MechMachineMan]

Try hitting the Update button or Rebuild before editting the sketched symbol, after the code has run.

[Anonymous]

OK, thanks guys for your help

I solved the problem!

There was a problem with one special inventor add-in, when I turned it off - your solution works great!!