Enter键修改文字内容

w2jane

DCL的源码：
er_dcl:dialog{
label="文字编辑";
initial_focus="edit_box_1";
spacer_1;
:edit_box{
label="文字内容";
key="edit_box_1";
edit_width=100;
}//end edit_box
spacer_1;
ok_cancel;
}//end dialog

LISP的源码：
(defun c:er()
  (setq duixiang (entget(car(entsel "\n 请选择需要修改的文字内容"))))
  (setq old_neirong (cdr(assoc 1 duixiang)))
  (setq dcl_id (load_dialog "useful"))
  (new_dialog "er_dcl" dcl_id)
  (set_tile "edit_box_1" old_neirong)
  (setq qishi (get_tile "edit_box_1"))
  (action_tile "accept" "(er_dcl_lisp_1)")
  (action_tile "edit_box_1" "(er_dcl_lisp_2)")
  (start_dialog)
  (unload_dialog dcl_id)
  (entmod new_duixiang)
  (princ)
  )
(defun er_dcl_lisp_1()
  (setq zuizhong (get_tile "edit_box_1"))
  (setq new_neirong_list (cons 1 zuizhong))
  (setq new_duixiang (subst new_neirong_list (cons 1 old_neirong) duixiang))
  (done_dialog dcl_id)
  ;(entmod new_duixiang)
  )
(defun er_dcl_lisp_2()
  (mode_tile "accept" 2)
  )


疑问：现在文字内容修改之后，需要按两下Enter键才能修改成功，怎么修改程序改成只需要按一下Enter键？

zxq0220

2. er_dcl:dialog{
   
3. label="文字编辑";
   
4. initial_focus="edit_box_1";
   
5. spacer_1;
   
6. :edit_box{
   
7. label="文字内容";
   
8. key="edit_box_1";
   
9. edit_width=100;
   
10. is_default=true;
    
11. }//end edit_box
    
12. spacer_1;
    
13. ok_cancel;
    
14. }

er_dcl:dialog{<br /> label="文字编辑";<br /> initial_focus="edit_box_1";<br /> spacer_1;<br /> :edit_box{<br /> label="文字内容";<br /> key="edit_box_1";<br /> edit_width=100;<br /> is_default=true;<br /> }//end edit_box<br /> spacer_1;<br /> ok_cancel;<br /> }

jane2w

虽然退出了这个DCL，但是为什么文字内容没有改变啊。。。

Free-Lancer

思路有些问题，都改了下，自己对照着看看

1. er_dcl:dialog
   
2. {
   
3.   label="文字编辑";
   
4.   initial_focus="edit_box_1";
   
5.   spacer_1;
   
6.   : edit_box
   
7.     {
   
8.       label="文字内容";
   
9.       key="edit_box_1";
   
10.       edit_width=100;
    
11.       allow_accept = true;//允许回车
    
12.     }//end edit_box
    
13.    spacer_1;
    
14.    ok_cancel;
    
15. }//end dialog
    

er_dcl:dialog<br /> {<br />   label="文字编辑";<br />   initial_focus="edit_box_1";<br />   spacer_1;<br />   : edit_box<br />     {<br />       label="文字内容";<br />       key="edit_box_1";<br />       edit_width=100;<br />       allow_accept = true;//允许回车<br />     }//end edit_box<br />    spacer_1;<br />    ok_cancel;<br /> }//end dialog<br />

相应的 Lisp

1. (defun c:er (/ e el str dcl_id nstr)
   
2.   (if (and (setq e (car (entsel "\n选择文字: ")))
   
3.            (setq el (entget e))
   
4.            (= (cdr (assoc 0 el)) "TEXT")
   
5.       )
   
6.     (progn
   
7.       (setq str           (cdr (assoc 1 el))
   
8.             dcl_id (load_dialog "useful")
   
9.       )
   
10.       (new_dialog "er_dcl" dcl_id)
    
11.       (set_tile "edit_box_1" str)
    
12.       (action_tile
    
13.         "accept"
    
14.         "(setq nstr (get_tile \"edit_box_1\"))(done_dialog dcl_id)"
    
15.       )
    
16.       (action_tile
    
17.         "edit_box_1"
    
18.         "(setq nstr $value)"
    
19.       )
    
20.       (start_dialog)
    
21.       (unload_dialog dcl_id)
    
22.       (if (/= nstr str)
    
23.         (entmod (subst (cons 1 nstr) (assoc 1 el) el))
    
24.       )
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    

(defun c:er (/ e el str dcl_id nstr)<br />   (if (and (setq e (car (entsel "\n选择文字: ")))<br />            (setq el (entget e))<br />            (= (cdr (assoc 0 el)) "TEXT")<br />       )<br />     (progn<br />       (setq str           (cdr (assoc 1 el))<br />             dcl_id (load_dialog "useful")<br />       )<br />       (new_dialog "er_dcl" dcl_id)<br />       (set_tile "edit_box_1" str)<br />       (action_tile<br />         "accept"<br />         "(setq nstr (get_tile \"edit_box_1\"))(done_dialog dcl_id)"<br />       )<br />       (action_tile<br />         "edit_box_1"<br />         "(setq nstr $value)"<br />       )<br />       (start_dialog)<br />       (unload_dialog dcl_id)<br />       (if (/= nstr str)<br />         (entmod (subst (cons 1 nstr) (assoc 1 el) el))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

jane2w

这个LISP太难了，得好好复制下来研究一下哈哈。十二分感谢！！！