Wie exportiere ich alle Texte aus einer AutoCAD-Zeichnung nach Excel?

Was cadssistant tut

1. Wählt TEXT und MTEXT (und auf Wunsch die ATTRIB-Elemente in Blöcken) mit einem Filter aus und liest Inhalt (Gruppencode 1) und Layer (8) jedes Elements.
2. Antwortet mit einer Tabelle: Layer und Inhalt, dazu Handle, Höhe, X und Y, wenn Sie danach fragen. MTEXT-Inhalte kommen mit ihren Formatierungscodes (\P, Schriften); sagen Sie „entferne die Formatierungscodes“ für reinen Text.
3. Kopieren (tabulatorgetrennt) oder Excel (CSV über den Speichern-Dialog von AutoCAD) an der Tabelle. Die Antwort ist der Export.

Dieselbe Aufgabe in AutoLISP

(progn
  (setq ss (ssget "_X" '((0 . "TEXT,MTEXT"))) i 0
        f (open "C:/temp/text.csv" "w"))
  (write-line "handle,layer,height,x,y,text" f)
  (if ss
    (repeat (sslength ss)
      (setq ed (entget (ssname ss i)) i (1+ i) p (cdr (assoc 10 ed)))
      (write-line (strcat (cdr (assoc 5 ed)) "," (cdr (assoc 8 ed)) ","
                          (rtos (cdr (assoc 40 ed)) 2 2) ","
                          (rtos (car p) 2 3) "," (rtos (cadr p) 2 3) ",\""
                          (cdr (assoc 1 ed)) "\"") f)))
  (close f)
  (if ss (sslength ss) 0))

Setzt die Textspalte in Anführungszeichen. Ein Text, der selbst ein Anführungszeichen enthält, braucht trotzdem eine Maskierung, und MTEXT über 250 Zeichen läuft in Gruppe-3-Codes weiter, die diese Zeile nicht liest.

Mehr aus „Export nach Excel und PDF“

• Wie exportiere ich Einfügepunkte von Blöcken aus AutoCAD nach Excel?
• Wie erstelle ich aus den Blöcken einer AutoCAD-Zeichnung eine Stückliste?
• Wie drucke ich in AutoCAD alle Layouts auf einmal als PDF?