---

Mein Problem: Mit einer For...Next-Schleife lese ich nacheinander alle Blöcke aus, die in meiner Zeichnung eingefügt sind.

Set acadDoc = acadApp.ActiveDocument
For I = 0 To acadDoc.Blocks.Count - 1
If Left(Block.Name, 4) = "2del" Then
.
.
Next I

Nun möchte ich, sobald bei Blöcken, die das IF-Kriterium erfüllen, den Einfügepunkt auslesen und in eine Variable schreiben. Aber wie??????

Danke für jede Antwort!!!

Ralf

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

---

Einen Einfügepunkt besitzt ein Block in dem Sinne nicht, da es sich ja um eine Vorlage für Blockreferenzen handelt. Diese wiederum besitzen dann einen Einfügepunkt. Was Du bei einem Block auswerten könntest, wäre dessen Basispunkt, also die Koordinaten, die den Basispunkt der Blockreferenz bilden.

Set acadDoc = acadApp.ActiveDocument
For Each Block In acadDoc.Blocks
If Left(Block.Name, 4) = "2del" Then
  InsPoint = Block.Origin
  'InsPoint(0) -> Rechtswert / X
  'InsPoint(1) -> Hochwert / Y
  'InsPoint(2) -> Höhe / Z
End If
Next

Wenn Du allerdings alle eingefügten Blockreferenzen auswerten möchtest, solltest Du auf den Modell/Papierbereich zurückgreifen.

Set acadDoc = acadApp.ActiveDocument
For i= 0 To acadDoc.ModelSpace.Count - 1
Set moEnt = acadDoc.ModelSpace.Item(i)
If TypeName(moEnt) = "IAcadBlockReference" Then
  If Left(moEnt.Name, 4) = "2del" Then

    InsPoint = Block.InsertionPoint
    'InsPoint(0) -> Rechtswert / X
    'InsPoint(1) -> Hochwert / Y
    'InsPoint(2) -> Höhe / Z
  End IF
End If
Next

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