Name: *error*
Syntax: (*error* str)
Description: This function allows for a user-defined error handler to be setup to replace the existing error handler.
Example(s): (defun *ERROR* (S)
(if (/= S "\nFunction canceled")
(princ "\nEnding Copy Rotate...")
)
(setvar "cmdecho" 1)
(princ)
)
|