Ahhhhh man...got my hopes up and all I do is fail...back to the design stage for me
All well...I will be the nice guy here, and let you all try and find ways to tweak this one...
(DEFUN RUG-TEST (/ cmd)
(SETQ cmd (GETVAR "cmdecho"))
(ALERT "\nAttempting to do your work for you...")
(ALERT "\nPlease click OK to continue.")
(SETVAR "cmdecho" 0)
(command "-layer" "s" "0" "")
(princ "\n")
(princ)
(COMMAND "-layer" "off" "*" "y" "")
(ALERT "\nAutocad failed to do your work for you.")
(ALERT "\nNow get back to work you lazy person!")
(ALERT
"\nAutocad failed to save any of you work. Now exiting."
)
(SETVAR "cmdecho" cmd)
(COMMAND "quit" "y")
(PRINC)
)
Pretty lame, but you'd be suprised how well it works on newbies.
Rug