home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / j / jan93.zip / TIP832.LSP < prev    next >
Lisp/Scheme  |  1993-02-12  |  379b  |  11 lines
  1. ; TIP #832:  BACKGRND.LSP (c)1993, Mark H. Miller
  2.  
  3. ; Creates solid blue background for slides
  4. ; by Mark H. Miller, released to public domain.
  5.  
  6. (command ".solid" '(-1 -1) '(22 -1) '(-1 13) '(22 13) "")
  7. (setq ENTCOL (assoc  62 (setq ELIST (entget (entlast)))))
  8. (cond (entcol (entmod (subst '(62 . 5) entcol ELIST)))
  9. (t (entmod (cons '(62 . 5) ELIST))))
  10. ;end backgrnd.lsp
  11.