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

77077

写完成了,可是问题也出来了~急救~~~~

2. ;;;=================================================================*
   
3. ;key1动作反应
   
4. (defun key1()
   
5. (setq n (atoi (get_tile "key1"));取得当前选中项的索引值n
   
6.       str (nth n boxlst);从列表框中取出第n个表项:"++D分类四"
   
7.      str1 (substr str 1 2);分割出前两位
   
8.      str2 (substr str 3);分割出后面诸位
   
9.       )
   
10. (cond
    
11.    ((= str1 "++") (pro1)(pro3 1));加载对应的中类,并加载数据到textbox
    
12.    ((= str1 "--") (pro1-));删除对应的中类,并加载数据到textbox
    
13.    ((= str1 " +") (pro2)(pro3 2));加载对应的小类,并加载数据到textbox
    
14.    ((= str1 " -") (pro2-));删除对应的小类,并加载数据到textbox
    
15.    ((= str1 "  ") (pro3 3));加载数据到textbox
    
16. )
    
17. )
    
18. 
    
19. ;加载对应的中类
    
20. (defun pro1 ( / lstn)
    
21. (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 2)) lst)
    
22.        lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 1) (substr str2 1 1))) lstn)
    
23.        lstn (mapcar '(lambda(x) (strcat " +" (car x) (cadr x))) lstn);组成准备插入列表框的表lstn
    
24.        )
    
25. (setq boxlst (LI-DelLst boxlst n)
    
26.       boxlst (LI-append-lstn boxlst n lstn)
    
27.       boxlst (LI-append-lstn boxlst n (list (strcat "--" str2)))
    
28.       )
    
29. (fill-list-box "key1" boxlst)
    
30. (set_tile "key1" (itoa n))
    
31. )
    
32. ;删除中类
    
33. (defun pro1- ( / lstn)
    
34. (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 2)) lst)
    
35.        lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 1) (substr str2 1 1))) lstn)
    
36.        )
    
37. (repeat (1+ (length lstn))
    
38.            (setq boxlst (LI-DelLst boxlst n))
    
39.         )
    
40. (setq boxlst (LI-append-lstn boxlst n (list (strcat "++" str2))))
    
41. (fill-list-box "key1" boxlst)
    
42. (set_tile "key1" (itoa n))
    
43. )
    
44. ;加载对应的小类================
    
45. (defun pro2 ( / lstn)
    
46. (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 3)) lst)
    
47.        lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 2) (substr str2 1 2))) lstn)
    
48.        lstn (mapcar '(lambda(x) (strcat "  " (car x) (cadr x))) lstn);组成准备插入列表框的表lstn
    
49.        )
    
50. (setq boxlst (LI-DelLst boxlst n)
    
51.       boxlst (LI-append-lstn boxlst n lstn)
    
52.       boxlst (LI-append-lstn boxlst n (list (strcat " -" str2)))
    
53.       )
    
54. (fill-list-box "key1" boxlst)
    
55. (set_tile "key1" (itoa n))
    
56. )
    
57. ;删除小类
    
58. (defun pro2- ( / lstn)
    
59. (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 3)) lst)
    
60.        lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 2) (substr str2 1 2))) lstn)
    
61.        )
    
62. (repeat (1+ (length lstn))
    
63.            (setq boxlst (LI-DelLst boxlst n))
    
64.         )
    
65. (setq boxlst (LI-append-lstn boxlst n (list (strcat " +" str2))))
    
66. (fill-list-box "key1" boxlst)
    
67. (set_tile "key1" (itoa n))
    
68. )
    
69. ;读lst取数值填入文本框
    
70. (defun pro3 (n / lstx)
    
71. (setq lstx (vl-remove-if '(lambda (x) (/= (car x) (substr str2 1 n))) lst))
    
72. (set_tile "key2" (nth 0 (car lstx)))
    
73. (set_tile "key3" (nth 1 (car lstx)))
    
74. )
    
75. 
    

;;;=================================================================*<br /> ;key1动作反应<br /> (defun key1()<br /> (setq n (atoi (get_tile "key1"));取得当前选中项的索引值n<br />       str (nth n boxlst);从列表框中取出第n个表项:"++D分类四"<br />      str1 (substr str 1 2);分割出前两位<br />      str2 (substr str 3);分割出后面诸位<br />       )<br /> (cond<br />    ((= str1 "++") (pro1)(pro3 1));加载对应的中类,并加载数据到textbox<br />    ((= str1 "--") (pro1-));删除对应的中类,并加载数据到textbox<br />    ((= str1 " +") (pro2)(pro3 2));加载对应的小类,并加载数据到textbox<br />    ((= str1 " -") (pro2-));删除对应的小类,并加载数据到textbox<br />    ((= str1 "  ") (pro3 3));加载数据到textbox<br /> )<br /> )<br /> <br /> ;加载对应的中类<br /> (defun pro1 ( / lstn)<br /> (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 2)) lst)<br />        lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 1) (substr str2 1 1))) lstn)<br />        lstn (mapcar '(lambda(x) (strcat " +" (car x) (cadr x))) lstn);组成准备插入列表框的表lstn<br />        )<br /> (setq boxlst (LI-DelLst boxlst n)<br />       boxlst (LI-append-lstn boxlst n lstn)<br />       boxlst (LI-append-lstn boxlst n (list (strcat "--" str2)))<br />       )<br /> (fill-list-box "key1" boxlst)<br /> (set_tile "key1" (itoa n))<br /> )<br /> ;删除中类<br /> (defun pro1- ( / lstn)<br /> (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 2)) lst)<br />        lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 1) (substr str2 1 1))) lstn)<br />        )<br /> (repeat (1+ (length lstn))<br />            (setq boxlst (LI-DelLst boxlst n))<br />         )<br /> (setq boxlst (LI-append-lstn boxlst n (list (strcat "++" str2))))<br /> (fill-list-box "key1" boxlst)<br /> (set_tile "key1" (itoa n))<br /> )<br /> ;加载对应的小类================<br /> (defun pro2 ( / lstn)<br /> (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 3)) lst)<br />        lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 2) (substr str2 1 2))) lstn)<br />        lstn (mapcar '(lambda(x) (strcat "  " (car x) (cadr x))) lstn);组成准备插入列表框的表lstn<br />        )<br /> (setq boxlst (LI-DelLst boxlst n)<br />       boxlst (LI-append-lstn boxlst n lstn)<br />       boxlst (LI-append-lstn boxlst n (list (strcat " -" str2)))<br />       )<br /> (fill-list-box "key1" boxlst)<br /> (set_tile "key1" (itoa n))<br /> )<br /> ;删除小类<br /> (defun pro2- ( / lstn)<br /> (setq lstn (vl-remove-if '(lambda (x) (/= (strlen (car x)) 3)) lst)<br />        lstn (vl-remove-if '(lambda (x) (/= (substr (car x) 1 2) (substr str2 1 2))) lstn)<br />        )<br /> (repeat (1+ (length lstn))<br />            (setq boxlst (LI-DelLst boxlst n))<br />         )<br /> (setq boxlst (LI-append-lstn boxlst n (list (strcat " +" str2))))<br /> (fill-list-box "key1" boxlst)<br /> (set_tile "key1" (itoa n))<br /> )<br /> ;读lst取数值填入文本框<br /> (defun pro3 (n / lstx)<br /> (setq lstx (vl-remove-if '(lambda (x) (/= (car x) (substr str2 1 n))) lst))<br /> (set_tile "key2" (nth 0 (car lstx)))<br /> (set_tile "key3" (nth 1 (car lstx)))<br /> )<br /> <br />

qyming

最后效果怎么样？

77077

基本上所有代码都已经贴出来了，整理下就是完整的源码了！

tm20038175

有没有说明书？

77077

什么说明书?
每个lst项里面包含很多元素("性质代码" "用地性质" "容积率" "建筑密度" "绿地率" "建筑限高" "机动车位比" "自行车位比" "内容说明" "图层名" "图层颜色")
做完以后的界面是

77077

最终得到信息表.可以写入图块和文本文件都行~
(("地块编号" "JK-XX-AA-01") ("性质代码" "R11") ("用地性质" "住宅") ("地块面积" "5112.05") ("容积率" "1.1") ("建筑密度" "32") ("绿地率" "35") ("建筑限高" "12")
("地上建筑" "5623.26") ("地下深度" "0") ("地下建筑" "5112.05") ("绿地面积" "1789.22") ("兼容用地" "C") ("兼容比例" "30/70") ("居住人口" "161") ("人口参数" "35")
("机动车位" "84") ("机动车位参数" "1.5") ("自行车位" "17") ("自行车位参数" "0.3") ("配套公建" "公厕-1-80/超市-1-500m2") ("备注信息" "备注"))

qyming

把对话框文件也传上来，让我们也学习一下

tianyi1230

看来楼主是搞规划设计的！

Rimford

这个是真正的技术讨论贴