home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / autocad / may91.arj / TIP657B.LSP < prev    next >
Text File  |  1991-05-13  |  252b  |  13 lines
  1. ;TIP657B.LSP   Altered version of TIP657   (c)1991, CADalyst Magazine
  2.  
  3. (defun LTOA2 (QL / FH)
  4.   (setq FH (open "temp.txt" "w"))
  5.   (prin1 QL FH)
  6.   (close FH)
  7.   (setq FH (open "temp.txt" "r"))
  8.   (setq QL (read-line FH))
  9.   (close FH)
  10.   QL
  11. )
  12. 
  13.