---

Hi !

Ich bin zu meinem Problem nicht richtig fündig geworden.
In der Zeichnung wurden Texte als AttrDEF eingegeben. Wie kann ich die AttrDEF in einfache Texte umwandeln. Ich habe es schon mit burst und dem Lisp probiert http://ww3.cad.de/foren/ubb/Forum54/HTML/023573.shtml#000003

Gruss cp

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

---

Kann die Datei leider nicht hochladen

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

---

(defun c:attdef2text ( / AUSWAHL INDEX OBJEKT OBJDATA NR)
  (setq NR 0)
  (if(setq AUSWAHL (ssget "_X"  (list '(0 . "ATTDEF")(cons 410 (getvar "CTAB")))))           
    (progn
      (setq INDEX -1)
      (repeat(sslength AUSWAHL)
        (and(setq OBJEKT(ssname AUSWAHL (setq INDEX(1+ INDEX))))
            (setq OBJDATA(entget OBJEKT))
            (setq OBJDATA (subst(cons 0 "TEXT")(assoc 0  OBJDATA)OBJDATA))
            (setq OBJDATA (subst(cons 73 (cdr(assoc 74 OBJDATA)))(assoc 73 OBJDATA)OBJDATA))
            (setq OBJDATA (subst(cons 1 (cdr(assoc 2 OBJDATA)))(assoc 1 OBJDATA)OBJDATA))
            (entmake (vl-remove-if '(lambda(x)
                                      (member (car X) '(-1 330 5 100 2 3 70 73 74 280))
                                    )
                                    OBJDATA
                    )                                     
            )
            (entdel OBJEKT)
            (setq NR (1+ NR))
        )
      ) 
    )
  )
  NR 
)

------------------
  - 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

---

grosses Danke

Grüsse aus Schweden

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