Teksto eksportavimas į failą

Galima visą pažymėta tekstą brėžinyje įsirašyti į tekstini failą.

Žemiau yra lisp kodas kuris tą reikaliuką ir padaro, visą pažymėta tekstą irašo txt formatu


 
(defun c:TXTOUT (/ elist en fn fname i ss txt)
(setvar "cmdecho" 0)
(if (setq ss (ssget (list (cons 0 "TEXT"))))
(progn
(setq fname (getfiled "Save Text File As:" "" "txt" 1))
(setq fn (open fname "w"))
(setq i -1)
(repeat (sslength ss)
(setq i (1+ i))
(setq en (ssname ss i)
elist (entget en)
txt (cdr (assoc 1 elist)))
(write-line txt fn))
(close fn)))
(princ (strcat "\n* Text file " fname " \n has been created *"))
(setvar "cmdecho" 1)

(setq fn fname)
(startapp (strcat "Notepad " (chr 34) fn (chr 34)))
(princ))