(defun c:wro ( ) ;; stands for "write out"
(setvar "filedia" 1)
(setq lspdir "c:\\r13\\lsp\\") ;; set to directory of default txt file
(setq txtfile (strcat lspdir "notes")) ;;default txt file
(setq filenm (open (getfiled "Write out text file." txtfile "txt" 11) "a"))
;;dialogue box to pick file to create or append
(setq txt (ssget)) ;;be sure to pick lines as you want them to appear in the
txt file
(setq n (sslength txt))
(setq index 0)
(repeat n
(setq ln1 (ssname txt index))
(setq index (+ index 1))
(setq lname (entget ln1))
(setq line (assoc 1 lname))
(setq line1 (cdr line))
(write-line line1 filenm)
)
(close filenm)
);end wro.lsp