Autocad file size reducer lisp