LISP: Defaults

This LISP routine loads your desired defaults you want in your drawing.
Sometimes the ACAD.dwt doesn't work for whatever reason...
(ie. read only file due to company standards)
So you can make up your own LISP and have the "start up suite" load this LISP with every drawing... and never worry about your settings again...
////////////////////////
;
;
(setvar "CMDECHO" 0) ;Turns Command line off
(setvar "savetime" 5) ;TURNS ON THE AUTOSAVE AND SETS IT TO SAVE EVERY 5MINS AFTER LAST SAVE
(setvar "isavebak" 1) ;TURNS ON THE "CREATE A BACKUP COPY W/EA SAVE" UNDER OPTIONS
(setvar "isavepercent" 50) ;TURNS ON THE "INCREMENTAL SAVE PERCENTAGE" UNDER OPTIONS
(setvar "BLIPMODE" 0) ;Turns Blips off
(command "UNITS" "4" "256" "1" "8" "" "") ;Sets the units to Imperial
(command "VIEWRES" "Y" "15000" ^M) ;Sets VIEWRES to 15000
(command "COLOR" "BYLAYER") ;Sets COLOR to BYLAYER
(command "LINETYPE" "S" "BYLAYER" "") ;Sets LINETYPE to BYLAYER
(command "LAYEREVAL" "0") ;Sets RECONCILE LAYERS OFF
(command "LAYERNOTIFY" "0") ;Sets RECONCILE LAYERS OFF
(command "UCSICON" "ON") ;Sets UCSISON ON
(command "VISRETAIN" "1") ;Sets Visual retain to "on"
(command "CELWEIGHT" "-1") ;Sets LINELWEIGHT to BYLAYER
(command "CLAYER" "0") ;Sets current layer to ZERO
(setvar "CMDECHO" 1) ;Turns Command line on
(princ)
/////////////////////////