---

Hallo zusammen,

ich möchte in eine bestimmte "angeforderte Eingabe" in einem Zeichnungssymbol, den Text ändern, bekomme es allerdings nicht hin.
Mit dem Beispiel aus der Hilfe kann ich zwar das ganze Array übergeben,
aber normalerweise müsste es ja auch so gehen:

Code:

---

Dim oSketchedSymbol As Inventor.SketchedSymbol
        Try
            For Each sym As Inventor.SketchedSymbol In oSheet.SketchedSymbols
                Debug.WriteLine(sym.Name)
                If sym.Name = "Symbol-Name" Then sym.Definition.Sketch.TextBoxes.Item(3).Text = "Hallo"
            Next

---

Leider bekomme ich dann nur einen API Fehler zurück "unbekannter Fehler"
Irgendwie komisch.

Gruß

Maik Schmitz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo alle zusammen,

hab es jetzt selber heraus gefunden.
Mit dem vorherigem Code habe ich versucht die Bezeichnung der Textbox zu ändern und nicht den Inhalt!

Folgender Code funktioniert:

Code:

---

           For Each sym As Inventor.SketchedSymbol In oSheet.SketchedSymbols
                            If sym.Name = "Symbolname" Then
                    For Each tb In sym.Definition.Sketch.TextBoxes
                        If tb.Text = "Progr.-Nr.(Rob1)" Then sym.SetPromptResultText(tb, "Hallo")
                    Next
                End If
            Next

---

Gruß

Maik Schmitz

[Diese Nachricht wurde von mssoftware am 13. Jan. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP