请教！如何得到list_box选中的多项内容

xiaocainiao

刚刚开始研究DCL、请教一下各位大神


如何得到list_box选中的多项内容、用get_tile得到的是列表中对应元素的多个序号、

现在不知道如何拆分这些序号、来获取列表中对应的内容了

有没有大神能提供一下具体的获取函数、感谢

飞雪神光

字符串转表或字符串分割 已空格为分隔符  用得到的表去nth  list_box中的数据

xiaocainiao

飞雪神光 发表于 2023-12-31 20:39
字符串转表或字符串分割 已空格为分隔符  用得到的表去nth  list_box中的数据

这个原理我能懂、现在就是不知道具体怎么拆分字符串

飞雪神光

1. (defun str2lst (str del / pos)
   
2.         (if (setq pos (vl-string-search del str))
   
3.                 (cons (substr str 1 pos) (str2lst (substr str (+ pos 1 (strlen del))) del))
   
4.                 (list str)
   
5.         )
   
6. )
   
7. (mapcar '(lambda (x) (nth x '("数据1" "数据2" "数据3" "数据4" "数据5"))) (mapcar 'atoi (str2lst "0 1 2 4" " ")))

(defun str2lst (str del / pos)<br />         (if (setq pos (vl-string-search del str))<br />                 (cons (substr str 1 pos) (str2lst (substr str (+ pos 1 (strlen del))) del))<br />                 (list str)<br />         )<br /> )<br /> (mapcar '(lambda (x) (nth x '("数据1" "数据2" "数据3" "数据4" "数据5"))) (mapcar 'atoi (str2lst "0 1 2 4" " ")))

xiaocainiao

飞雪神光 发表于 2023-12-31 20:42

谢谢、这回明白怎么操作了

llsheng_73

2. (defun mkdcl(str / dclF Fid dcl)
   
3.      (write-line(apply'strcat(if(listp str)str(list str)))
   
4.        (setq dclF(vl-filename-mktemp nil nil ".dcl")Fid(open dclF "w")))
   
5.      (close Fid)
   
6.      (setq dcl(load_dialog dclF))
   
7.      (vl-file-delete dclF)dcl)
   
8. (defun c:tt( / dcl lst l)
   
9.   (setq dcl(mkdcl'("ABC:dialog{:list_box{key="1";multiple_select=true;}ok_only;}"))
   
10.         lst'("A""B""C""D""E"))
    
11.   (new_dialog"ABC"dcl)
    
12.   (start_list"1")(vl-every(function add_list)lst)(end_list)
    
13.   (action_tile"accept""(setq l(get_tile"1"))(done_dialog 1)")
    
14.   (if(=(start_dialog)1)
    
15.     (mapcar(function(lambda(x)(nth x lst)))
    
16.                   (read(strcat"("l")")))))

(defun mkdcl(str / dclF Fid dcl)<br />      (write-line(apply'strcat(if(listp str)str(list str)))<br />        (setq dclF(vl-filename-mktemp nil nil ".dcl")Fid(open dclF "w")))<br />      (close Fid)<br />      (setq dcl(load_dialog dclF))<br />      (vl-file-delete dclF)dcl)<br /> (defun c:tt( / dcl lst l)<br />   (setq dcl(mkdcl'("ABC:dialog{:list_box{key="1";multiple_select=true;}ok_only;}"))<br />         lst'("A""B""C""D""E"))<br />   (new_dialog"ABC"dcl)<br />   (start_list"1")(vl-every(function add_list)lst)(end_list)<br />   (action_tile"accept""(setq l(get_tile"1"))(done_dialog 1)")<br />   (if(=(start_dialog)1)<br />     (mapcar(function(lambda(x)(nth x lst)))<br />                   (read(strcat"("l")")))))

(read(strcat"("(get_tile list_box_name)")"))

xiaocainiao

llsheng_73 发表于 2024-1-1 13:03
(read(strcat"("(get_tile list_box_name)")"))

谢谢、我现在用的笨方法、直接搜索空格来拆分的

llsheng_73

xiaocainiao 发表于 2024-1-1 15:15
谢谢、我现在用的笨方法、直接搜索空格来拆分的

(read(strcat"("   "0 1 5"  ")"))=>'(0 1 5)