---

Hallo zusammen,

hab mittlere Erfahrung in VBA-Programmierung, scheitere aber gerade daran, in ausgewählten Blöcken meiner Zeichnung vorgegebene Textstrings zu ersetzen.
Auswahle und Ersetzen ist kein Problem und funktioniert bei allen Texten und MTexten außerhalb von Blöcken einwandfrei. Ich komme aber an die Texte im Block (genauer in der Blockreferenz "acdbblockreference") nicht ran ohne diesen zu explodieren.
Ich freu mich schon auf Eure Ideen.

Danke!

Daniel

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

---

Hi Daniel,

Probiers mal so:

Code:

---

Public Sub aaa()
Dim Block As AcadBlock
Dim Object As AcadObject
Dim Ausgabe As String
Dim Pickedpoint As Variant
On Local Error Resume Next
Ausgabe = "Objekt wählen:"
ThisDrawing.Utility.GetEntity Object, Pickedpoint, Ausgabe
Set Block = ThisDrawing.Blocks(Object.Name)
'Ab hier enthält "Block" die einzelnen Elemente des Blocks
End Sub

---

Gruß, Carsten

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

---

Hallo Carsten,

vielen Dank für die Antwort. Ich hatte zwischenzeitlich auch noch nen Geistesblitz.

Wenn ich mir erst 'BlockRef.Name' raussuche von der Blockreferenz die verändert werden soll und dann
aus 'ThisDrawing.Blocks' denjenigen Block raussuche mit dem gleichen Namen, habe ich den richtigen Block zur Bearbeitung. Und dann

For Each Entity In Block
  ... usw.

Es funktioniert als mittlerweile.

Danke und Tschüß

Daniel

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