;;;   Setdwg
;;; BY TG CHRISTMAN
;;; Sets user preferences for UCSICON, BLIPS, and GRIPS
(defun c:setdwg ()
  (command "viewres" "y" 20000)
  (setvar "filletrad" 0.00000)
  (setq ui (strcase (getstring "\nUCS Icon ON/OFF ? ") T))
    (if (= ui "on")
      (setvar "ucsicon" 1)
    )
    (if (= ui "off")
      (setvar "ucsicon" 0)
    )
  (setq bm (strcase (getstring "\nBlip Mode ON/OFF ? ") T))
    (if (= bm "on")
      (setvar "blipmode" 1)
    )
    (if (= bm "off")
      (setvar "blipmode" 0)
    )
  (setq gm (strcase (getstring "\nGrip Mode ON/Off ? ") T))
    (if (= gm "on")
      (setvar "grips" 1)
    )
    (if (= gm "off")
      (setvar "grips" 0)
    )
  (princ "\nYour drawing is now set with your preferences!")
  (PRINC)
)
(princ "\n\tSet Drawing loaded.")
(princ "\n\tStart command with SETDWG.")
(PRINC)