关于list_box中的列表删除和替换的问题

xiagood

各位大哥：
请教一个关于list_box(DCL)中列表删除和替换的问题。谢谢！

meflying

修改如下，无法直接删除，要删除只有删掉整个表，然后重新建一个 (defun act_mod()
(start_list "pop1" 1 1)
(add_list "xyz")
(end_list)
)
(defun c:test ( / dcl_id)
(setq dcl_id (load_dialog "tmp.dcl"))
(new_dialog "hello" dcl_id)
(start_list "pop1")
(mapcar 'add_list '("abc" "bbb" "ccc"))
(end_list)
(action_tile "mod" "(act_mod)")
(start_dialog)
(unload_dialog dcl_id)
(princ)
)
;tmp.dcl hello:dialog{
:popup_list{label = "abc:";key = "pop1";}
:button{label = "修改"; key = "mod";}
ok_cancel;
}

xiagood

谢谢。。