home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / TXTOUT.LSP < prev    next >
Text File  |  1987-07-12  |  768b  |  22 lines
  1. (defun C:TXTOUT (/ va vb vc vd ve vf vg);V1.0
  2. ;By Scott Hull, 11-20-86
  3. ;SAH Mechanical Design (415) 343-4015
  4. ;Exports ASCII text to file.
  5.  
  6.  (defun *error* (st) (prompt (strcat "error: " st "\007\n")))
  7.  
  8.  (setq va (getstring "Name of ASCII file to create: ") vb (open va "r"))
  9.  (if (/= vb nil) (progn (close vb) (setq vc (ascii (strcase (getstring
  10.  "A file with this name already exists.\nDo you want to replace it? <N> ")))))
  11.   (setq vc 89))
  12.  (if (= vc 89) (progn
  13.    (setq vb (open va "w") vd (ssget) ve (sslength vd) vf 0)
  14.    (while (< vf ve)
  15.     (if (= "TEXT" (cdr (assoc 0 (setq vg (entget (ssname vd vf))))))
  16.      (write-line (cdr (assoc 1 vg)) vb))
  17.     (setq vf (1+ vf)))
  18.    (close vb)
  19.    (eval "DONE"))))
  20. 
  21. t (ssname vd vf))))))
  22.      (write-l