---

Hallo zusammen,

ich möchte gern per VBA ein Schriftfeld umbenennen.
Weiß da jemand eine Lösung?

Gruß
Reinhard

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

---

Hallo Reinhard,

vielleicht findest du hier etwas in der Inventor-API-Hilfe:
TitleBlockDefinition Object Members, exitedit
"Method that closes the currently active sketch (see below for limitations) and depending on the input parameters, replaces the sketch of the title block definition with the edited sketch. You can also choose to create a new title block definition using the edited sketch or close the edited sketch without saving any changes. This method is only valid to be called when a sketch associated with a TitleBlockDefinition object has been opened for edit using the Edit method of the TitleBlockDefinition object, otherwise an error will occur."

Also alten Titelblock zum Ändern öffnen, Kopie unter neuem Namen speichern, alten Titelblock löschen.
Auch eine Art von Rename.
Geht aber wohl nur, wenn der alte Block nicht auf einem Blatt eingefügt ist.
Also die gleichen Möglichkeiten wie als User am Bildschirm.

Grüße

Manfred

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

---

Hallo Manfred,

danke für die Antwort aber das hilft mir nix.
Ich möchte das auf dem Blatt eingefügte Schriftfeld umbenennen und danach ein Schriftfeld mit dem gleichen Namen einfügen.
Dadurch werden angeforderte Eingaben im Schriftfeld übernommen.

Manuell kann man das genau so machen.
Schriftfeld in der Definition umbenennen -> Schriftfeld auf dem Blatt wird umbenannt -> jetzt kann ich per VBA das Schriftfeld austauschen

Vielleicht kann da ja doch noch wer helfen.

Gruß
Reinhard

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

---

Hallo Reinhard,

dann vielleicht so:

Set oDrawDoc = ThisApplication.ActiveDocument

Dim oTitleBlockDef As TitleBlockDefinition
Set oTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item("alterName")

MsgBox oTitleBlockDef.Name

oTitleBlockDef.Name = "neuerName"

MsgBox oTitleBlockDef.Name

Die Eigenschaft Name ist read /write, steht falsch als readonly in der Doku

Grüße

Manfred

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

---

Fehler.jpg

Hallo Manfred,

bei mir geht das so nicht, siehe Bild.
Hast du das probiert?

Gruß
Reinhard

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

---

Hallo Reinhard,

ja, habe ich ausprobiert und eben gerade nochmals.
Es funktioniert bei mir ohne Probleme (IV 2008).

Auch der Compiler meldet keinen Fehler.

Ich habe das Schriftfeld mehrfach umbenannt.

Sub test33()
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oTitleBlockDef As TitleBlockDefinition
Set oTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item("Test")
MsgBox oTitleBlockDef.Name

oTitleBlockDef.Name = "neuerTest"
MsgBox oTitleBlockDef.Name

End Sub

Die idw muss aktiv sein, das alte Schriftfeld muss vorhanden sein.

[Diese Nachricht wurde von Manfred Zirk am 03. Dez. 2007 editiert.]

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