---

Hallo Leute,
wollte nachfragen, ob es mit VL-... nicht eine elegante Variante gibt, Attribute von einem Block auszulesen bzw. durch neue Werte zu ersetzen? Im Forum habe ich eigentlich nur die althergebrachte Methode gefunden, sich mit entnext durch die Datenlisten zu bewegen, bis der entsprechende Wert gefunden ist.

Danke und Grüße
Daniel

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

---

Hallo Daniel,
folgendermaßen könntest Du verfahren:

Code:

---

(defun c:AttList( / A OBJ VLA-OBJ)
  (if (setq obj(car (entsel "\nBlock mit Attributen:")))
    (if (and (setq vla-obj (vlax-ename->vla-object obj))
            (=(vla-get-ObjectName vla-obj)"AcDbBlockReference")
            (=(vla-get-hasattributes vla-obj):vlax-true))
      (mapcar 'vlax-vla-object->ename
        (vlax-safearray->list (vlax-variant-value
                                (vla-getattributes vla-obj))))))
  )

---

Falls Du als Rückgabe VLA-Objekte anstelle von Entity-Names haben willst läßt Du die Funktion "(mapcar 'vlax-vla-object->ename ..." weg.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Koordinatenausgabe Youtube

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