flatten autocad lisp