---

Screenshot2021-03-03101518.jpg

Hallo Zusammen,
ich versuche im Schriftfeld die Textbox mit dem Inhalt "Physikalische Eigenschaften - Modell" -> "Masse" zu ändern.
Mit dem Code hier kann ich die Textbox auslesen und auch befüllen.

Inhalt auslesen:

Code:

---

Private Sub MasseAuslesen()
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
    Dim oTitleBlockDef As TitleBlockDefinition
    Set oTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item("DP")
    Dim oSketch As DrawingSketch
    MsgBox oTitleBlockDef.Sketch.TextBoxes(25).Text
End Sub

---

Inhalt schreiben:

Code:

---

Private Sub MasseSchreiben()
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
    Dim oTitleBlockDef As TitleBlockDefinition
    Set oTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item("DP")
    Dim oSketch As DrawingSketch
    Call oTitleBlockDef.Edit(oSketch)
        oSketch.TextBoxes.Item(25).Text = "<MASSE\P1;>"
    Call oTitleBlockDef.ExitEdit
End Sub

---

Allerdings wird es als reiner Text angezeigt und nicht als Variable, welche sich den passenden wert von Inventor holt.

Fällt jemandem eine Möglichkeit ein, mit der ich festlegen kann, dass die Textbox die Eigenschaft "Physikalische Eingeschaften - Modell" -> "MASSE" bekommt?
(siehe Screenshot)

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

---

Hallo

Ersetze bitte in der Sub MasseSchreiben

Code:

---

oSketch.TextBoxes.Item(25).Text = "<MASSE\P1;>"

---

durch

Code:

---

oSketch.TextBoxes.Item(25).FormattedText = "<PhysicalProperty PhysicalPropertyID='72449' Precision='1'>MASSE</PhysicalProperty>"

---

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

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Hallo rkauskh,
danke für die Antwort.
Ich hatte diesen Text schon mal ausprobiert. Damals anscheinend nur unter ".Text" abgelegt. Da ging es nicht.
Jetzt klappt es wunderbar.
Vielen Dank 

[Diese Nachricht wurde von insidERR am 03. Mrz. 2021 editiert.]

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