---

Hallo.
Ich habe eine Zeichnung mit sehr vielen Texten.
Diese Texte würde ich gerne in eine Textdatei überführen,
damit dann extern übersetzt werden kann.
Weiß jemand wie ich das mit Acad 2002 angehe?
Danke

Mit freundlichem Gruß         
Jürgen

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

---

txt_auslesen.lsp.txt

s. Anhang.
(weiss nur leider nicht mehr, woher ich das damals hatte)

------------------
Grüße Karin

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

---

für Texte und Mtexte auf Blattebene sollte das reichen:

(defun c:Textexport ( / AUSWAHL FILE INDEX)
  (if (and(setq FILE(getfiled "TEXT-Export" "C:\\" "TXT" 1))
          (setq FILE(open FILE "w"))         
          (setq AUSWAHL (ssget "_x" '((0 . "*TEXT"))))
      )                   
    (progn
     
      (setq INDEX -1)
      (repeat (sslength AUSWAHL)
        (princ (cdr(assoc 1 (entget(ssname AUSWAHL(setq INDEX(1+ INDEX)))))) FILE)
        (princ "\n" FILE)
      )
      (close FILE)
    )
  )                   
)

------------------
- Thomas -

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

---

Hallo.
Vielen Dank für die Hilfe.
Klappt sehr gut.

Die Steigerung wäre, wenn man jetzt die Texte in der Textdatei
übersetzen könnte und danach wieder automatisch an den alten
Koordinaten in der Zeichnung einfügen könnte.

Vielen Dank

Jürgen             
 

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