屏幕取词和下拉单选问题

yhly555

;如题，如何实现动态屏幕取词和下拉单选（即我点击“点取”选择屏幕的文字时，
自动将其内容添加到左边对应的文本框内，点击“下拉按钮”对应内容是，自动将
其内容添加到左边的文本框内），谢谢！

2. (defun DCL-CTRL(/ txt1 num1 num1 number1 number2 txt2 en end_1 old_name new_name)  
   
3.   
   
4.   (setq dcl_id (load_dialog (CBJYC-DCL)))
   
5.   (new_dialog "tet" dcl_id)  
   
6. 
   
7.   (start_list "ZM_POP")
   
8.   (mapcar 'add_list (setq ZM_list (list "" "AA" "BB" "CC")))
   
9.   (end_list)
   
10.   
    
11.   (action_tile "accept" "(OK_DCL) (done_dialog 1)")
    
12.   (setq dd (start_dialog))
    
13.   (if (= dd 1)   
    
14.     (princ "\n对话框结束")     
    
15.   )  
    
16.   (unload_dialog dcl_id)  
    
17. )
    
18. 
    
19. (defun OK_DCL()
    
20.   ((set_tile "ZM" (nth (read (get_tile "ZM_POP")) ZM_list)))  ;下列列表方式
    
21. )
    
22. 
    
23. (defun CBJYC-DCL  (/ lst_str str file f)
    
24.   (setq lst_str '(
    
25.       "tet:dialog"
    
26.       "{"
    
27.       " label = "测试";"
    
28.       "        :boxed_column"
    
29.       "        {"
    
30.       "        label = "信息" ;"
    
31.       "          :row"
    
32.       "          {"  
    
33.       "              :edit_box"
    
34.       "              {"
    
35.       "                key = "PMQC";"
    
36.       "                label = "屏幕取词:" ;"
    
37.       "                width = 28 ;"
    
38.       "                height = 1 ;"
    
39.       "              }"
    
40.       "             :button"
    
41.       "             {"
    
42.       "               key = "PMQC_BTN" ;"
    
43.       "               label = "<<点取>>" ;"
    
44.       "               width = 4.35 ;"
    
45.        "               height = 1 ;"
    
46.       "                alignment=top ;"
    
47.        "             }"
    
48.       "          }"  
    
49.       "          :row"
    
50.       "          {"  
    
51.       "              :edit_box"
    
52.       "              {"
    
53.       "                key = "ZM";"
    
54.       "                label = "下拉单选:" ;"
    
55.       "                width = 33 ;"
    
56.       "                height = 1 ;"
    
57.       "              }"
    
58.       "              :popup_list"
    
59.        "              {"
    
60.       "              key = "ZM_POP" ;"
    
61.       "              width = 5 ;"
    
62.       "              height = 1.5 ;"
    
63.       "              }"
    
64.       "          }"
    
65.       "       }"  
    
66.       "ok_cancel ;"
    
67.       "}"
    
68.     )
    
69.   )
    
70.   (setq file (vl-filename-mktemp "DclTemp.dcl"))
    
71.   (setq f (open file "w"))
    
72.   (foreach str lst_str
    
73.     (princ "\n" f)
    
74.     (princ str f)
    
75.   )
    
76.   (close f)
    
77.   ;;返回
    
78.   file
    
79. )
    
80. 
    
81. (defun c:test()
    
82.   (DCL-CTRL)
    
83. )

(defun DCL-CTRL(/ txt1 num1 num1 number1 number2 txt2 en end_1 old_name new_name)  <br />   <br />   (setq dcl_id (load_dialog (CBJYC-DCL)))<br />   (new_dialog "tet" dcl_id)  <br /> <br />   (start_list "ZM_POP")<br />   (mapcar 'add_list (setq ZM_list (list "" "AA" "BB" "CC")))<br />   (end_list)<br />   <br />   (action_tile "accept" "(OK_DCL) (done_dialog 1)")<br />   (setq dd (start_dialog))<br />   (if (= dd 1)    <br />     (princ "\n对话框结束")     <br />   )  <br />   (unload_dialog dcl_id)  <br /> )<br /> <br /> (defun OK_DCL()<br />   ((set_tile "ZM" (nth (read (get_tile "ZM_POP")) ZM_list)))  ;下列列表方式<br /> )<br /> <br /> (defun CBJYC-DCL  (/ lst_str str file f)<br />   (setq lst_str '(<br />       "tet:dialog"<br />       "{"<br />       " label = "测试";"<br />       "        :boxed_column"<br />       "        {"<br />       "        label = "信息" ;"<br />       "          :row"<br />       "          {"  <br />       "              :edit_box"<br />       "              {"<br />       "                key = "PMQC";"<br />       "                label = "屏幕取词:" ;"<br />       "                width = 28 ;"<br />       "                height = 1 ;"<br />       "              }"<br />       "             :button"<br />       "             {"<br />       "               key = "PMQC_BTN" ;"<br />       "               label = "<<点取>>" ;"<br />       "               width = 4.35 ;"<br />        "               height = 1 ;"<br />       "                alignment=top ;"<br />        "             }"<br />       "          }"  <br />       "          :row"<br />       "          {"  <br />       "              :edit_box"<br />       "              {"<br />       "                key = "ZM";"<br />       "                label = "下拉单选:" ;"<br />       "                width = 33 ;"<br />       "                height = 1 ;"<br />       "              }"<br />       "              :popup_list"<br />        "              {"<br />       "              key = "ZM_POP" ;"<br />       "              width = 5 ;"<br />       "              height = 1.5 ;"<br />       "              }"<br />       "          }"<br />       "       }"  <br />       "ok_cancel ;"<br />       "}"<br />     )<br />   )<br />   (setq file (vl-filename-mktemp "DclTemp.dcl"))<br />   (setq f (open file "w"))<br />   (foreach str lst_str<br />     (princ "\n" f)<br />     (princ str f)<br />   )<br />   (close f)<br />   ;;返回<br />   file<br /> )<br /> <br /> (defun c:test()<br />   (DCL-CTRL)<br /> )

yhly555

看来问题有点严重

438682112

谢谢楼主分享

bori

也是新手一枚，按照我自己想的方法，试试看。

yhly555

bori 发表于 2015-11-11 09:09
也是新手一枚，按照我自己想的方法，试试看。

可以了，非常感谢！你太帅了。

xyp1964

yhly555

xyp1964 发表于 2015-11-12 03:06

感谢版主！

yhly555

bori 发表于 2015-11-11 09:09
也是新手一枚，按照我自己想的方法，试试看。

新的问题出现了，如何实现数据追加，却进行第二次取词时，文本框的值保留，追加第二次取得的值，也就是保留多次取词的结果，不清空文本框。

bori

yhly555 发表于 2015-11-12 19:47
新的问题出现了，如何实现数据追加，却进行第二次取词时，文本框的值保留，追加第二次取得的值，也就是保 ...

这个就取值之后，建个list，再处理啊。
你看看，是不是你想要的？

wushixlm

学习一下！！！！！