Total Length Lisp Autocad