---

Hallo,

hat jemand eine Idee, wie man Attribute in reinen Text umwandeln kann? Ich habe schon mal bißchen gegoogelt - in Autocad gibt es dafür wohl in den sog. Express-Tools einen Befehl namens BURST.
Im Bricscad (V10) habe ich nicht vergleichbares gefunden. Eine Lisp dafür habe ich im Web gefunden. leider funktioniert die im Bricscad auch nicht.

Viele Grüße
Ulrike Richter

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

---

Hallo Ulrike!

Kannst du bitte das Lisp hier posten, oder sonst die Quelle angeben. Danke.

------------------
Gruß, Stephan
www.stbartl.at

"Alles sollte so einfach wie möglich gemacht werden, aber nicht einfacher." - Albert Einstein

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

---

Hallo.

;*************************************************************************
;** Datei ATTRTXT.LSP
;** Dient zum Umwandeln von sichtbaren Blockattributen in Text
;*************************************************************************
;** Funktionen
;** C:ATTRTOTXT_EXP    Wandelt sichtbare Blockattribute in Text um und
;**                    zerlegt den Block
;** C:ATTRTOTXT_NOEXP  Wandelt sichtbare Blockattribute in Text und setzt
;**                    alle Attributwerte des Blocks auf "", der Block
;**                    wird nicht zerlegt
;*************************************************************************
;** Autor: NAVRATIL Heinz
;** Stand: 04.11.1998
;** Ver.:  4.2 -- AutoCAD Ver. 13 / 14
;** email: hnavratil@KGH.KABA.com
;*************************************************************************

;** ----------------------------------------------------------------------
;** C:ATTRTOTXT_EXP
;** ----------------------------------------------------------------------
(defun C:attrtotxt_exp( / as i e el bn nl l1 l2)
  (if (setq as (ssget))
    (progn
      (setq i 0)
      (while (setq e (ssname as i))
        (setq el (entget e))
        (if (/= (assoc 66 el) nil)
          (progn
            (setq bn e)
            (while (/= (cdr (assoc 0 (setq el (entget e)))) "SEQEND")
              (if (and (= (cdr (assoc 0 el)) "ATTRIB")
                      (/= (logand (cdr (assoc 70 el)) 1) 1)
                  )
                (progn
                  (setq nl (cdr el))
                  (setq nl (subst '(0 . "TEXT") (assoc 0 nl) nl))
                  (setq l1 (cdr (member (assoc 2 nl) nl)))
                  (setq l2 (reverse (cdr (member (assoc 2 nl) (reverse nl)))))
                  (setq nl (append l2 l1))
                  (setq l1 (cdr (member (assoc 70 nl) nl)))
                  (setq l2 (reverse (cdr (member (assoc 70 nl) (reverse nl)))))
                  (setq nl (append l2 l1))
                  (setq nl (subst (cons 73 (cdr (assoc 74 nl))) (assoc 74 nl) nl))
                  (entmake nl)
                )
              )
              (setq e (entnext e))
            )
            (setq le (entlast))
            (command "._EXPLODE" bn)
            (while (setq le (entnext le))
              (if (= (cdr (assoc 0 (entget le))) "ATTDEF")
                (entdel le)
              )
            )
          )
        )
        (setq i (1+ i))
      )
      (command "._REGEN")
    )
  )
  'DANKE
)

;** ----------------------------------------------------------------------
;** C:ATTRTOTXT_NOEXP
;** ----------------------------------------------------------------------
(defun C:attrtotxt_noexp( / as i e el bn nl l1 l2)
  (if (setq as (ssget))
    (progn
      (setq i 0)
      (while (setq e (ssname as i))
        (setq el (entget e))
        (if (/= (assoc 66 el) nil)
          (progn
            (setq bn e)
            (while (/= (cdr (assoc 0 (setq el (entget e)))) "SEQEND")
              (if (and (= (cdr (assoc 0 el)) "ATTRIB")
                      (/= (logand (cdr (assoc 70 el)) 1) 1)
                  )
                (progn
                  (setq nl (cdr el))
                  (setq nl (subst '(0 . "TEXT") (assoc 0 nl) nl))
                  (setq l1 (cdr (member (assoc 2 nl) nl)))
                  (setq l2 (reverse (cdr (member (assoc 2 nl) (reverse nl)))))
                  (setq nl (append l2 l1))
                  (setq l1 (cdr (member (assoc 70 nl) nl)))
                  (setq l2 (reverse (cdr (member (assoc 70 nl) (reverse nl)))))
                  (setq nl (append l2 l1))
                  (setq nl (subst (cons 73 (cdr (assoc 74 nl))) (assoc 74 nl) nl))
                  (entmake nl)
                  (setq el (subst '(1 . "") (assoc 2 el) el))
                  (entmod el)
                )
              )
              (setq e (entnext e))
            )
          )
        )
        (entupd bn)
        (setq i (1+ i))
      )
      (command "._REGEN")
    )
  )
  'DANKE
)

(princ "\nAufruf mit: attrtotxt_exp oder attrtotxt_noexp\n")
(princ)

Habe ich mal irgendwo gefunden

------------------
Gruss Dani

Eboplan GmbH

clevere Tool's für Bricscad, ecscad und AutoCAD & LT

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

---

Hallo Dani,

vielen vielen Dank - die LISP funktioniert tadellos. Da kann ich mir viel Arbeit sparen.

Viele Grüße
Ulrike

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