[LISP函数]：请教高手，帮忙看看我的小程序有什么问题？

easyli

;;password.lsp     
;;
(defun getpass (/ dcl_id pass)
  (setq dcl_id (load_dialog "password.dcl"))
  (if (new_dialog "passdlg" dcl_id)
    (progn
      (start_dialog)
      (action_tile "password" "(set 'pass $value)")
      (unload_dialog dcl_id)
    )
    (princ "error!")
  )
  pass
)
;********************************
;********************************

(if (= "111" (getpass))
  (princ)
)
(getpass)
(load "password.lsp")
  以下是dcl文件：
//password.dcl
//
passdlg:dialog{
        label="password Protected";
        initial_focus="password";
        :edit_box{
                label="Password:";
                edit_width=20;
                key="password";
                value="";
                password_char="?";
                }
        ok_cancel;
        }
不知是什么问题，(action_tile "password" "(set 'pass $value)")
这一句总是没法读取在对话框输入的数据，请教问题在那里。(action_tile "password" "(set 'pass $value)")[/COLOR]

e2002

没时间看,因该是 setq  吧？

ll_j

最初由 easyli 发布
;;password.lsp     
;;
(defun getpass (/ dcl_id pass)
  (setq dcl_id (load_dialog "password.dcl"))
  (if (new_dialog "passdlg" dcl_id)
    (progn
      (start_dialog)
      (action_tile "passwo...

这样：

2. 
   
3. ;;password.lsp
   
4. ;;
   
5. (defun getpass (/ dcl_id)
   
6.   (setq dcl_id (load_dialog "password.dcl"))
   
7.   (if (new_dialog "passdlg" dcl_id)
   
8.     (progn
   
9.       (mode_tile "password" 2)
   
10.       (action_tile "password" "(setq pass $value)")
    
11.       (action_tile "accept" "(done_dialog 1)")
    
12.       (action_tile "cancel" "(done_dialog 0)")   ;Cancel键对应
    
13. ;      (unload_dialog dcl_id)
    
14.       (setq aaa(start_dialog))           ;此句应在后面
    
15.     )
    
16.     (princ "error!")
    
17.   )
    
18.   (if (= aaa 1) pass)
    
19. )
    
20. ;********************************
    
21. ;********************************
    
22. (if (= "111" (getpass))
    
23. (princ "a")
    
24. )
    
25. ;(getpass)
    
26. ;(load "password.lsp")
    
27. 
    
28. //password.dcl
    
29. //
    
30. passdlg:dialog{
    
31.     label="password Protected";
    
32.     initial_focus="password";
    
33.     :edit_box{
    
34.         label="Password:";
    
35.         edit_width=20;
    
36.         key="password";
    
37.         value="";
    
38.         password_char="*";
    
39.         allow_accept=true;
    
40.     }
    
41.     ok_cancel;              //用ok_only好些
    
42. }
    

<br /> ;;password.lsp <br /> ;; <br /> (defun getpass (/ dcl_id) <br />   (setq dcl_id (load_dialog "password.dcl")) <br />   (if (new_dialog "passdlg" dcl_id) <br />     (progn <br />       (mode_tile "password" 2)<br />       (action_tile "password" "(setq pass $value)")<br />       (action_tile "accept" "(done_dialog 1)")<br />       (action_tile "cancel" "(done_dialog 0)")   ;Cancel键对应<br /> ;      (unload_dialog dcl_id) <br />       (setq aaa(start_dialog))           ;此句应在后面<br />     ) <br />     (princ "error!") <br />   ) <br />   (if (= aaa 1) pass) <br /> ) <br /> ;******************************** <br /> ;******************************** <br /> (if (= "111" (getpass)) <br /> (princ "a") <br /> ) <br /> ;(getpass) <br /> ;(load "password.lsp") <br /> <br /> //password.dcl <br /> // <br /> passdlg:dialog{ <br />     label="password Protected"; <br />     initial_focus="password"; <br />     :edit_box{ <br />         label="Password:"; <br />         edit_width=20; <br />         key="password"; <br />         value=""; <br />         password_char="*"; <br />         allow_accept=true;<br />     } <br />     ok_cancel;              //用ok_only好些<br /> }<br />

LUCAS

(defun GETPASS (/ DCL_ID PASS)
  (setq DCL_ID (load_dialog "password.dcl"))
  (if (new_dialog "passdlg" DCL_ID)
    (progn
      (action_tile "password" "(set 'pass $value)")
      (start_dialog)
      (unload_dialog DCL_ID)
    )
    (princ "error!")
  )
  PASS
)
;;********************************
;;********************************
(if (= "111" (GETPASS))
  (ALERT "PASSWORD OK")
  (ALERT "WRONG PASSWORD")
)

XDSoft

DCL语言，start_dialog应该在控制的最后一句。