---

Hallo zusammen,

ich versuche verzweifelt Blöcke mittels VBA umzubenennen.
Mein Progi bleibt aber immer mit den Debugger an folgender Zeile hängen:
Figur.name = "Test" (Figur ist die definierte Blockreferenz)
Folgende Meldung kommt: Schlüssel nicht gefunden

Ich möchte Blöcke umbenennen, da ich aus mehreren Zeichnungen Blöcke in eine neue einfügen muß und es doppelte Blockdefinitionen gibt.
Nun verschiebt es mir teilweise komplette Blöcke.

Kann mir wegen der Fehlermeldung jemand weiterhelfen, bzw. weiß jemand eine andere Lösung für dieses Problem? (Blöcke sind z. T. verschachtelt.

Vielen Dank im vorraus.
CU 

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

---

Hallo,

eine Blockreferenz, wie in deinem Beispiel, kannst du nicht einfach umbenennen, weil sie ja nur auf einen bestehenden Block verweist (referenziert).

>>>Figur.name = "Test" (Figur ist die definierte Blockreferenz)

Wenn dann solltest du den dazugehörigen Blocknamen ändern. z.B.:

Private Sub Command1_Click()
  Dim block As AcadBlock
  Set block = thisdrawing.Blocks("altername")
  block.Name = "neuername"
End Sub

... und schon ist der Block sowie alle entsprechenden Referenzen umbenannt.

Ich hoffe, ich konnte dir damit weiterhelfen.

MfG,
gunfried

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

---

Danke für Deine Antwort.
Funktioniert.

Viele Grüße
Ralph

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