---

Hallo,

ich möchte Schriftfelder per VBA/ilogic austauschen. Es handelt sich um unterschiedliche Schriftfelder mit Feldtext.

Solange ich gleiche Schriftfelder austausche gibt es kein Problem. Bei unterschiedlichen Schriftfelden funktinoiert es dagegen nicht.

Kann mir jemand helfen?

Danke

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

---

Hallo

Wenn du mit Feldtext angeforderte Eingaben meinst, die beim normalen Einfügen den Dialog zum Ausfüllen erscheinen lassen, die Eingaben des neuen Schriftfeldes müssen in der richtigen Reihenfolge beim Einfügen als Stringarray mitgegeben werden. Kann sein, das bei gleicher Anzahl Inventor automatisch die alten übernimmt und deswegen kein Fehler kommt.
Sollen die alten Eingaben übernommen werden, mußt du die vorab in ein Stringarray auslesen, sortieren, um die fehlenden neuen Angaben ergänzen und dem neuen Schriftfeld mitgeben.
Die Reihenfolge der Eingaben kannst du aus dem Dialog beim Einfügen ablesen oder im Debugger die Reihenfolge der Textboxes anschauen.

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

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

---

Danke für die schnelle Antwort. Kannst du mir dazu auch den passenden Syntax geben,welchen ich verwenden kann?

Danke

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

---

Hallo

Sieh dir mal das Beispiel aus der Inventor Programmierungshilfe an. Array mit entsprechender Größe (die Anzahl muß exakt der Anzahl der angeforderten Eingaben entsprechen) anlegen und beim Einfügen mitgeben. Zum Auslesen der Inhalte im alten Schriftfeld schau dir mal die TitleBlock.GetResultText Methode an. Das Auslesen sollte vor dem Löschen des alten Schriftfeldes erfolgen. Du mußt dann, abweichend vom Beispiel erst das Array anlegen und füllen.

Code:

---

Public Sub InsertTitleBlockOnSheet()
    ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

    ' Obtain a reference to the desired border defintion.
    Dim oTitleBlockDef As TitleBlockDefinition
    Set oTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item("Sample Title Block")

    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.ActiveSheet

    ' Check to see if the sheet already has a title block and delete it if it does.
    If Not oSheet.TitleBlock Is Nothing Then
        oSheet.TitleBlock.Delete
    End If

    ' This title block definition contains two prompted string input.  An array
    ' must be input that contains the strings for the prompted strings.
    Dim sPromptStrings(1 To 2) As String
    sPromptStrings(1) = "String 1"
    sPromptStrings(2) = "String 2"

    ' Add an instance of the title block definition to the sheet.
    Dim oTitleBlock As TitleBlock
    Set oTitleBlock = oSheet.AddTitleBlock(oTitleBlockDef, , sPromptStrings)
End Sub

---

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

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

---

Kann ich auch einfach das Schriftfeld rauslöschen und ein anderes einfügen ohne den Feldtext mitzugeben?

danke

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

---

Moin

Jain. Wenn in dem neuem Schriftfeld angeforderte Eingaben enthalten sind, müssen die mitgegeben werden. Es sagt aber niemand, das die Felder nicht leer sein dürfen.
Also, zähl die angeforderten Eingaben und erstelle ein leeres Array mit der entsprechenden Anzahl Felder und gib das leere Array mit. Das sollte genügen.

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

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