---

Hi mal wieder :-)

von einem Problem zum nächsten ...

Jetzt versuche ich nur Textfelder im TitelBlock zu ändern über die .Text Eigenschaft der Inventor.Textbox.

Bei einem direktem Zugriff auf die TextBox erscheint Fehler 'Die Methode 'Text' für das Objekt '_IRxTextBox' ist fehlgeschlagen'

Nur wenn man vorher den TitleBlock.Edit Befehl aufruft kann man den Inhalt der Textboxen ändern.

Soweit so gut nur leider gibt es einen 'blöden Nachteil' Ich habe an bestimmten Textboxen Attribute hinterlegt welche nach dem 'Edit' Befehl leider gelöscht werden.

Kennt einer von euch einen Trick wie man ohne den Edit Befehl trotzdem den Inhalt der Textboxen ändern kann ?

Gruß
Micha

hier noch einwenig code zum Testen :

Sub TesteTextboxGeht()
Dim tx As Inventor.TextBox
Dim txS As Inventor.TextBoxes
Dim mDoc As DrawingDocument
Dim cSheets As Sheets
Dim cSheet As Sheet

Set mDoc = ThisApplication.ActiveDocument

Set cSheets = mDoc.Sheets
Dim sk As DrawingSketch
Dim icnt As Integer
For Each cSheet In cSheets
    Set txS = cSheet.TitleBlock.Definition.Sketch.TextBoxes
    Dim tBlock As TitleBlockDefinition
        Set tBlock = cSheet.TitleBlock.Definition
            Call tBlock.Edit
            Set txS = sk.TextBoxes
            For Each tx In txS
                    On Error Resume Next
                    tx.Text = "TEST"
                    If Err.Number <> 0 Then
                      Debug.Print "Error:" & tx.Text & "/"; tx.Type
                      Err.Clear
                    End If
            Next tx
    tBlock.ExitEdit False 'False damit nix gespeichert wird
Next cSheet

End Sub
Sub TesteTextboxGehtNicht()

Dim tx As Inventor.TextBox
Dim txS As Inventor.TextBoxes
Dim mDoc As DrawingDocument
Dim cSheets As Sheets
Dim cSheet As Sheet

Set mDoc = ThisApplication.ActiveDocument

Set cSheets = mDoc.Sheets
For Each cSheet In cSheets
    Set txS = cSheet.TitleBlock.Definition.Sketch.TextBoxes
            For Each tx In txS
                    On Error Resume Next
                    tx.Text = "TEST"
                    If Err.Number <> 0 Then
                      Debug.Print "Error:"; Err.Description; " "; tx.Text; "/"; tx.Type
                      Err.Clear
                    End If
            Next tx
Next cSheet

End Sub

------------------
http://classicvb.org/petition/

   

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Hallo Michael,

der Inhalt der Textboxen sind doch iProperties, die amgezeigt werden. Die entsprechende Property ändern, Dokument aktualisieren - fertig.

Oder versteh' ich jetzt was falsch ???

Grüsse,

Paul

www.morecam.ch
www.thinkcad.de

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

---

Hi,

na ganz falsch liegst du da nicht ;o), ich hab aber was anderes vor ;o) Ich hab eigentlich vor die Textboxen im Schriftfeld zu 'pimpen' sodaß sich diese aus einer anderen Datenquelle als den iProps füllen.
Ich hab es jetzt gerade auch hinbekommen
[Schuld ist das AttributeSet und seine OwnerCopy Flag]

Gruß 
Micha

------------------
http://classicvb.org/petition/

   

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Zitat:

---

zu 'pimpen'

---

...ist das sowas wie pimpern?

Gruß
Seher

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