---

Gibt es ein Tool für AutoCAD 2000i, mit dem es möglich ist, alle selektierten Texte in eine Text-Datei (.txt) zu schreiben?

------------------
Helmut Backs
Polysius AG

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

---

Hai

Hab was auf cadwiesel.de gesehen. Schau mal unter Texte

------------------
Gruß
CADwiesel

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

---

Hallo Herr Backs,

mit der folgenden Lisp-Datei ist ihr Prblem gelöst.
Gruß
Theodor Schönwald
---------------------------------------------------
;;; Text-Ausgabe in Datei
;;; 30.03.1997  V1.0e
;;                                       
(defun C:TA (/ ext$ elem zeil pnam aend)

(SETQ pnam "\nText in eine Datei, V 1.0  \n")

(SETQ
  c_e (GETVAR "CMDECHO")                ; ECHO
  g_m (GETVAR "GRIDMODE")              ; RASTER
  b_m (GETVAR "BLIPMODE")              ; Markierungspunkte
  p_b (GETVAR "PICKBOX")                ; Objektfangfenster
)

(SETVAR "CMDECHO" 0)
(SETVAR "GRIDMODE" 0)
(SETVAR "BLIPMODE" 1)
(SETVAR "PICKBOX" 3)                  ; Pixel Objektfangfenster

(DEFUN R_VAR ()
  (SETVAR "CMDECHO" c_e)
  (SETVAR "GRIDMODE" g_m)
  (SETVAR "BLIPMODE" b_m)
  (SETVAR "PICKBOX" p_b)
  (setq a_u NIL
        ins NIL
        file NIL
  )
)

(GRAPHSCR)
(PROMPT pnam)
;;---------------------------------------------------------------

(setq elem T
      z T
      ins NIL
)
(initget "A U")
(setq a_u (getkword "\n \n \nTextdatei ueberschreiben/anhaengen? U/<A>: "))
(if (or (= a_u "A") (= a_u "a") (not a_u))
  (setq ins T)
)

;; dnam  TXT Dateiname abfragen
(defun dnam (/ a)
  (setq a (getfiled "Auswahl einer Text-Datei" "" "TXT" 9))
)

(if ins
  (setq filename (dnam)
        file    (open filename "a")
  )
  (setq filename (dnam)
        file    (open filename "w")
  )
)

(graphscr)
(princ "\nBitte Text anklicken ...")
(setq asa (ssget '((0 . "TEXT"))))
(if (= asa nil)                        ; wenn kein Element
  (prompt "\nKein Text gewaehlt ")      ; dann
  (setq wasa (sslength asa))            ; sonst Laenge Auswahlsatz
)                                      ; end if

(setq z 0)                            ; Anfangswert
(while (< z wasa)                      ; fuer alle Elemente
  (setq elem (entget (ssname asa z)))  ; Element
  (setq zeil (cdr (assoc 1 elem)))      ; Text auslesen ...
  (if zeil
  (write-line zeil file)
  )                                    ; ... in TXT-Datei schr.
  (setq z (1+ z))                      ; Zaehler +1
)
(close file)                          ; Datei schliessen

;; TXT-Datei listen
(initget "J N")
(setq aend (getstring "\n \n \nTextdatei listen? N/<J>: "))
(if (or (= aend "J") (= aend "j") (= aend ""))
  (command "SHELL" (strcat "notepad " filename))
)

(R_VAR)
(prompt "\n \n ")
(princ)
)                                      ; End defun c:....
(princ "\nTextausgabeprogramm \"TA\" geladen.\n")
(princ)

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