;|
 *********************************************
 *                                           *
 *    Toggle Angels at 10 15 45 degrees      *
 *   www.MadSteelSoftware.com  Ver 1-2007    *
 *                                           *
 *    Toggle Your snap angle evey 10 15      *
 *   or 45 and back to 0.0 degress.  Just    *
 *   by typing in 0 10 15 or 45 and enter    *
 *                                           *
 * *******************************************
|;

; For This Program To Work Rename This File From *.TXT To *.LSP

   (defun c:45      ()  (C:start45    ) )
   (defun c:15      ()  (C:start15    ) )
   (defun c:10      ()  (C:start10    ) )


   (defun c:start10    ()
   (command "ucs" "W")
   (setq  C-sang (atof (angtos (getvar "snapang"))))
   (command "ucs" "W")(command "snapang" "0"  )
   (if (= C-sang  0 ) (progn (command "snapang" "10" ) (prompt "\nSnap Angle Set To 10   " )    ))
   (if (= C-sang 10 ) (progn (command "snapang" "20" ) (prompt "\nSnap Angle Set To 20   " )    ))
   (if (= C-sang 20 ) (progn (command "snapang" "30" ) (prompt "\nSnap Angle Set To 30   " )    ))
   (if (= C-sang 30 ) (progn (command "snapang" "40" ) (prompt "\nSnap Angle Set To 40   " )    ))
   (if (= C-sang 40 ) (progn (command "snapang" "50" ) (prompt "\nSnap Angle Set To 50   " )    ))
   (if (= C-sang 50 ) (progn (command "snapang" "60" ) (prompt "\nSnap Angle Set To 60   " )    ))
   (if (= C-sang 60 ) (progn (command "snapang" "70" ) (prompt "\nSnap Angle Set To 70   " )    ))
   (if (= C-sang 70 ) (progn (command "snapang" "80" ) (prompt "\nSnap Angle Set To 80   " )    ))
   (if (= C-sang 80 ) (progn (command "snapang" "00" ) (prompt "\nSnap Angle Set To 00   " )    ))
   );end


   (defun c:start15    ()
   (command "ucs" "W")
   (setq  C-sang (atof (angtos (getvar "snapang"))))
   (command "ucs" "W")(command "snapang" "0"  )
   (if (= C-sang  0 ) (progn (command "snapang" "15" ) (prompt "\nSnap Angle Set To 15   " )    ))
   (if (= C-sang 15 ) (progn (command "snapang" "30" ) (prompt "\nSnap Angle Set To 30   " )    ))
   (if (= C-sang 30 ) (progn (command "snapang" "45" ) (prompt "\nSnap Angle Set To 45   " )    ))
   (if (= C-sang 45 ) (progn (command "snapang" "60" ) (prompt "\nSnap Angle Set To 60   " )    ))
   (if (= C-sang 60 ) (progn (command "snapang" "75" ) (prompt "\nSnap Angle Set To 75   " )    ))
   (if (= C-sang 75 ) (progn (command "snapang" "00" ) (prompt "\nSnap Angle Set To 00   " )    ))
   );end

   (defun c:start45    ()
   (setq  C-sang (atof (angtos (getvar "snapang"))))
   (command "ucs" "W")(command "snapang" "0"  )
   (if (= C-sang 0  )(progn (command "snapang" "45" )(prompt "\n Snap Angle Set To 45  " )     ))
   (if (= C-sang 45 )(progn (command "snapang" "00" )(prompt "\n Snap Angle Set To 00  " )     ))
   );end