帮帮忙，不知为何DCL对话框调试没反应。（已解决）

ZHAOWCHANG

YC.DCL

2. test:dialog {
3.     label=" 批量修改文件 ";
4.     :row {
5.         :button {
6.             fixed_width = true ;
7.             label = "目录" ;
8.             width = 10 ;
9.             key = "Sel" ;
10.         }
11.     }
12.    ok_cancel;
13. }

test:dialog {     label=" 批量修改文件 ";     :row {         :button {             fixed_width = true ;             label = "目录" ;             width = 10 ;             key = "Sel" ;         }     }    ok_cancel; }

YC.LSP

2. (defun c:YC()
3.   ;;load dcl file
4.   (if (>(setq index-value (load_dialog "YC")) 0);装载DCL文件
5.     (progn  ;大于0 正确
6.       (if (new_dialog "test" index-value);显示对话框
7. (progn
8.    (start_dialog);;激活
9.    (mode_tile "Sel" 2)
10.    (action_tile "Sel" "(drawline)")
11.    
12. ); end progn
13. (alert " 不能显示对话框")
14.       );end if  
15.     );end progn
16.     (alert "不能装载")
17.   );end if load
18.   (princ)
19. );end defun
20. (defun drawline()
21.   (setq p1 (list 0 0 ) p2 (list 10 10 ))
22.    (command "line" p1 p2 "")
23. )

(defun c:YC()   ;;load dcl file   (if (>(setq index-value (load_dialog "YC")) 0);装载DCL文件     (progn  ;大于0 正确       (if (new_dialog "test" index-value);显示对话框 (progn    (start_dialog);;激活    (mode_tile "Sel" 2)    (action_tile "Sel" "(drawline)")     ); end progn (alert " 不能显示对话框")       );end if       );end progn     (alert "不能装载")   );end if load   (princ) );end defun (defun drawline()   (setq p1 (list 0 0 ) p2 (list 10 10 ))    (command "line" p1 p2 "") )

不知为何，就是不画线。点按钮没有任何反应！

(start_dialog);;激活
应靠后放

ZZXXQQ

3. test:dialog {
4. label=" 批量修改文件 ";
5. :row {
6.   :button {
7.    fixed_width = true ;
8.    label = "目录" ;
9.    width = 10 ;
10.    key = "Sel" ;
11.   }
12. }
13. ok_cancel;
14. }

test:dialog { label=" 批量修改文件 "; :row {   :button {    fixed_width = true ;    label = "目录" ;    width = 10 ;    key = "Sel" ;   } } ok_cancel; }

3. (defun c:YC()
4. (if (> (setq index-value (load_dialog "YC")) 0);装载DCL文件
5. (progn  ;大于0 正确
6.   (if (new_dialog "test" index-value);显示对话框
7.    (progn
8.      (mode_tile "Sel" 2)
9.      (action_tile "Sel" "(done_dialog 2)")
10.      (action_tile "cancel" "(done_dialog 0)")
11.      (action_tile "accept" "(done_dialog 1)")
12.      (setq re (start_dialog));;激活
13.     ); end progn
14.     (alert "不能显示对话框")
15.    );end if
16.    (unload_dialog index-value)
17.   );end progn
18.   (alert "不能装载")
19. );end if load
20. (if (= re 2) (drawline))
21. (princ)
22. );end defun
23. (defun drawline ()
24. (setq p1 (list 0 0) p2 (list 10 10))
25. (command "line" p1 p2 "")
26. )

(defun c:YC() (if (> (setq index-value (load_dialog "YC")) 0);装载DCL文件 (progn  ;大于0 正确   (if (new_dialog "test" index-value);显示对话框    (progn      (mode_tile "Sel" 2)      (action_tile "Sel" "(done_dialog 2)")      (action_tile "cancel" "(done_dialog 0)")      (action_tile "accept" "(done_dialog 1)")      (setq re (start_dialog));;激活     ); end progn     (alert "不能显示对话框")    );end if    (unload_dialog index-value)   );end progn   (alert "不能装载") );end if load (if (= re 2) (drawline)) (princ) );end defun (defun drawline () (setq p1 (list 0 0) p2 (list 10 10)) (command "line" p1 p2 "") )

sailorcwx

对话框没卸载之前是不能调用command的

ZHAOWCHANG

2. (defun    c:YC()
3.    ;;load dcl file
4.    (if    (>(setq index-value (load_dialog    "YC"))    0);装载DCL文件
5.      (progn  ;大于0 正确
6.        (if    (new_dialog    "test" index-value);显示对话框
7.   (progn
8.     (start_dialog);;激活
9.     (mode_tile    "Sel"    2)
10.     (action_tile    "Sel"    "(drawline)")
11.    
12.   ); end progn
13.   (alert    " 不能显示对话框")
14.        );end if  
15.      );end progn
16.      (alert    "不能装载")
17.    );end if load
18.    (princ)
19. );end defun
21. (defun    drawline()
22.    (setq p1 (list    0 0 ) p2 (list    10 10 ))
23. )   

(defun    c:YC()    ;;load dcl file    (if    (>(setq index-value (load_dialog    "YC"))    0);装载DCL文件      (progn  ;大于0 正确        (if    (new_dialog    "test" index-value);显示对话框   (progn     (start_dialog);;激活     (mode_tile    "Sel"    2)     (action_tile    "Sel"    "(drawline)")       ); end progn   (alert    " 不能显示对话框")        );end if        );end progn      (alert    "不能装载")    );end if load    (princ) );end defun (defun    drawline()    (setq p1 (list    0 0 ) p2 (list    10 10 )) )   

但这样也不行，P1 P2没有赋值。
改成这样也不行
(action_tile    "Sel"    "(setq a 1)")
a也没得到赋值