---

Hallo Leute,
ist es möglich, die Attributdefinitionen über eine Lispprogramm auszulesen ? In den "normalen" GC  finde ich nichts. Wenn ja, wie ?

Gruß Kenny1

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

---

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