帮忙改改这个lisp+dcl

tea_a

1.对话框不能提取txt中的文字 2.添加和删除功能怎样实现? 代码如下: ;;;;;;;;;;;;;;;;;;;;;
LBOX.dcl
;;;;;;;;;;;;;;;;;;;;;
LBOX:dialog
{ label="Create chinese" ;
:popup_list //下拉式清单选框元件
{ label="注释" ;
key="LBOX_T" ;
width=15;
fixed_width=true;
list="名称\n材质\n数量\n处理" ;
}
:list_box //清单选框元件
{ label="内容" ;
key="LBOX_L" ;
width=30;
height=8;
fixed_width=true;
fixed_height=true;
}
:edit_box //编辑框元件
{ label="编辑" ;
key="LOBX_E" ;
width=30;
fixed_width=true;
}
:button //新增的按钮元件
{ label="添加" ;
key="add" ;
width=10;
fixed_width=true;
}
:button //新增的按钮元件
{ label="删除" ;
key="del" ;
width=10;
fixed_width=true;
}
:list_box //输入
{ label="输入" ;
key="LBOX_W" ;
width=30;
height=8;
fixed_width=true;
fixed_height=true;
}
ok_cancel;
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
lbox.lsp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN CBOX () (SETQ DCL_ID (LOAD_DIALOG "F:/MYCAD/LISP/LBOX.DCL") CHK 0)
(NEW_DIALOG "LBOX" DCL_ID)
(ADDL)
(ACTION_TILE "LBOX_T" "(ADDL)") //新增的下拉式选框元件动作
(ACTION_TILE "LBOX_L" "(SETQ TMP_R (ATOI (GET_TILE \"LBOX_L\")))(SETC)")
(ACTION_TILE "accept" "(SETQ CHK 1
TMP_S (GET_TILE \"LBOX_E\"))(DONE_DIALOG)")
(START_DIALOG) (UNLOAD_DIALOG DCL_ID)
(IF (= CHK 1)
(COMMAND "MTEXT" (GETPOINT \"Select text insert point :") "0" TMP_S)
)
(PRINC))
(DEFUN ADDL() (IF (= (GET_TILE "LBOX_T") "0") ;检查选择了的主题
(SETQ F_ID (OPEN "F:/MYCAD/LISP/TEXT1.TXT" "r")) ;开启档案
(SETQ F_ID (OPEN "F:/MYCAD/LISP/TEXT2.TXT" "r"))) ;开启档案
(SETQ TMP_T (READ-LINE F_ID) TMP_L (LIST ""))
(WHILE (/= TMP_T NIL)
(SETQ TMP_L (APPEND TMP_L (LIST TMP_T)))
(SETQ TMP_L (READ-LINE F_ID))
)
(CLOSE F_ID)
(SETQ TMP_L (LIST (CDR TMP_L)))
(START_LIST "LBOX_L" 3 0)
(MAPCAR 'ADD_LIST (CAR TMP_L))
(END_LIST))
(DEFUN SETC() (IF (= (GET_TILE "LBOX_T") "0") ;检查选择了的主题
(SETQ F_ID (OPEN "F:/MYCAD/LISP/TEXT1.TXT" "r")) ;开启档案
(SETQ F_ID (OPEN "F:/MYCAD/LISP/TEXT2.TXT" "r"))) ;开启档案
(IF (> TMP_R 0)
(REPEAT TMP_R (READ-LINE F_ID)))
(SETQ TMP_S (GET_TILE "LBOX_E"))
(SETQ TMP_S (STRCAT TMP_S (READ-LINE F_ID)))
(CLOSE F_ID)
(SET_TILE "LBOX_E" TMP_S))