初始化程序,把第1个分组项中的词组读入表tttb中 (defun init/ fname fp txt1) (setq fname(findfile"$txt1.dat)) (if (not fname) ( progn( pnnc"n文件$7T1.DAT不存在")(exi);文件不存在,则退出 (setq fp(open fname"T)) (setq tt tb o) (while(setq txt1(read line fp)) (setq tt tb(cons txt1 txt tb)) (close fp) (setq tt tb(reverse tt tb)) ( setq old_nn1):记录索引号 更换列表框内词组显示内容 (defun wr_ txt(/ fname fname 1 fp txt1 i (setq i 1) whie(<=inn);判别哪个词组项被点中 (if =(get tile(strcat"c"(itoa i)1) (setq fname1(strcat"Stt"(itoa i)".dat) (setq i (1+ i)) f( setq fname( findfile fname);查找文件是否存在 (progn ( setq old_nn( atoi (substr fname15));记录索引号 (setq fp(open fname"T)) (setq txt tb o) whie( setq txt11 read line fp);依次读出各词组 (setq tt tb(cons tt1 tt tb)) (close fp) (setq txt tb(reverse txt tb)) ( start list"what);在列表框内显示词组内容 (mapcar add list tt tb (end list ) progn (progn alert( strcat"文件" fname1"不存在r) ( set tile( ( strcat"c"( itoa old nn)"1):恢复原记录号 主程序开始 (setq older * error error txterr) ) ; 初始化程序, 把第 1 个分组项中的词组读入表 txt_tb 中 (defun init( / fname fp txt1) (setq fname (findfile "$txt1.dat")) (if (not fname) (progn (princ "\n 文件 $TXT1.DAT 不存在 !") (exit)) ; 文件不存在, 则退出 ) (setq fp (open fname "r")) (setq txt_tb '()) (while (setq txt1 (read_line fp)) (setq txt_tb (cons txt1 txt_tb)) ) (close fp) (setq txt_tb (reverse txt_tb)) (setq old_nn 1)；记录索引号 ) ; 更换列表框内词组显示内容 (defun wr_txt ( / fname fname1 fp txt1 i) (setq i 1) (while (<= i nn); 判别哪个词组项被点中 (if (= (get_tile (strcat "c" (itoa i))) "1") (setq fname1 (strcat "$txt" (itoa i) ".dat") i nn ) ) (setq i (1+ i)) ) (if (setq fname (findfile fname1)); 查找文件是否存在 (progn (setq old_nn (atoi (substr fname1 5)))；记录索引号 (setq fp (open fname "r")) (setq txt_tb '()) (while (setq txt1 (read_line fp))；依次读出各词组 (setq txt_tb (cons txt1 txt_tb)) ) (close fp) (setq txt_tb (reverse txt_tb)) (start_list "what")；在列表框内显示词组内容 (mapcar 'add_list txt_tb) (end_list) ) ; progn (progn (alert (strcat "文件" fname1 "不存在!")) (set_tile (strcat "c" (itoa old_nn)) "1")；恢复原记录号 ) ) ; if ) ; 主程序开始 (setq olderr *error* *error* txterr