---

Liebe Mitmenschen,
weiß jemand, wie man viele (kurze) Texte in einem Rutsch (per Fenster ziehen ) in eine Textdatei exportieren kann? Die Forumssuche findet nichts wirklich brauchbares.
Gruß
Frank

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

---

Hallo Frank,

ich kann mir nicht vorstellen, dass du nicht irgendwelche Code-Schnipsel gefunden hast, die dir den Weg aufgezeigt hätten. Egal - folgend ein paar Zeilen, die das machen, was du dir vorstellst.

Code:

---

(defun c:txt->txt (/ f aws)
  (setq f (open "c:\\Texte.txt" "w"))
  (princ"\nTexte wählen: ")
  (mapcar '(lambda (TXT)
    (princ (cdr(assoc 1 TXT))f)
    (princ "\n" f)
    )
  (mapcar 'entget (bau_elemli(if (setq aws(ssget '((0 . "*TEXT"))))aws)))
  )
  (close f)
  (princ)
  )
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli(cons (ssname asatz n) elemli)
  n (1+ n))
    )
  elemli
  )

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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