Hallo Kenny,
über entnext kommst Du an die Attributsdefinition.
Das folgende ist nur als Beispiel zu sehen, mußt Dich mal durchprobieren:
;;Testausgabe von Attributsnamen
(defun c:test ( / aws n m n1 temp def_block)
(princ "\nBitte Blöcke mit Attributen wählen:")
(if (setq aws (ssget (list (cons 0 "INSERT"))))
(progn
(setq n 0)
(repeat (sslength aws)
(setq n1 1)
(while (JB_entnext (ssname aws n)n1)
(if(=(cdr(assoc 0(entget(JB_entnext (ssname aws n) n1))))"ATTRIB")
(princ (strcat "\nBlock: "(cdr(assoc 2(entget(ssname aws n))))", Attname: "
(cdr(assoc 2(entget(JB_entnext (ssname aws n) n1))))
", Attinhalt: "(cdr(assoc 1(entget(JB_entnext (ssname aws n) n1))))
)))
(setq n1 (+ n1 1)))
(setq n (+ n 1)))
)
)
(princ)
)
(defun JB_entnext (element n1 / )
(repeat n1
(setq element (entnext element))))
------------------
viele Grüße
Jörn
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP