DCL对话框鼠标双击添加、删除

328302216

在DCL对话框中经常用到双击列表框中的对象添加到另外的列表框中，和双击列表框中的内容删除之！希望高手帮忙改改使得更通用、方便！
;;使用样例  (action_tile "List1" "(tt22 $value)")
;;keys1  keys2 "List2" 这几个根据使用的实际对话框来改变
(defun tt22(vvs)
  (cond((= $reason 4)
        (setq keys2(sjtjdzdlbk keys1 keys2 "List2"))
        )
       ((= $reason 1)())
  );;cond
)

;;功能  双击下拉列表1中的内容添加到指定下拉列表中
;;lst  下拉列表1中的列表内容 如 (setq lst '("线宽种类" "倒角种类" "填充种类"))
;;lst1  指定下拉列表内容
;;key  指定下拉列表的key值
(defun sjtjdzdlbk(lst lst1 key / sjtjdzdlbk-1);;(sjtjdzdlbk 双击添加到指定列表框)
  (setq sjtjdzdlbk-1(nth(atoi vvs)lst))
  (setq lst1(cons sjtjdzdlbk-1 lst1))
  (start_list key)
  (mapcar 'add_list lst1)
  (end_list)
  lst1
)

2. ;;使用样例  (action_tile "List1" "(tt22 $value)")
   
3. ;;keys1  keys2 "List2" 这几个根据使用的实际对话框来改变
   
4. (defun tt22(vvs)
   
5.   (cond((= $reason 4)
   
6.   (setq keys2(sjtjdzdlbk keys1 keys2 "List2"))
   
7.   )
   
8.        ((= $reason 1)())
   
9.   );;cond
   
10. )
    
11. 
    
12. ;;功能  双击下拉列表1中的内容添加到指定下拉列表中
    
13. ;;lst  下拉列表1中的列表内容 如 (setq lst '("线宽种类" "倒角种类" "填充种类"))
    
14. ;;lst1  指定下拉列表内容
    
15. ;;key  指定下拉列表的key值
    
16. (defun sjtjdzdlbk(lst lst1 key / sjtjdzdlbk-1);;(sjtjdzdlbk 双击添加到指定列表框)
    
17.   (setq sjtjdzdlbk-1(nth(atoi vvs)lst))
    
18.   (setq lst1(cons sjtjdzdlbk-1 lst1))
    
19.   (start_list key)
    
20.   (mapcar 'add_list lst1)
    
21.   (end_list)
    
22.   lst1
    
23. )
    
24. 
    
25. 
    
26. ;;使用样例  (action_tile "List1" "(list_sjsc $value)")
    
27. (defun list_sjsc(vvs);;(list_sjsc 下拉列表双击删除)
    
28.   (cond((= $reason 4)
    
29.   (setq keys1(sjsc_list "List1" keys1));;不要这句把下面progn这段撤销注释同样效果
    
30. ;;;   (progn    ;;用这段的话就可以不要sjsc_list这个子程序
    
31. ;;;     (setq list_sjsc-1 (atoi(get_tile "List1")))
    
32. ;;;     (setq list_sjsc-2(MJ:removeNth list_sjsc-1 keys1))
    
33. ;;;     (setq keys1 list_sjsc-2)
    
34. ;;;     (dcl_lbfz "List1" keys1)
    
35. ;;;   )
    
36.        )
    
37.        (= $reason 1())
    
38.   );;cond
    
39. );;defun
    
40. 
    
41. ;;131.2 [功能] 从列表中删除指定的第n个元素
    
42. ;;index 要删除的第几个元素
    
43. ;;lst 列表
    
44. (defun MJ:removeNth (index lst / c)
    
45.   (setq c -1)
    
46.   (apply 'append
    
47.    (mapcar '(lambda (x)
    
48.         (if  (/= (setq c (1+ c)) index)
    
49.           (list x)
    
50.         )
    
51.       )
    
52.      lst
    
53.    )
    
54.   )
    
55. )
    
56. 
    
57. ;;函数说明
    
58. ;;key  控件的key值（字符串）
    
59. ;;lst  列表
    
60. (defun dcl_lbfz(key lst)
    
61.   (start_list key);直列表 {"List4"} 初始化
    
62.   (mapcar 'add_list lst);添加列表项
    
63.   (end_list)
    
64. )
    
65. 
    
66. ;;函数功能  双击删除下拉列表中的元素
    
67. ;;函数说明
    
68. ;;调用方式 (setq lst(sjsc_list key lst))
    
69. ;;例子 (setq keys1(sjsc_list "List1" keys1))
    
70. ;;key 控件的key值
    
71. ;;lst 赋予下拉列表控件的表
    
72. ;;lst 值 样例 (setq lst '("1" "2" "3" "4" "5" "9" "6" "8" "7"))
    
73. (defun sjsc_list(key lst / list_sjsc-1)
    
74.   (setq list_sjsc-1(atoi(get_tile key)))
    
75.   (setq lst(MJ:removeNth list_sjsc-1 lst))
    
76.   (start_list key)
    
77.   (mapcar 'add_list lst)
    
78.   (end_list)
    
79.   lst
    
80. ;;;  (dcl_lbfz key lst)
    
81. )

;;使用样例  (action_tile "List1" "(tt22 $value)")<br /> ;;keys1  keys2 "List2" 这几个根据使用的实际对话框来改变<br /> (defun tt22(vvs)<br />   (cond((= $reason 4)<br />   (setq keys2(sjtjdzdlbk keys1 keys2 "List2"))<br />   )<br />        ((= $reason 1)())<br />   );;cond<br /> )<br /> <br /> ;;功能  双击下拉列表1中的内容添加到指定下拉列表中<br /> ;;lst  下拉列表1中的列表内容 如 (setq lst '("线宽种类" "倒角种类" "填充种类"))<br /> ;;lst1  指定下拉列表内容<br /> ;;key  指定下拉列表的key值<br /> (defun sjtjdzdlbk(lst lst1 key / sjtjdzdlbk-1);;(sjtjdzdlbk 双击添加到指定列表框)<br />   (setq sjtjdzdlbk-1(nth(atoi vvs)lst))<br />   (setq lst1(cons sjtjdzdlbk-1 lst1))<br />   (start_list key)<br />   (mapcar 'add_list lst1)<br />   (end_list)<br />   lst1<br /> )<br /> <br /> <br /> ;;使用样例  (action_tile "List1" "(list_sjsc $value)")<br /> (defun list_sjsc(vvs);;(list_sjsc 下拉列表双击删除)<br />   (cond((= $reason 4)<br />   (setq keys1(sjsc_list "List1" keys1));;不要这句把下面progn这段撤销注释同样效果<br /> ;;;   (progn    ;;用这段的话就可以不要sjsc_list这个子程序<br /> ;;;     (setq list_sjsc-1 (atoi(get_tile "List1")))<br /> ;;;     (setq list_sjsc-2(MJ:removeNth list_sjsc-1 keys1))<br /> ;;;     (setq keys1 list_sjsc-2)<br /> ;;;     (dcl_lbfz "List1" keys1)<br /> ;;;   )<br />        )<br />        (= $reason 1())<br />   );;cond<br /> );;defun<br /> <br /> ;;131.2 [功能] 从列表中删除指定的第n个元素<br /> ;;index 要删除的第几个元素<br /> ;;lst 列表<br /> (defun MJ:removeNth (index lst / c)<br />   (setq c -1)<br />   (apply 'append<br />    (mapcar '(lambda (x)<br />         (if  (/= (setq c (1+ c)) index)<br />           (list x)<br />         )<br />       )<br />      lst<br />    )<br />   )<br /> )<br /> <br /> ;;函数说明<br /> ;;key  控件的key值（字符串）<br /> ;;lst  列表<br /> (defun dcl_lbfz(key lst)<br />   (start_list key);直列表 {"List4"} 初始化<br />   (mapcar 'add_list lst);添加列表项<br />   (end_list)<br /> )<br /> <br /> ;;函数功能  双击删除下拉列表中的元素<br /> ;;函数说明<br /> ;;调用方式 (setq lst(sjsc_list key lst))<br /> ;;例子 (setq keys1(sjsc_list "List1" keys1))<br /> ;;key 控件的key值<br /> ;;lst 赋予下拉列表控件的表<br /> ;;lst 值 样例 (setq lst '("1" "2" "3" "4" "5" "9" "6" "8" "7"))<br /> (defun sjsc_list(key lst / list_sjsc-1)<br />   (setq list_sjsc-1(atoi(get_tile key)))<br />   (setq lst(MJ:removeNth list_sjsc-1 lst))<br />   (start_list key)<br />   (mapcar 'add_list lst)<br />   (end_list)<br />   lst<br /> ;;;  (dcl_lbfz key lst)<br /> )

小小的人

找这个找了很久   试一下效果怎么样   非常感谢分享

yubihai

虽然不明白，努力学习中。。。，楼主辛苦,支持原创

Klein

学习中，双击的确有用

feng83

虽然不明白，努力学习中。。。，楼主辛苦,支持原创

totoro

不错~ 收藏备用~

ymcui

太有用了,顶起来,

Kye

比较厉害

鱼与熊掌

正在学习  感谢分享,收藏了.

ymcui

右边对话框可以点着拖拽来调整上下位置就更美妙了

328302216

ymcui 发表于 2014-12-2 20:36
右边对话框可以点着拖拽来调整上下位置就更美妙了

你可以自己弄在指定位置加入！拖动倒是真不会！

kkt123

太有用了,顶起来

chbddzx12

........................