文本框取值

zhanghuohuo

小白，参照别人代码写了个工具。
请大神补充一下，要求运行 点取 取值按钮将选取的文本显示在 文本框窗体中。
代码中(defun GL:qz ()，没有写[size=22.0875pt]

2. 
   
3. (vl-load-com)
   
4. (defun c:tc (/ fname fn x dclid lin)
   
5.   (setq fname (vl-filename-mktemp nil nil ".dcl" ))
   
6.   (setq fn (open fname "w" ))
   
7. 
   
8.   (foreach x '(
   
9.                
   
10.                 "  agtckz : dialog{"
    
11.                 "  label="文本取值求和 V1.0";"  
    
12.                 "     :row{"
    
13.                 "     :boxed_column{"
    
14.                 "     :row{"
    
15.                 "      :edit_box {key = "1";label = "求和";width = 240;height = 4;value ="3";}"               
    
16.                 "     }"
    
17.                 "     :row{"
    
18.                 "      :button{key="2";label="取值";width=16;}"
    
19.                 "     cancel_button;"
    
20.                 "     }"
    
21.                 "     }"              
    
22.                 "     }"
    
23.                 "}"
    
24.               );end ;endlist
    
25.     (princ x fn)
    
26.     (write-line "" fn)
    
27.   );end foreach
    
28.   (close fn)
    
29.   (setq fn (open fname "r" ))
    
30.   (setq dclid (load_dialog fname))
    
31.   (while (or (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn)))) 1 2) "//" ) (eq (substr lin 1 (vl-string-search " " lin)) "" ) (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog" ))))
    
32.   (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)
    
33.   (action_tile "2" "(done_dialog 2)" )
    
34.   (setq re (start_dialog))
    
35.   (cond
    
36.     ((= re 2) (GL:qz))
    
37.    
    
38.   );end cond
    
39.   ;(unload_dialog dclid)
    
40.   ;(close fn)
    
41.   ;(vl-file-delete fname)
    
42.   (princ)
    
43. )
    
44. (defun GL:qz ()
    
45. 
    
46.     )
    

<br /> (vl-load-com)<br /> (defun c:tc (/ fname fn x dclid lin)<br />   (setq fname (vl-filename-mktemp nil nil ".dcl" ))<br />   (setq fn (open fname "w" ))<br /> <br />   (foreach x '(<br />                 <br />                 "  agtckz : dialog{" <br />                 "  label="文本取值求和 V1.0";"  <br />                 "     :row{" <br />                 "     :boxed_column{"<br />                 "     :row{"<br />                 "      :edit_box {key = "1";label = "求和";width = 240;height = 4;value ="3";}"               <br />                 "     }"<br />                 "     :row{"<br />                 "      :button{key="2";label="取值";width=16;}"<br />                 "     cancel_button;"<br />                 "     }"<br />                 "     }"              <br />                 "     }" <br />                 "}" <br />               );end ;endlist<br />     (princ x fn)<br />     (write-line "" fn)<br />   );end foreach<br />   (close fn)<br />   (setq fn (open fname "r" ))<br />   (setq dclid (load_dialog fname))<br />   (while (or (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn)))) 1 2) "//" ) (eq (substr lin 1 (vl-string-search " " lin)) "" ) (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog" ))))<br />   (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)<br />   (action_tile "2" "(done_dialog 2)" )<br />   (setq re (start_dialog))<br />   (cond<br />     ((= re 2) (GL:qz))<br />     <br />   );end cond<br />   ;(unload_dialog dclid)<br />   ;(close fn)<br />   ;(vl-file-delete fname)<br />   (princ)<br /> )<br /> (defun GL:qz ()<br /> <br />     )<br />

飞雪神光

zhanghuohuo

飞雪神光 发表于 2023-8-12 22:47

谢谢。

bonny

GL:???????