Autocad lisp routines for surveyors