home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / APOG / CCL.ZIP / CCL.LSP
Encoding:
Lisp/Scheme  |  1992-05-19  |  230 b   |  10 lines
  1. ; CHANGES OBJECTS TO THE CURRENT LAYER
  2. (defun c:ccl ()
  3. (GRAPHSCR)
  4. (SETVAR "CMDECHO" 0)
  5.    (print"\nWhat is to be changed to current layer:" )
  6.    (ssget)
  7.       (command "CHPROP" "P" "" "LA" (getvar "clayer") "")
  8. (PRINT)
  9. )
  10.