DCL 对话框 列表增加与删除

365724661

dia7a:dialog{
label="列表框的基本词库范例";
:list_box{        //列表框
label="常用词库菜单";
key="klist";        //key值
width=30;        //菜单宽度
height=10;        //菜单高度
}
:edit_box{        //编辑框
label="词库";
key="wordstr";                //key值
}
:button{label="增加";key="zj";}
:button{label="删除";key="sc";}
spacer_1;                //空出一行
ok_cancel;                        
}

###########################################################
(defun c:dia7a()
(setvar "cmdecho" 0)
(setq word_list '(         "传真机" "翔虹信息" "翔虹AutoCAD技术中心"  "道路"  "规格表"))
(dcl_dia7a)
(prin1)
)
(defun dcl_dia7a()
(setq dcl_id (load_dialog "dia7a"))
(new_dialog "dia7a" dcl_id)
(start_list "klist")
(mapcar 'add_list word_list)
(end_list)
(action_tile "klist" "(sub_klist $value)")
(action_tile "accept" "(ok_dia7a)(done_dialog 1)")
(setq dd(start_dialog))
(if (= dd 1)
(progn
(setvar "cmdecho" 1)
(command "text" pause pause 0 wordstr)
(setvar "cmdecho" 0)
)
)
)
(defun sub_klist(vvs)
(set_tile "wordstr" (nth (atoi vvs) word_list))
)
(defun ok_dia7a()
(setq wordstr(get_tile "wordstr"))
)


#######################################
希望得到效果：1.词库编辑框输入内容“计算机”单击增加将“计算机”增加至上面list_box最后一行，可多次执行增加
                         2.选中词库中内容，单击“删除”将list_box中选中内容删除，可多次执行删除
希望大神帮忙看下，上面lisp怎么改；谢谢~

炫翔

更新word_list,重新add_list

365724661

炫翔 发表于 2017-5-4 16:06

能否帮忙改一下呢

Lisphk

365724661 发表于 2017-5-4 16:10

应该有个 删除 表指定元素的函数， 先删除表中的要删除的项， 然后根据这个表重新生成

aeo

(action_tile "klist" "(sub_klist $value)")
(action_tile "zj" "(do_zj)")(action_tile "sc" "(do_sc)")
......



(defun do_zj( / str)  ;;增加
(setq str (get_tile "wordstr"))
(setq word_list(append word_list (list str))
(start_list "klist")
(mapcar 'add_list word_list)
(end_list)
)

;;---------------
(defun do_sc( / str)  ;;删除
(setq str (get_tile "wordstr"))
(setq word_list(vl-remove str word_list)
(start_list "klist")
(mapcar 'add_list word_list)
(end_list)
)

pxt2015

高手终于出现了，

365724661

aeo 发表于 2017-5-4 23:17

非常非常感谢~

365724661

aeo 发表于 2017-5-4 23:17

第三行少括号~测试 ok 再次感谢~

war5566sakura

我也需要  有解答了 謝謝

kqqt6236

赞啊，谢谢分享。

专用车研发

收藏了，学习一下