---

Hallo,
wahrscheinlich ist es ganz trivial. Weiß jemand, wie ich über Lisp an den Wert des Wandstils komme ? Im Gruppencode ist da nichts zu finden, aber das muß ja irgendwo stehen.
Gruß Kenny1

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

---

Hallo Kenny1,

es geht auch über den Gruppencode, aber über Active-X ist es einfacher:

--- 8< --- Hier den Glasschneider ansetzen --- 8< ---

(vl-load-com)

(defun c:wandstilname (/ e wallstyle)
  (setq e (entsel "\nWand wählen: "))
  (if (= (cdr (assoc 0 (entget (car e)))) "AEC_WALL")
    (setq wallstyle (vla-get-stylename (vlax-ename->vla-object (car e))))
    (princ "\nKeine Wand gewählt!")
  )
  wallstyle
)

--- 8 <  Hier den Glasschneider ansetzen --- 8< ---

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

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

---

Hallo Torsten,
Danke! Klappt prima. Wieder viel Zeit gespart.
Gruß nach Bremen.
Kenny1

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