---

Hallo
Wie kann ich mit VB.net
den Schrift Kopf in Inventor IDW Zeichnung ausfüllen??

Grüße aus Bochum

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

---

Hallo

TitleBlock des aktiven Blattes nehmen, in einer Schleife durch die TextBoxen laufen und jeweils gewünschten Text einfüllen.

------------------
MfG
Ralf

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

---

Frage : Wie kann die Schleife aussehen

mit dem Quellcode bekomme ich kein Ergebnis , bzw. Fehler

        Dim oDraw As Inventor.DrawingDocument
        oDraw = _invApp.ActiveDocument
        Dim oSheet As Inventor.Sheet = oDraw.ActiveSheet
        Dim schriftfeld As TitleBlockDefinition = oSheet.TitleBlock.Definition

        For Each otbox As Inventor.TextBox In schriftfeld.Sketch.TextBoxes
            REM mgBox(otbox.FormattedText & " - " & otbox.Text)

            If otbox.Text = "Kunde" Then
                otbox.Text.value = "TESTTT"  'Wert zum übertragen !!!!!!
            End If

        Next

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

---

Hallo

Der "Trick" ist das Öffnen der Schriftfelddefinition zum Bearbeiten. Genau so wie's in der GUI auch geht. Am Ende Bearbeitung wieder beenden und Änderungen speichern lassen.

Code:

---

Private Sub textbox()

Dim oDraw As Inventor.DrawingDocument
oDraw = ThisApplication.ActiveDocument
Dim oSheet As Inventor.Sheet
oSheet = oDraw.ActiveSheet
Dim schriftfeld As TitleBlock
schriftfeld = oSheet.TitleBlock
Dim otbox As Inventor.textbox
Dim oSketch As DrawingSketch

Call schriftfeld.Definition.Edit(oSketch)

For Each otbox In oSketch.TextBoxes
    'MsgBox (otbox.FormattedText & " - " & otbox.Text)
    If otbox.Text = "Kdnr:" Then
        otbox.Text = "TESTTT" 'Wert zum übertragen !!!!!!
    End If
Next

Call schriftfeld.Definition.ExitEdit(True)
End Sub

---

------------------
MfG
Ralf

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