ODCL多层表添加到tree控件

77077

以前在论坛上求过该函数，可是没人回答，目前自己弄出来了，发出来大家交流下。。。。

2. ;多层表添加到tree控件
   
3. (defun odcl_tree_addlist(LST TreeControl / KEY addlist)
   
4.   (SETQ KEY (dcl_Tree_AddParent TreeControl (list (list(car lst)))))
   
5.   (defun addlist(lst key / x key1 kl)
   
6.     (foreach x lst
   
7.       (if (listp x)
   
8.   (setq key1 (dcl_Tree_AddChild TreeControl(list (list key (car x))))
   
9.         kl (addlist (cdr x) key1)
   
10.         )
    
11.   (setq key1 (dcl_Tree_AddChild TreeControl (LIST(list key x))))
    
12.   )
    
13.       )
    
14.     );defun addlist
    
15.   (addlist (cdr lst) key)
    
16.   (PRINC)
    
17.   )

;多层表添加到tree控件<br /> (defun odcl_tree_addlist(LST TreeControl / KEY addlist)<br />   (SETQ KEY (dcl_Tree_AddParent TreeControl (list (list(car lst)))))<br />   (defun addlist(lst key / x key1 kl)<br />     (foreach x lst<br />       (if (listp x)<br />   (setq key1 (dcl_Tree_AddChild TreeControl(list (list key (car x))))<br />         kl (addlist (cdr x) key1)<br />         )<br />   (setq key1 (dcl_Tree_AddChild TreeControl (LIST(list key x))))<br />   )<br />       )<br />     );defun addlist<br />   (addlist (cdr lst) key)<br />   (PRINC)<br />   )

测试数据：
(setq lst '("总分类"
"A没有子分类"
"B没有子分类"
;POP1
("分类1"
   "分类11"
     ("分类12"
       "分类121"
         ("分类122"
             "分类1221"
             "分类1222"
             "分类1223"
          )
       "分类123"
       "分类124"
       "分类125"
       "分类126"
       "分类127"
    )
"分类13"
)
;POP2
("分类2"
     "分类21"
     "分类22"
     "分类23"
     "分类24"
     "分类25"
     "分类26"
)
;POP3
("分类3"
     "分类31"
     "分类32"
     "分类33"
     "分类34"
     "分类35"
     "分类36"
     "分类37"
     "分类38"
     "分类39"
)
)
)

尹思颖

6666666666666