Get attributes values from Sketched Symbol

[meck]

Hey All,

Trying to do something I thought would be simple, but I have having some trouble. I need to see what the user has entered for values in a sketched symbol. I thought I could just iterate through the attributes, but I get an error saying "Object doesn't support this property or method" on the line For Each oAttrib In oSketchedSymbol.oAttribSets.

Here is the whole code...

Public Function GetAttributes(SymbolName As String) As Boolean
    'This function returns true when SymbolName is inserted into the drawing
    invApp = GetObject(, "Inventor.Application")

    ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.ActiveSheet

    Dim oSketchedSymbol As SketchedSymbol
    Dim AttSet As AttributeSet

    For Each oSketchedSymbol In oSheet.SketchedSymbols
        If oSketchedSymbol.Name = SymbolName Then
            Dim oAttrib As Inventor.Attribute
           
            For Each oAttrib In oSketchedSymbol.oAttribSets
                MsgBox (oAttrib.Value)
            Next
        End If
    Next
End Function

[bradeneuropeArthur · Accepted solution]

Hi,

The following:

Public Sub f()

    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.activesheet
    Dim oSketchedSymbol As SketchedSymbol
    
    For Each oSketchedSymbol In oSheet.SketchedSymbols

          On Error Resume Next
MsgBox oSketchedSymbol.GetResultText(oSketchedSymbol.Definition.Sketch.TextBoxes.Item(1))
Next
End Sub

[dean.morrison]

Hi,

You need to access the text boxes of your sketched symbol.

Attributes are just a way to append data to objects.

I have modified your code below.

----------------------------------------------------

Public Function GetAttributes(SymbolName As String) As Boolean
'This function returns true when SymbolName is inserted into the drawing
invApp = GetObject(, "Inventor.Application")

' Set a reference to the drawing document.
' This assumes a drawing document is active.
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oSheet As Sheet
Set oSheet = oDrawDoc.ActiveSheet

Dim oSketchedSymbol As SketchedSymbol
Dim AttSet As AttributeSet
Dim oSketchDef As Sketch
Dim oTextBoxes As TextBoxes
Dim iTextBox As TextBox

For Each oSketchedSymbol In oSheet.SketchedSymbols
If oSketchedSymbol.Name = SymbolName Then

Set oSketchDef = oSketchedSymbol.Definition.Sketch
Set oTextBoxes = oSketchDef.TextBoxes

For j = 1 To oTextBoxes.Count
Set iTextBox = oTextBoxes.Item(j)
MsgBox iTextBox.Text
Next

End If
Next
End Function

------------------------------------------------------

Hope that helps you.

Dean.

[bradeneuropeArthur]

Hi @dean.morrison

,

This does not represent the "Filled in" values, as requested.

This will represent the textbox text's!!

[dean.morrison]

Yeah! haha thanks.

It would appear i added the wrong part of my code..

I really shouldn't reply to these first thing in the morning!

[bradeneuropeArthur]

Hi,

The intention is the same anyway, ha ha.

nice evening

[Darin.Green]

@bradeneuropeArthur

How do you set the value for the prompted entry?

Given your suggestion 

oSketchedSymbol.GetResultText(oSketchedSymbol.Definition.Sketch.TextBoxes.Item(1)

Which get's the value from the prompted entry value. Is there away to set the value?

[bradeneuropeArthur · Accepted solution]

oSketchedSymbol.SetPromptResultText(oSketchedSymbol.Definition.Sketch.TextBoxes.Item(1),"YOUR VALUE")

[Darin.Green]

Ah... I kept trying SetResultText instead of SetPromptResultText....

You are the man! Thanks!

[bradeneuropeArthur]

Your thanks are appreciated....