home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR506.ZIP / ACAD2.EXE / CLS.DOC < prev    next >
Text File  |  1989-01-28  |  435b  |  17 lines
  1. ; *****************************************************************
  2. ;
  3. ;        CLS.LSP
  4. ;
  5. ;      Author: Paul Nance
  6. ;        Home: (919)-226-3648
  7. ;  Compuserve: [73627,1733]
  8. ;
  9. ;  Function Description
  10. ;  -------------------------------------------------------------
  11. ;     C:CLS  This will quickly clear the text screen
  12. ;             while in AutoCAD (Rel. 9)
  13. (defun C:CLS (/ a )
  14.   (setq a (princ "\e[2J"))
  15.   (princ)
  16.   )
  17.