Writing lisp routines for autocad