---

Hallo

ich möchte einen Block mit bestimmten Namen auswhlen und zoomen.

Geht das?

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

---

Ein Block ist ein Containerobjekt und kein Geometriebjekt, du meinst sicher eine Blockreferenz. Davon kann es je Block aber mehrere geben..

eine Lisplösung wäre z.B:

(command "_zoom" "_o"(ssget "_x" (list '(0 . "INSERT")'(2 . "qq")(cons
410 (getvar "CTAB"))))"")

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo

und wo muss ich den namen einsetzten in der funktion der gesucht werden soll?

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

---

statt "qq" nimm "BLOCKNAME" ... deinen Blocknamen halt ..

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Vielen Dank

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

---

Hallo Hugo,

du kannst zunächst ein Selectionset bilden. Dabei kannst du einen Filter auf Blockreferenz (INSERT) und den Blocknamen mitgeben.

Code:

---

FCode(0) = 0 'DXF-Gruppencode
FData(0) = "Insert" 'Blöcke
FCode(1) = 2 'DXF-Gruppencode
FData(1) = BLKName 'Name

---

Wenn es eine Eifügung gibt, kannst du mit GetBoundingbox die Ausmasse deiner Blockeinfügung ermitteln.

Code:

---

    Dim obj As AcadEntity
    Dim MinPkt As Variant
    Dim MaxPkt As Variant
    '...
    obj.GetBoundingBox MinPkt, MaxPkt

---

Und dann mit Zoom an die Stelle springen.

Code:

---

ZoomWindow MinPkt, MaxPkt

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

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