home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / autocad / may91.arj / TIP659.LSP < prev    next >
Text File  |  1991-05-13  |  214b  |  13 lines
  1. ;TIP659.LSP   Lisp Library   (c)1991, Greg Kaufman
  2.  
  3. (defun :LGET ()
  4.   (setq CLAYER (getvar "CLAYER"))
  5.   (princ)
  6. )
  7. (defun :LSET ()
  8.   (setvar "CMDECHO" 0)
  9.   (command ".LAYER" "S" CLAYER "")
  10.   (princ)
  11. )
  12. 
  13.