飞诗请进,求关于list_box单击打开收拢的效果代码~

qyming

继续下去。。。。。。。。。。

自贡黄明儒

77077 发表于 2014-6-25 17:37
为什么不能改列表项了呢?"+"变成"-"之后,再点击不会变"+"了~~~

估计得重加载列表内容

ZZXXQQ

;重组数据表

2. (defun key1 ()
   
3. (setq n (atoi(get_tile "key1"))
   
4.       i 0
   
5.       nlist (list))
   
6. (repeat (length llist)
   
7. (setq str (nth i llist))
   
8. (setq nlist
   
9.   (cons
   
10.    (if (= i n)
    
11.     (strcat (if (= (substr str 1 1) "-") "+" "-") (substr str 2))
    
12.     str
    
13.    )
    
14.    nlist
    
15.   )
    
16. )
    
17. (setq i (1+ i))
    
18. )
    
19. (start_list "key1")
    
20. (mapcar 'add_list (setq llist (reverse nlist)))
    
21. (end_list)
    
22. )

(defun key1 ()<br /> (setq n (atoi(get_tile "key1"))<br />       i 0<br />       nlist (list))<br /> (repeat (length llist)<br /> (setq str (nth i llist))<br /> (setq nlist<br />   (cons<br />    (if (= i n)<br />     (strcat (if (= (substr str 1 1) "-") "+" "-") (substr str 2))<br />     str<br />    )<br />    nlist<br />   )<br /> )<br /> (setq i (1+ i))<br /> )<br /> (start_list "key1")<br /> (mapcar 'add_list (setq llist (reverse nlist)))<br /> (end_list)<br /> )

77077

断断续续,编写过程中,做个笔记先...

2. ;key1动作反应
   
3. (defun key1 (/ n a a1 lstn)
   
4. (setq n (atoi (get_tile "key1"));取得当前选中项的索引值n
   
5.       a (nth n boxlst);从列表框中取出第n个表项:"+D分类四"
   
6.      a1 (substr a 2);分割(substr "+D分类四" 2)=>"D分类四"
   
7.       )
   
8. (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 2)) lst));取出所有中类组成lstn,即字符长度为2的项目
   
9. (setq lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 1) (substr a1 1 1))) lstn));取出对应的中类,即首字为D的项目
   
10. (setq lstn (mapcar '(lambda(x) (strcat "++" (car x) (cadr x))) lstn));组成准备插入列表框的表lstn
    
11. ;如果"a"以+开头:
    
12. ;插入lstn到原表并刷新显示.
    
13. ;否则删除列表后刷新显示.
    
14. (if (= (substr a 1 1) "+")
    
15.    (progn
    
16.         (setq boxlst (LI_DelLst boxlst n)
    
17. ;             boxlst (LI_AddList boxlst n lstn)
    
18.              boxlst (LI_AddList boxlst n (strcat "-" a1))
    
19.              )
    
20.         (fill_list_box "key1" boxlst)
    
21.     )
    
22.        (progn
    
23.         (setq boxlst (LI_DelLst boxlst n)
    
24. ;删除表项
    
25.              boxlst (LI_AddList boxlst n (strcat "+" a1))
    
26.              )
    
27.         (fill_list_box "key1" boxlst)
    
28.     )
    
29. )
    
30. )

;key1动作反应<br /> (defun key1 (/ n a a1 lstn)<br /> (setq n (atoi (get_tile "key1"));取得当前选中项的索引值n<br />       a (nth n boxlst);从列表框中取出第n个表项:"+D分类四"<br />      a1 (substr a 2);分割(substr "+D分类四" 2)=>"D分类四"<br />       )<br /> (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 2)) lst));取出所有中类组成lstn,即字符长度为2的项目<br /> (setq lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 1) (substr a1 1 1))) lstn));取出对应的中类,即首字为D的项目<br /> (setq lstn (mapcar '(lambda(x) (strcat "++" (car x) (cadr x))) lstn));组成准备插入列表框的表lstn<br /> ;如果"a"以+开头:<br /> ;插入lstn到原表并刷新显示.<br /> ;否则删除列表后刷新显示.<br /> (if (= (substr a 1 1) "+")<br />    (progn<br />         (setq boxlst (LI_DelLst boxlst n)<br /> ;             boxlst (LI_AddList boxlst n lstn)<br />              boxlst (LI_AddList boxlst n (strcat "-" a1))<br />              )<br />         (fill_list_box "key1" boxlst)<br />     )<br />        (progn<br />         (setq boxlst (LI_DelLst boxlst n)<br /> ;删除表项<br />              boxlst (LI_AddList boxlst n (strcat "+" a1))<br />              )<br />         (fill_list_box "key1" boxlst)<br />     )<br /> )<br /> )

77077

我在尝试三层分类,目前暂时还在研究第二两层.所以中类上又加了个"++"

谁能给个函数将lst插入到lst中
("+A分类一" "+B分类二" "+C分类三" "+D分类四")
("++A1中类一" "++A2分类一" "++A3分类一" "++A4分类一")
形成:("+A分类一" "++A1中类一" "++A2分类一" "++A3分类一" "++A4分类一" "+B分类二" "+C分类三" "+D分类四")

77077

2. (defun append-lstn (lst1 n lst2 / tmplst1 tmplst2 m)
   
3. (setq tmplst1 '()
   
4.       tmplst2 '()
   
5.       m 0
   
6.      )
   
7. (repeat n
   
8.   (setq  tmplst1 (cons (nth m lst1) tmplst1)
   
9.         m (1+ m)
   
10.         )
    
11.     );取出前N项
    
12. (repeat (- (length lst1) n)
    
13.   (setq  tmplst2 (cons (nth m lst1) tmplst2)
    
14.         m (1+ m)
    
15.         )
    
16.     );取出m项之后部分
    
17. (append (reverse tmplst1) lst2 (reverse tmplst2))
    
18. )

(defun append-lstn (lst1 n lst2 / tmplst1 tmplst2 m)<br /> (setq tmplst1 '()<br />       tmplst2 '()<br />       m 0<br />      )<br /> (repeat n<br />   (setq  tmplst1 (cons (nth m lst1) tmplst1)<br />         m (1+ m)<br />         )<br />     );取出前N项<br /> (repeat (- (length lst1) n)<br />   (setq  tmplst2 (cons (nth m lst1) tmplst2)<br />         m (1+ m)<br />         )<br />     );取出m项之后部分<br /> (append (reverse tmplst1) lst2 (reverse tmplst2))<br /> )

(setq lst1 '("+A" "+B" "+C" "+D" "+E" "+F" "+G")
      lst2  '("++A1" "++A2" "++A3" "++A4" "++A5" "++A6")
                        )
命令: (append-lstn lst1 2 lst2)
("+A" "+B" "++A1" "++A2" "++A3" "++A4" "++A5" "++A6" "+C" "+D" "+E" "+F" "+G")
命令: (append-lstn lst1 3 lst2)
("+A" "+B" "+C" "++A1" "++A2" "++A3" "++A4" "++A5" "++A6" "+D" "+E" "+F" "+G")
命令: (append-lstn lst1 4 lst2)
("+A" "+B" "+C" "+D" "++A1" "++A2" "++A3" "++A4" "++A5" "++A6" "+E" "+F" "+G")

edata

个人觉得构建这样的表。
(("++aaa" ("+aa"("a" "b" "c")) ("+bb"("a" "b" "c")))("++bbb" ("+aa"("a" "b" "c")) ("+bb"("a" "b" "c"))))
默认载入表首位值。
如果点击某一个++，则执行改首位为-+展开子表首位值。如果点击+则完全展开该+下的子表

77077

edata 发表于 2014-6-26 12:26
个人觉得构建这样的表。
(("++aaa" ("+aa"("a" "b" "c")) ("+bb"("a" "b" "c")))("++bbb" ("+aa"("a" "b"  ...

e版,这个厉害哦~
我初学者,没技巧,求收徒~

77077

目前完成到中分类...继续~~~

77077

为了避免忘记,做个笔记

2. (defun key1 (/ n a a1 lstn)
   
3. (setq n (atoi (get_tile "key1"));取得当前选中项的索引值n
   
4.       a (nth n boxlst);从列表框中取出第n个表项:"+D分类四"
   
5.      a1 (substr a 2);分割(substr "+D分类四" 2)=>"D分类四"
   
6.       )
   
7. (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 2)) lst));取出所有中类组成lstn,即字符长度为2的项目
   
8. (setq lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 1) (substr a1 1 1))) lstn));取出对应的中类,即首字为D的项目
   
9. (setq lstn (mapcar '(lambda(x) (strcat "  +" (car x) (cadr x))) lstn));组成准备插入列表框的表lstn
   
10. ;如果"a"以+开头:
    
11. ;插入lstn到原表并刷新显示.
    
12. ;否则删除列表后刷新显示.
    
13. (if (= (substr a 1 1) "+")
    
14.    (progn
    
15.         (setq boxlst (LI-DelLst boxlst n)
    
16.              boxlst (LI-append-lstn boxlst n lstn)
    
17.              boxlst (LI-append-lstn boxlst n (list (strcat "-" a1)))
    
18.              )
    
19.         (fill-list-box "key1" boxlst)
    
20.       (set_tile "key1" (itoa n))
    
21.        );progn
    
22.        (progn
    
23.        (repeat (1+(length lstn))
    
24.            (setq boxlst (LI-DelLst boxlst n));删除表项
    
25.            )
    
26.         (setq boxlst (LI-append-lstn boxlst n (list (strcat "+" a1))))
    
27.         (fill-list-box "key1" boxlst)
    
28.         (set_tile "key1" (itoa n))
    
29.        );progn
    
30. );if
    
31. )

(defun key1 (/ n a a1 lstn)<br /> (setq n (atoi (get_tile "key1"));取得当前选中项的索引值n<br />       a (nth n boxlst);从列表框中取出第n个表项:"+D分类四"<br />      a1 (substr a 2);分割(substr "+D分类四" 2)=>"D分类四"<br />       )<br /> (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 2)) lst));取出所有中类组成lstn,即字符长度为2的项目<br /> (setq lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 1) (substr a1 1 1))) lstn));取出对应的中类,即首字为D的项目<br /> (setq lstn (mapcar '(lambda(x) (strcat "  +" (car x) (cadr x))) lstn));组成准备插入列表框的表lstn<br /> ;如果"a"以+开头:<br /> ;插入lstn到原表并刷新显示.<br /> ;否则删除列表后刷新显示.<br /> (if (= (substr a 1 1) "+")<br />    (progn<br />         (setq boxlst (LI-DelLst boxlst n)<br />              boxlst (LI-append-lstn boxlst n lstn)<br />              boxlst (LI-append-lstn boxlst n (list (strcat "-" a1)))<br />              )<br />         (fill-list-box "key1" boxlst)<br />       (set_tile "key1" (itoa n))<br />        );progn<br />        (progn<br />        (repeat (1+(length lstn))<br />            (setq boxlst (LI-DelLst boxlst n));删除表项<br />            )<br />         (setq boxlst (LI-append-lstn boxlst n (list (strcat "+" a1))))<br />         (fill-list-box "key1" boxlst)<br />         (set_tile "key1" (itoa n))<br />        );progn<br /> );if<br /> )