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

xiagood · 发表于 2004-3-29 22:07:00

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

meflying · 发表于 2004-3-29 23:01:00

修改如下，无法直接删除，要删除只有删掉整个表，然后重新建一个
(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 · 发表于 2004-3-30 08:26:00

谢谢。。

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

发表回复

精选推荐

浏览过的版块