旧事重提！如何实现单击radio_button时edit_box实时更新

革天明

我要的内容和此贴要求的一样，已有不少高手解答了，无奈DCL对我来说太验了，我只能实现单列的实时更新，两列在一块时就有问题。请高手写出此图片上的DCL和LISP调用文件。
要求：点左侧的单选按钮时，给变量guanya赋值为单选按钮的label值，点右侧的单选按钮时给xinghao赋值为单选按钮的label值。（setq str1(strcat guanya xinghao))(set_tile "guanyaxinghao" str1)
注意：(set_tile "guanyaxinghao" str1)这句只是显示我的选择，程序中我使用的是str1这个变量。如果str1不容易得到的话，可以从(setq str1(get_tile "guanyaxinghao" ))中取值。也就是说guanyaxinghao这个edit_box只是“测试”显示结果，我的程序中不必要这个edit_box
插入引线标注 是不必要的。

xshrimp

1. (defun c:test( / dclid dclname filen gyxh stream tempname)
   
2. (defun act-dcl()
   
3.   (setq #gydata# (subst (list $key $value)(assoc $key #gydata#)#gydata#))   
   
4.   (set_tile "GYXH" (setq gyxh (strcat(get_tile "GY")(get_tile "XH"))))
   
5.   (setq #gydata# (subst(list "GYXH" gyxh)(assoc "GYXH" #gydata#)#gydata#))
   
6. )
   
7. (defun act-dcl-gyxh( )  
   
8.   (setq #gydata# (subst(list "GYXH" $value)(assoc "GYXH" #gydata#)#gydata#))
   
9. )
   
10. (defun act-dcl-in()  
    
11.   (alert (cadr(assoc "GYXH" #gydata#)))  
    
12. )
    
13. (setq dclname
    
14. (cond  
    
15. ((setq tempname (vl-filename-mktemp "gps-dcl-tmp.dcl") filen (open tempname "w"))
    
16. (foreach stream  
    
17. '(  
    
18. "test:dialog{\n"
    
19. "label=\"管牙型号标注\";\n"
    
20. ":row{\n"
    
21. ":boxed_radio_column{key=\"GY\";label=\"管牙\";width=15;\n"
    
22. ":radio_button{key=\"PT\";label=\"PT\";}\n"
    
23. ":radio_button{key=\"NPT\";label=\"NPT\";}\n"
    
24. ":radio_button{key=\"BSP\";label=\"BSP\";}\n"
    
25. ":radio_button{key=\"BSPT\";label=\"BSPT\";}\n"
    
26. "}\n"
    
27. ":boxed_radio_column{key=\"XH\";label=\"型号\";width=15;\n"
    
28. ":radio_button{key=\"1/8\";label=\"1/8\";}\n"
    
29. ":radio_button{key=\"1/4\";label=\"1/4\";}\n"
    
30. ":radio_button{key=\"3/8\";label=\"3/8\";}\n"
    
31. ":radio_button{key=\"1/2\";label=\"1/2\";}\n"
    
32. ":radio_button{key=\"3/4\";label=\"3/4\";}\n"
    
33. "}\n"
    
34. "}\n"
    
35. ":edit_box{key=\"GYXH\";label=\"管牙型号\";}\n"
    
36. ":row{\n"
    
37. ":button{key=\"IN\";label=\"插入引线标注\";}\n"
    
38. ":button{is_cancel=true;key=\"cancel\";label=\"取消\";}\n"
    
39. "}\n"
    
40. "}\n"
    
41. )
    
42. (princ stream filen)
    
43. )
    
44. (close filen)
    
45. tempname
    
46. )))
    
47. (setq dclid (load_dialog dclname))  
    
48. (if (not (new_dialog "test" dclid)) (progn (alert "dcl对话框加载失败.")(exit)))
    
49. (if (null #gydata#)
    
50.   (setq #gydata# (list (list "GY" "PT")(list "XH" "1/8")(list "GYXH" "PT1/8")))
    
51. )
    
52. (set_tile "GY"   (cadr(assoc "GY"   #gydata#)))
    
53. (set_tile "XH"   (cadr(assoc "XH"   #gydata#)))
    
54. (set_tile "GYXH" (cadr(assoc "GYXH" #gydata#)))
    
55. 
    
56. (action_tile "GY"   "(act-dcl)")
    
57. (action_tile "XH"   "(act-dcl)")
    
58. (action_tile "GYXH" "(act-dcl-gyxh)")
    
59. 
    
60. (action_tile "IN"   "(act-dcl-in)")
    
61. (action_tile "cancel" "(done_dialog 0)")
    
62. 
    
63. (start_dialog)
    
64. (unload_dialog dclid)
    
65. (vl-file-delete dclname)
    
66. )
    

(defun c:test( / dclid dclname filen gyxh stream tempname)<br /> (defun act-dcl()<br />   (setq #gydata# (subst (list $key $value)(assoc $key #gydata#)#gydata#))    <br />   (set_tile "GYXH" (setq gyxh (strcat(get_tile "GY")(get_tile "XH"))))<br />   (setq #gydata# (subst(list "GYXH" gyxh)(assoc "GYXH" #gydata#)#gydata#))<br /> )<br /> (defun act-dcl-gyxh( )  <br />   (setq #gydata# (subst(list "GYXH" $value)(assoc "GYXH" #gydata#)#gydata#))<br /> )<br /> (defun act-dcl-in()  <br />   (alert (cadr(assoc "GYXH" #gydata#)))  <br /> )<br /> (setq dclname <br /> (cond  <br /> ((setq tempname (vl-filename-mktemp "gps-dcl-tmp.dcl") filen (open tempname "w")) <br /> (foreach stream  <br /> '(  <br /> "test:dialog{\n"<br /> "label=\"管牙型号标注\";\n"<br /> ":row{\n"<br /> ":boxed_radio_column{key=\"GY\";label=\"管牙\";width=15;\n"<br /> ":radio_button{key=\"PT\";label=\"PT\";}\n"<br /> ":radio_button{key=\"NPT\";label=\"NPT\";}\n"<br /> ":radio_button{key=\"BSP\";label=\"BSP\";}\n"<br /> ":radio_button{key=\"BSPT\";label=\"BSPT\";}\n"<br /> "}\n"<br /> ":boxed_radio_column{key=\"XH\";label=\"型号\";width=15;\n"<br /> ":radio_button{key=\"1/8\";label=\"1/8\";}\n"<br /> ":radio_button{key=\"1/4\";label=\"1/4\";}\n"<br /> ":radio_button{key=\"3/8\";label=\"3/8\";}\n"<br /> ":radio_button{key=\"1/2\";label=\"1/2\";}\n"<br /> ":radio_button{key=\"3/4\";label=\"3/4\";}\n"<br /> "}\n"<br /> "}\n"<br /> ":edit_box{key=\"GYXH\";label=\"管牙型号\";}\n"<br /> ":row{\n"<br /> ":button{key=\"IN\";label=\"插入引线标注\";}\n"<br /> ":button{is_cancel=true;key=\"cancel\";label=\"取消\";}\n"<br /> "}\n"<br /> "}\n"<br /> )<br /> (princ stream filen)<br /> ) <br /> (close filen)<br /> tempname<br /> )))<br /> (setq dclid (load_dialog dclname))  <br /> (if (not (new_dialog "test" dclid)) (progn (alert "dcl对话框加载失败.")(exit)))<br /> (if (null #gydata#) <br />   (setq #gydata# (list (list "GY" "PT")(list "XH" "1/8")(list "GYXH" "PT1/8")))<br /> )<br /> (set_tile "GY"   (cadr(assoc "GY"   #gydata#)))<br /> (set_tile "XH"   (cadr(assoc "XH"   #gydata#)))<br /> (set_tile "GYXH" (cadr(assoc "GYXH" #gydata#)))<br /> <br /> (action_tile "GY"   "(act-dcl)")<br /> (action_tile "XH"   "(act-dcl)")<br /> (action_tile "GYXH" "(act-dcl-gyxh)")<br /> <br /> (action_tile "IN"   "(act-dcl-in)")<br /> (action_tile "cancel" "(done_dialog 0)")<br /> <br /> (start_dialog)<br /> (unload_dialog dclid)<br /> (vl-file-delete dclname) <br /> )<br />

革天明

此贴的链接为：
http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid509513

革天明

谢谢您了！水平真高，有您的范例我就能照着仿写，谢谢

革天明

好像有BUG，自己也能回答自己的帖子！

革天明

请问如何再加两个编辑框，此编辑框的内容也要随你的选择而变化，
在路径下有20个文件，文件名为pt1/8.dat   pt1/4.dat...pt3/4.dat......BSPT1/8.dat...BSPT3/4.dat共20个文件，使用函数myread可将文件的内容读成表，第行为一个元素。如'(1.3 2.6 2.8 12).
两个单选按钮组成一个文件名变量，使用函数myread将此文件中的内容读出来，返回的表的第2、第4个元素分别赋值给edit_box1和edit_box2

革天明

myread函数我已经自定义好了，你在程序中只用调用就行了，
;|需要输入文件路径，返回文件按行读取读取后的列表=====================================|;

(defun str-lst (lj / data_list ff data)
  (setq        data_list '()
        ff          (open lj "r")
        data          (read-line ff)
  )
  (while data
    (setq data_list (cons data data_list)
          data            (read-line ff)
    )
  )
  (reverse data_list)                        ;对表倒序排序,;输出列表
)                                        ;edn defun

革天明

xshrimp 发表于 2012-3-6 09:55

已完成了，谢谢你，主要在act-dcl中加代码就行了

革天明

xshrimp 发表于 2012-3-6 09:55

程序目前好像只对key=XH和key=GY这两个key作用，而key=1/8、key=PT等都不起作用了，
(action_tile "PT" "(show22)")此句用来显示幻灯片，可是不起作用了，请问如何解决？

露草

厉害  对DCL  一直没下功夫学习