帮忙解决如何读取文本框内的数值（希望文本框的数值为上次输入的数值）

davide888

感谢Gu_xl 给我的帮助        修改可以正常运行的结果     初学者的理解   给需要了解基础结构的一起交流

1. fhy : dialog {
   
2.     label="快速偏移";
   
3.         :edit_box {
   
4.             key        = "ll" ;
   
5.             label      = "偏移量：" ;
   
6.             value      = "" ;
   
7.             width      = 32.6 ;
   
8.             height     =  1.0 ;
   
9.             edit_width =  7.1 ;
   
10.             alignment     = top ;
    
11.         }
    
12. ok_cancel;
    
13. }
    

fhy : dialog {<br />     label="快速偏移";<br />         :edit_box {<br />             key        = "ll" ;<br />             label      = "偏移量：" ;<br />             value      = "" ;<br />             width      = 32.6 ;<br />             height     =  1.0 ;<br />             edit_width =  7.1 ;<br />             alignment     = top ;<br />         }<br /> ok_cancel;<br /> }<br />

1. (defun c:fhy( / dcl_id)
   
2.    (if (setq dcl_id (load_dialog "fhy.dcl"))
   
3.        (if (new_dialog "fhy" dcl_id)
   
4.            (progn
   
5.              (if l1
   
6.               (set_tile "ll" (rtos l1 2 0)) ;2为10进制0为小数点后面位数
   
7.               ;(set_tile "ll" (rtos (setq l1 100)))
   
8.                ) ;读取上次数值
   
9.               (action_tile "accept" "(done_dialog 1)") ;确认键执行
   
10.               (action_tile "cancel" "(done_dialog 0)") ;取消键执行
    
11.               (ACTION_TILE "ll" "(setq l1 (atof $value))") ;读取数值
    
12.               (setq re (start_dialog)) ;定义按钮
    
13.               (unload_dialog dcl_id)
    
14.             )
    
15.         )
    
16.     )
    
17.     (if (= re 1) (progn     
    
18.        (command "OFFSET" "l" "c" l1)
    
19.       )
    
20.     )    ;情况执行
    
21.     (princ)
    
22. )
    

(defun c:fhy( / dcl_id)<br />    (if (setq dcl_id (load_dialog "fhy.dcl"))<br />        (if (new_dialog "fhy" dcl_id)<br />            (progn<br />              (if l1<br />               (set_tile "ll" (rtos l1 2 0)) ;2为10进制0为小数点后面位数<br />               ;(set_tile "ll" (rtos (setq l1 100)))<br />                ) ;读取上次数值<br />               (action_tile "accept" "(done_dialog 1)") ;确认键执行<br />               (action_tile "cancel" "(done_dialog 0)") ;取消键执行<br />               (ACTION_TILE "ll" "(setq l1 (atof $value))") ;读取数值<br />               (setq re (start_dialog)) ;定义按钮<br />               (unload_dialog dcl_id)<br />             )<br />         )<br />     )<br />     (if (= re 1) (progn     <br />        (command "OFFSET" "l" "c" l1)<br />       )<br />     )    ;情况执行<br />     (princ)<br /> )<br />

该贴已经同步到 davide888的微博

Gu_xl

1. (defun c:fhy( / dcl_id)
   
2.    (if (setq dcl_id (load_dialog "fhy.dcl"))
   
3.        (if (new_dialog "fhy" dcl_id)
   
4.            (progn
   
5.              (if l1
   
6.               (set_tile "ll" (rtos l1 2 0))
   
7.               (set_tile "ll" (rtos (setq l1 100)))
   
8.                )
   
9.               (action_tile "accept" "(done_dialog 1)")
   
10.               (action_tile "cancel" "(done_dialog 0)")
    
11.               (ACTION_TILE "ll" "(setq l1 (atof $value))")
    
12.               (setq re (start_dialog))
    
13.               (unload_dialog dcl_id)
    
14.             )
    
15.         )
    
16.     )
    
17.     (if (= re 1) (progn
    
18.       (setq aa l1)
    
19.       (command "OFFSET" "l" "c" "aa") ;_ 这是什么命令？？？完全错误的语句！！！
    
20.       )
    
21.     )
    
22.     (princ)
    
23. )

(defun c:fhy( / dcl_id)<br />    (if (setq dcl_id (load_dialog "fhy.dcl"))<br />        (if (new_dialog "fhy" dcl_id)<br />            (progn<br />              (if l1<br />               (set_tile "ll" (rtos l1 2 0))<br />               (set_tile "ll" (rtos (setq l1 100)))<br />                )<br />               (action_tile "accept" "(done_dialog 1)")<br />               (action_tile "cancel" "(done_dialog 0)")<br />               (ACTION_TILE "ll" "(setq l1 (atof $value))")<br />               (setq re (start_dialog))<br />               (unload_dialog dcl_id)<br />             )<br />         )<br />     )<br />     (if (= re 1) (progn<br />       (setq aa l1)<br />       (command "OFFSET" "l" "c" "aa") ;_ 这是什么命令？？？完全错误的语句！！！<br />       )<br />     )<br />     (princ)<br /> )

davide888

Gu_xl 发表于 2012-12-6 11:54

偏移  想要偏移值为DCL文本框的（希望文本框的数值为上次输入的数值）

davide888

神呐  救救我们吧

Gu_xl

davide888 发表于 2012-12-6 12:20
神呐  救救我们吧

(command "OFFSET" "l" "c" "aa")
==>
(command "offset" l1)
(while (= 1 (getvar 'cmdactive)) (command pause))

davide888

Gu_xl 发表于 2012-12-6 13:01
(command "OFFSET" "l" "c" "aa")
==>
(command "offset" l1)

不知道为什么，反正好用了   学习了    非常感谢      希望文本框的100为上次输入的值   该怎么弄？

davide888

Gu_xl 发表于 2012-12-6 11:54

感谢CCTV  感谢Gu_xl 给我的帮助   原来你帮我解决了。