http://www.realerthanreal.com/autolisp/SetFunctions.lsp