home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / cad / may93.zip / TIP871.LSP < prev    next >
Lisp/Scheme  |  1993-05-12  |  455b  |  22 lines
  1. ; TIP871.LSP   [GRPS.LSP]
  2. ;   Toggle Grips   (c)1993, Chris Winsor
  3.  
  4. (DEFUN C:G ()
  5.    (setq v (getvar "grips"))
  6.    (if (= v 0)
  7.       (progn
  8.          (setvar "grips" 1)
  9.    (prompt "\nGrips are on!")))
  10.    (if (= v 1)
  11.       (progn
  12.          (setvar "grips" 0)
  13.    (prompt "\nGrips are off!")))
  14.    (princ)
  15. )
  16. ;
  17. ;AddQ a similar line like this to your modemacro
  18. ;lisp file if you are using this feature...
  19. ;
  20. ;"$(if,$(getvar,grips),    Grips)"
  21.  
  22.