[求助]：我的DCL就是不能取值！！！

qjcpj

什么也看不到！

gewanjia

不好意思没有弄明白，发帖的按钮用法

2. 
   
3.   [FONT=courier new]
   
4. ( defun c:WL()
   
5. 
   
6.    (setq weldDialog (load_dialog "I:\\寒假作业\\DCL\\weld"))
   
7. 
   
8.    (new_dialog "weld" weldDialog)
   
9. 
   
10.    (action_tile "pipeNo" "(setq pipe (get_tile "pipeNo"))")
    
11.       
    
12.    (start_dialog)
    
13.    (princ pipe)
    
14.    
    
15. )
    
16. 
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> ( defun c:WL()<br /> <br />    (setq weldDialog (load_dialog "I:\\寒假作业\\DCL\\weld"))<br /> <br />    (new_dialog "weld" weldDialog)<br /> <br />    (action_tile "pipeNo" "(setq pipe (get_tile "pipeNo"))")<br />       <br />    (start_dialog)<br />    (princ pipe)<br />    <br /> )<br /> <br />   [/FONT]<br />

2. 
   
3.   [FONT=courier new]
   
4. weld:dialog {
   
5.     label = "焊口标记程序" ;
   
6.     :boxed_column {
   
7.         label = "管线参数" ;
   
8.         :edit_box {
   
9.             key = "pipeNo" ;
   
10.             label = "管线号" ;
    
11.         }
    
12.         ok_cancel;
    
13.         :row {
    
14.             :edit_box {
    
15.                 alignment = left ;
    
16.                 edit_width = 8 ;
    
17.                 key = "pipeOutsideDiameter" ;
    
18.                 label = "管道外径" ;
    
19.             }
    
20.             :edit_box {
    
21.                 alignment = right ;
    
22.                 edit_width = 4 ;
    
23.                 fixed_height = true ;
    
24.                 key = "pipeWallThickness" ;
    
25.                 label = "壁厚" ;
    
26.             }
    
27.         }
    
28.         :radio_row {
    
29.             :edit_box {
    
30.                 alignment = left ;
    
31.                 edit_width = 8 ;
    
32.                 key = "welderNo" ;
    
33.                 label = "焊工号           " ;
    
34.             }
    
35.             :edit_box {
    
36.                 alignment = right ;
    
37.                 edit_width = 4 ;
    
38.                 key = "radiographicProportion" ;
    
39.                 label = "探伤比例" ;
    
40.             }
    
41.         }
    
42.     }
    
43.     :boxed_column {
    
44.         label = "标记设定" ;
    
45.         :row {
    
46.             alignment = left ;
    
47.             :edit_box {
    
48.                 alignment = left ;
    
49.                 edit_width = 8 ;
    
50.                 key = "beginNo" ;
    
51.                 label = "起始序号" ;
    
52.             }
    
53.             :radio_button {
    
54.                 alignment = left ;
    
55.                 key = "marker" ;
    
56.                 label = "标记符号" ;
    
57.                 width = 8 ;
    
58.             }
    
59.         }
    
60.         :row {
    
61.             alignment = left ;
    
62.             :popup_list {
    
63.                 edit_width = 7 ;
    
64.                 key = "font" ;
    
65.                 label = "字体            " ;
    
66.                 list = "宋体\n仿宋\n楷体\n魏体" ;
    
67.             }
    
68.             :edit_box {
    
69.                 edit_limit = 8 ;
    
70.                 key = "Height" ;
    
71.                 label = "字号" ;
    
72.             }
    
73.         }
    
74.         :row {
    
75.             alignment = left ;
    
76.             :edit_box {
    
77.                 edit_width = 8 ;
    
78.                 key = "markerSize" ;
    
79.                 label = "标记大小" ;
    
80.             }
    
81.             :radio_button {
    
82.                 key = "proportion" ;
    
83.                 label = "锁定比例" ;
    
84.             }
    
85.         }
    
86.     }
    
87.     :boxed_column {
    
88.         label = "修改管线" ;
    
89.         :popup_list {
    
90.             key = "completePipeNo" ;
    
91.         }
    
92.         :button {
    
93.             key = "currently" ;
    
94.             label = "管线数据置当前" ;
    
95.         }
    
96.     }
    
97. }
    
98. 
    
99.   [/FONT]
    

<br />   [FONT=courier new]<br /> weld:dialog {<br />     label = "焊口标记程序" ;<br />     :boxed_column {<br />         label = "管线参数" ;<br />         :edit_box {<br />             key = "pipeNo" ;<br />             label = "管线号" ;<br />         }<br />         ok_cancel;<br />         :row {<br />             :edit_box {<br />                 alignment = left ;<br />                 edit_width = 8 ;<br />                 key = "pipeOutsideDiameter" ;<br />                 label = "管道外径" ;<br />             }<br />             :edit_box {<br />                 alignment = right ;<br />                 edit_width = 4 ;<br />                 fixed_height = true ;<br />                 key = "pipeWallThickness" ;<br />                 label = "壁厚" ;<br />             }<br />         }<br />         :radio_row {<br />             :edit_box {<br />                 alignment = left ;<br />                 edit_width = 8 ;<br />                 key = "welderNo" ;<br />                 label = "焊工号           " ;<br />             }<br />             :edit_box {<br />                 alignment = right ;<br />                 edit_width = 4 ;<br />                 key = "radiographicProportion" ;<br />                 label = "探伤比例" ;<br />             }<br />         }<br />     }<br />     :boxed_column {<br />         label = "标记设定" ;<br />         :row {<br />             alignment = left ;<br />             :edit_box {<br />                 alignment = left ;<br />                 edit_width = 8 ;<br />                 key = "beginNo" ;<br />                 label = "起始序号" ;<br />             }<br />             :radio_button {<br />                 alignment = left ;<br />                 key = "marker" ;<br />                 label = "标记符号" ;<br />                 width = 8 ;<br />             }<br />         }<br />         :row {<br />             alignment = left ;<br />             :popup_list {<br />                 edit_width = 7 ;<br />                 key = "font" ;<br />                 label = "字体            " ;<br />                 list = "宋体\n仿宋\n楷体\n魏体" ;<br />             }<br />             :edit_box {<br />                 edit_limit = 8 ;<br />                 key = "Height" ;<br />                 label = "字号" ;<br />             }<br />         }<br />         :row {<br />             alignment = left ;<br />             :edit_box {<br />                 edit_width = 8 ;<br />                 key = "markerSize" ;<br />                 label = "标记大小" ;<br />             }<br />             :radio_button {<br />                 key = "proportion" ;<br />                 label = "锁定比例" ;<br />             }<br />         }<br />     }<br />     :boxed_column {<br />         label = "修改管线" ;<br />         :popup_list {<br />             key = "completePipeNo" ;<br />         }<br />         :button {<br />             key = "currently" ;<br />             label = "管线数据置当前" ;<br />         }<br />     }<br /> }<br /> <br />   [/FONT]<br />

zxq0220

(action_tile "pipeNo" "(setq pipe (get_tile "pipeNo"))")
改成：
(action_tile "pipeNo" "(setq pipe (get_tile \"pipeNo\"))")

carrot1983

学习一下。。。

gewanjia

为什么会使这样呢！！！高手能不能解释一下原因呢

cy956

(action_tile "pipeNo" "(setq pipe (get_tile \"pipeNo\"))")
\起转义作用，没有的话，lisp被认成字串＋变量＋字串，不是你所希望的

gewanjia

还有个问题，在DCL界面打开的情况下，能不能实现数据的实时更新，比如说，我点按钮，按钮所执行的程序是在文本框输入数据！！！

zxq0220

当然可以。不过是打开另一个对话框。具体要看你的详细要求，最好给个程序框架。