修改高程的程序aotucad的LISP程序