---

Halo zusammen,
ich möchte mir aus dem Schriftfeld einer .idw einen Wert ausgeben lassen der über "Angeforderte Eingabe" eingetragen wurde.
Hiermit werden nicht alle Werte vom Typ "Angeforderte Eingabe" ausgegeben.

Code:

---

Private Sub chkProperties()

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication

  Dim oDoc As DrawingDocument
  Set oDoc = oApp.ActiveDocument

  For i = 1 To oDoc.TitleBlockDefinitions(1).Sketch.TextBoxes.Count

    Debug.Print oDoc.TitleBlockDefinitions(1).Sketch.TextBoxes(i).FormattedText

  Next i

End Sub

---

So gibt es im Schriftkopf z.B. den "Angeforderte Eingabe" Wert Abmessung1 - dieser wird bei der Auflistung mit aufgeführt wo hingegen der "Angeforderte Eingabe" Wert Zustand 1 nicht gelistet wird.

Könnte mir jemand erklären woran das liegen könnte!?

Danke und Gruß

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

---

Hast Du die richtige Definition?
Du greifst auf das erste Schriftfeld in den Ressourcen zu. Das hat nicht unbdingt etwas mit dem zu tun, das auf dem Blatt ist (falls mehrere Schriftfelder im Dokument hinterlegt sind).

Das verwendete Schriftfeld kann man darüber erreichen:
oDoc.ActiveSheet.TitleBlock
oDoc.ActiveSheet.TitleBlock.Definition

Ein anderer Grund fällt mir (jetzt) nicht ein, dass eine Textbox fehlen könnte.

------------------
Gruß KraBBy

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

---

Zitat:

---

Original erstellt von KraBBy:
Hast Du die richtige Definition?
Du greifst auf das erste Schriftfeld in den Ressourcen zu. Das hat nicht unbdingt etwas mit dem zu tun, das auf dem Blatt ist (falls mehrere Schriftfelder im Dokument hinterlegt sind).

Das verwendete Schriftfeld kann man darüber erreichen:
oDoc.ActiveSheet.TitleBlock
oDoc.ActiveSheet.TitleBlock.Definition

Ein anderer Grund fällt mir (jetzt) nicht ein, dass eine Textbox fehlen könnte.

---

Vielen Dank!
In manchen Zeichnungen waren natürlich noch andere Schriftfelder hinterlegt.
Unities sind raus.....

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

---

Hallo,

Mich hat es ja auch interessiert und
so ist dieser Code entstanden 

Code:

---

Private Sub GETTEXT_Suche_Schriftkopf()

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

'Set oTextBox = oDrawDoc.ActiveSheet.TitleBlock.Definition.Sketch.TextBoxes

    For Each Eintrag In oDrawDoc.ActiveSheet.TitleBlock.Definition.Sketch.TextBoxes
   
        If Eintrag.FormattedText Like "*<Prompt*" Then
                Quelle_Text = Eintrag.Text
                Text_ausgelesen = oDrawDoc.ActiveSheet.TitleBlock.GetResultText(Eintrag)
                Debug.Print Quelle_Text & " --- " & Text_ausgelesen
        End If
    Next

End Sub

---

Gruß
BernoAn

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