---

Hi zusammen

Kann ich in VBA auf den Inhalt eines Blocks zugreifen um etwas zu verändern (Objekte löschen) ohne ihn dabei aufzulösen? Also im Prinzip der REFEDIT-Befehl.

Vielen DAnk für die Hilfe

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

---

Hallo Hänk,

Du kannst auf die einzelnen Elemente des Blocks folgendermaßen zugreifen:

Public Sub Testblock()
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)
block.Item(1).Delete
End Sub

Die Frage ist nur, wie du an das zu löschende Element kommst.

Was macht dein Problem(Hier) mit dem Drucken?!

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 13. Jul. 2006 editiert.]

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

---

Hallo

Vielen Dank, das werde ich heute mal probieren. Die Auswahl dazu müsste eigentlich mit einem SelectionSet gemacht werden können oder?

Beim anderen angesprochenen Fall lags nicht an der Variable sondern um einen Syntaxfehler im Code.

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

---

Hallo Hänk,

Du erhälst ja unter Auflistung Block.Item(...) alle Elemente des Blocks. Entweder du kennst die Item-Nummer und löscht darüber das Element, oder du fragst bestimmte Bedingungen ab (Was bessser wäre). Ein Selection brauchst du dafür aber nicht, da du die Elemente ja schon hast.

Gruß, Carsten

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