树状的结构，能不能获取到当前选择的结构路径。

lxf20190917

树状的结构，能不能获取到当前选择的结构路径。


如上图文件dwg3,如何获得文件结构径为： 【资料文件\\6、资料6\\图纸2\\dwg3 】
下面为二个文件，下载加载查看。

2. (defun c:Ttt(/ lst odcl_tree_addlist);opendcl的调用
   
3.   (command "opendcl")
   
4.   (dcl-Project-Load "C:\\Users\\Administrator\\Desktop\\nuomi\\tree.odcl")
   
5. ;;;  (dcl-Project-Unload "tree" T)
   
6.   (dcl-form-show tree/Form1)
   
7.   (defun odcl_tree_addlist(LST TreeControl / KEY addlist)
   
8.   (SETQ KEY (dcl_Tree_AddParent TreeControl (list (list(car lst)))))
   
9.   (defun addlist(lst key / x key1 kl)
   
10.     (foreach x lst
    
11.       (if (listp x)
    
12.   (setq key1 (dcl_Tree_AddChild TreeControl(list (list key (car x))))
    
13.         kl (addlist (cdr x) key1)
    
14.         )
    
15.   (setq key1 (dcl_Tree_AddChild TreeControl (LIST(list key x))))
    
16.   )
    
17.       )
    
18.     );defun addlist
    
19.   (addlist (cdr lst) key)
    
20.   (PRINC)
    
21.   )
    
22.   ;多层表添加到tree控件
    
23. (setq lst '("资料文件"
    
24.       ("1、资料1"("图纸1""dwg1""dwg2""dwg3"))
    
25.       ("2、资料2"("图纸1""dwg1""dwg2""dwg3"))
    
26.       ("3、资料3"("图纸1""dwg1""dwg2""dwg3"))
    
27.       ("4、资料4"("图纸1""dwg1""dwg2""dwg3"))
    
28.       ("5、资料5"("图纸1""dwg1""dwg2""dwg3"))
    
29.       ("6、资料6"("图纸1""dwg1""dwg2""dwg3")("图纸2""dwg1""dwg2""dwg3"))
    
30.       ))
    
31.   (dcl-Tree-Clear tree/Form1/TreeControl1);清除数据
    
32.   (odcl_tree_addlist lst tree/Form1/TreeControl1);加载数据
    
33.   (defun c:tree/Form1/TreeControl1#OnSelChanged  (Label Key /)
    
34.     (dcl-Control-SetCaption tree/Form1/Label1 Label)
    
35.   )
    
36.   )

(defun c:Ttt(/ lst odcl_tree_addlist);opendcl的调用<br />   (command "opendcl")<br />   (dcl-Project-Load "C:\\Users\\Administrator\\Desktop\\nuomi\\tree.odcl")<br /> ;;;  (dcl-Project-Unload "tree" T)<br />   (dcl-form-show tree/Form1)<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 />   )<br />   ;多层表添加到tree控件<br /> (setq lst '("资料文件"<br />       ("1、资料1"("图纸1""dwg1""dwg2""dwg3"))<br />       ("2、资料2"("图纸1""dwg1""dwg2""dwg3"))<br />       ("3、资料3"("图纸1""dwg1""dwg2""dwg3"))<br />       ("4、资料4"("图纸1""dwg1""dwg2""dwg3"))<br />       ("5、资料5"("图纸1""dwg1""dwg2""dwg3"))<br />       ("6、资料6"("图纸1""dwg1""dwg2""dwg3")("图纸2""dwg1""dwg2""dwg3"))<br />       ))<br />   (dcl-Tree-Clear tree/Form1/TreeControl1);清除数据<br />   (odcl_tree_addlist lst tree/Form1/TreeControl1);加载数据<br />   (defun c:tree/Form1/TreeControl1#OnSelChanged  (Label Key /)<br />     (dcl-Control-SetCaption tree/Form1/Label1 Label)<br />   )<br />   )