home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / CAD / PKEY11_1.ZIP / LF.LSP < prev    next >
Encoding:
Text File  |  1992-03-14  |  645 b   |  24 lines
  1. ;
  2. ;      TURNS THE LAYER OFF......................LF
  3. ;      THEN TURNS IT BACK ON WHEN NEEDED........LO
  4. ;
  5. ;                     ********Patrick J. McKee, author********
  6. ;                       ****Copyright 1992, Power Key tm****
  7. ;
  8. ;
  9. (defun c:LF (/ a b c d)
  10. (graphscr)
  11. (prompt "\nSelect Object on Layer to OFF...")
  12. (setq a (entsel))
  13. (setq b (entget (car a)))
  14. (setq LO (cdr (assoc 8 b)))
  15. (setq d (getvar "CLAYER"))
  16. (if (= LO d)
  17.   (prompt "\nCannot turn off Current Layer, Change to New Layer...")
  18.   (command "layer" "OF" LO "")
  19. ))
  20. ;EOF LF
  21. ;               THIS BEGINS LAON.LSP
  22. (DEFUN C:LO()
  23. (COMMAND"LAYER""ON" LO ""))
  24. ;EOF LO