请教toggle获得返回值的问题

alwtyp

各位，请教一下以下LSP中，为什么toggle的取值(get_tile "com")会是NIL。

2. (Defun C:test (/ Fn Lsdcl X Dcl_Id Re Vlxpath Inpath)
   
3.    (Setq Fn (Open (Setq Lsdcl (Vl-Filename-Mktemp "Tmp" "" ".Dcl")) "W"))
   
4.    (Foreach X
   
5.      (List
   
6.        "path:dialog {label="程序 ay编制";" "spacer;"
   
7.            ":row {label="路径";" "alignment=centered;"
   
8.              ":button {label="浏览";key="vlxPath";}"
   
9.              ":edit_box {key="Pathtxt";edit_width=24;} }"" spacer_1;"
   
10.            ":row {label="加载命令";"
    
11.              ":toggle {label="第一次提示";key="com";}"
    
12.              ":toggle {label="第二次提示";key="info";} }"" spacer_1;"
    
13.        "ok_cancel_help;} ")
    
14.     (Write-Line X Fn))
    
15.    (Close Fn)
    
16.    (Setq Dcl_Id (Load_Dialog Lsdcl))
    
17.    (Vl-File-Delete Lsdcl)
    
18.    (Setq Re 11)
    
19.    (While (> Re 10)
    
20.      (If (New_Dialog "path" Dcl_Id)
    
21.        (Progn
    
22.          (Action_Tile "vlxPath" "(Done_Dialog 11)")
    
23.    (If (/= Vlxpath NIL) (Setq Inpath (Set_tile "Pathtxt" (Vl-Filename-Directory Vlxpath)) ) )
    
24.    (set_tile "com" "1") (set_tile "info" "1")
    
25.    (Action_Tile "Accept" "(Setup_Ok) (Done_Dialog 1)")
    
26.          (Action_Tile "Cancel" "(Done_Dialog 0)")
    
27.          (Action_Tile "Help" "(Help "aylisp.Chm")")
    
28.    (Setq re (Start_Dialog)) ) )
    
29.      (If (= Re 11) (Setq Vlxpath (Getfiled "选择程序文件" "12.lsp" "lsp" 0))) )
    
30.    (IF (= Re 1)(Setup_Ok) )
    
31.    (setq com (get_tile "com"))
    
32.    (Unload_Dialog Dcl_Id)
    
33.    (Princ)
    
34.   )
    
35. 
    
36. 
    
37. (defun Setup_Ok()
    
38.   (progn (If (= (get_tile "com") "1") (alert "第一次提示!"))
    
39.          (If (= (get_tile "info") "1") (alert "第二次提示!")) ) )

(Defun C:test (/ Fn Lsdcl X Dcl_Id Re Vlxpath Inpath)<br />    (Setq Fn (Open (Setq Lsdcl (Vl-Filename-Mktemp "Tmp" "" ".Dcl")) "W"))<br />    (Foreach X<br />      (List<br />        "path:dialog {label="程序 ay编制";" "spacer;"<br />            ":row {label="路径";" "alignment=centered;"<br />              ":button {label="浏览";key="vlxPath";}"<br />              ":edit_box {key="Pathtxt";edit_width=24;} }"" spacer_1;"<br />            ":row {label="加载命令";"<br />              ":toggle {label="第一次提示";key="com";}"<br />              ":toggle {label="第二次提示";key="info";} }"" spacer_1;"<br />        "ok_cancel_help;} ")<br />     (Write-Line X Fn))<br />    (Close Fn)<br />    (Setq Dcl_Id (Load_Dialog Lsdcl)) <br />    (Vl-File-Delete Lsdcl)<br />    (Setq Re 11)<br />    (While (> Re 10)<br />      (If (New_Dialog "path" Dcl_Id)<br />        (Progn<br />          (Action_Tile "vlxPath" "(Done_Dialog 11)")<br />    (If (/= Vlxpath NIL) (Setq Inpath (Set_tile "Pathtxt" (Vl-Filename-Directory Vlxpath)) ) )<br />    (set_tile "com" "1") (set_tile "info" "1")<br />    (Action_Tile "Accept" "(Setup_Ok) (Done_Dialog 1)")<br />          (Action_Tile "Cancel" "(Done_Dialog 0)")<br />          (Action_Tile "Help" "(Help "aylisp.Chm")")<br />    (Setq re (Start_Dialog)) ) )<br />      (If (= Re 11) (Setq Vlxpath (Getfiled "选择程序文件" "12.lsp" "lsp" 0))) )<br />    (IF (= Re 1)(Setup_Ok) )<br />    (setq com (get_tile "com"))<br />    (Unload_Dialog Dcl_Id)<br />    (Princ)<br />   )<br /> <br /> <br /> (defun Setup_Ok()<br />   (progn (If (= (get_tile "com") "1") (alert "第一次提示!"))<br />          (If (= (get_tile "info") "1") (alert "第二次提示!")) ) )

Gu_xl

(setq com (get_tile "com"))
放在了(Start_Dialog)之后了，意味着已经跳出了对话框，(get_tile "com")当然为nil了！这句代码要放在前面：
(action_tile "com" "(setq com $value)")

alwtyp

这样子吗？也不行啊

2. (Defun C:test (/ Fn Lsdcl X Dcl_Id Re Vlxpath Inpath Com Info)
   
3.    (Setq Fn (Open (Setq Lsdcl (Vl-Filename-Mktemp "Tmp" "" ".Dcl")) "W"))
   
4.    (Foreach X
   
5.      (List
   
6.        "path:dialog {label="程序 ay编制";" "spacer;"
   
7.            ":row {label="路径";" "alignment=centered;"
   
8.              ":button {label="浏览";key="vlxPath";}"
   
9.              ":edit_box {key="Pathtxt";edit_width=24;} }"" spacer_1;"
   
10.            ":row {label="加载命令";"
    
11.              ":toggle {label="第一次提示";key="com";value=1;}"
    
12.              ":toggle {label="第二次提示";key="info";value=1;} }"" spacer_1;"
    
13.        "ok_cancel_help;} ")
    
14.     (Write-Line X Fn))
    
15.    (Close Fn)
    
16.    (Setq Dcl_Id (Load_Dialog Lsdcl))
    
17.    (Vl-File-Delete Lsdcl)
    
18.    (Setq Re 11)
    
19.    (While (> Re 10)
    
20.      (If (New_Dialog "path" Dcl_Id)
    
21.        (Progn
    
22.          (Action_Tile "vlxPath" "(Done_Dialog 11)")
    
23.          (If (/= Vlxpath NIL) (Setq Inpath (Set_tile "Pathtxt" (Vl-Filename-Directory Vlxpath)) ) )
    
24. ;;;         (set_tile "com" "1") (set_tile "info" "1")
    
25.          (action_tile "com" "(setq com $value)")
    
26.          (action_tile "info" "(setq info $value)")
    
27.          (Action_Tile "Accept" "(Setup_Ok) (Done_Dialog 1)")
    
28.          (Action_Tile "Cancel" "(Done_Dialog 0)")
    
29.          (Action_Tile "Help" "(Help "aylisp.Chm")")
    
30.          (Setq re (Start_Dialog)) ) )
    
31.      (If (= Re 11) (Setq Vlxpath (Getfiled "选择程序文件" "12.lsp" "lsp" 0))) )
    
32.    (IF (= Re 1)(Setup_Ok) )
    
33.    (setq com (get_tile "com"))
    
34.    (Unload_Dialog Dcl_Id)
    
35.    (Princ)
    
36.   )
    
37. 
    
38. 
    
39. (defun Setup_Ok(/ Com Info)
    
40.   (progn (If (= Com "1") (alert "第一次提示!"))
    
41.          (If (= Info "1") (alert "第二次提示!")) ) )

(Defun C:test (/ Fn Lsdcl X Dcl_Id Re Vlxpath Inpath Com Info)<br />    (Setq Fn (Open (Setq Lsdcl (Vl-Filename-Mktemp "Tmp" "" ".Dcl")) "W"))<br />    (Foreach X<br />      (List<br />        "path:dialog {label="程序 ay编制";" "spacer;"<br />            ":row {label="路径";" "alignment=centered;"<br />              ":button {label="浏览";key="vlxPath";}"<br />              ":edit_box {key="Pathtxt";edit_width=24;} }"" spacer_1;"<br />            ":row {label="加载命令";"<br />              ":toggle {label="第一次提示";key="com";value=1;}"<br />              ":toggle {label="第二次提示";key="info";value=1;} }"" spacer_1;"<br />        "ok_cancel_help;} ")<br />     (Write-Line X Fn))<br />    (Close Fn)<br />    (Setq Dcl_Id (Load_Dialog Lsdcl)) <br />    (Vl-File-Delete Lsdcl)<br />    (Setq Re 11)<br />    (While (> Re 10)<br />      (If (New_Dialog "path" Dcl_Id)<br />        (Progn<br />          (Action_Tile "vlxPath" "(Done_Dialog 11)")<br />          (If (/= Vlxpath NIL) (Setq Inpath (Set_tile "Pathtxt" (Vl-Filename-Directory Vlxpath)) ) )<br /> ;;;         (set_tile "com" "1") (set_tile "info" "1")<br />          (action_tile "com" "(setq com $value)")<br />          (action_tile "info" "(setq info $value)")<br />          (Action_Tile "Accept" "(Setup_Ok) (Done_Dialog 1)")<br />          (Action_Tile "Cancel" "(Done_Dialog 0)")<br />          (Action_Tile "Help" "(Help "aylisp.Chm")")<br />          (Setq re (Start_Dialog)) ) )<br />      (If (= Re 11) (Setq Vlxpath (Getfiled "选择程序文件" "12.lsp" "lsp" 0))) )<br />    (IF (= Re 1)(Setup_Ok) )<br />    (setq com (get_tile "com"))<br />    (Unload_Dialog Dcl_Id)<br />    (Princ)<br />   )<br /> <br /> <br /> (defun Setup_Ok(/ Com Info)<br />   (progn (If (= Com "1") (alert "第一次提示!"))<br />          (If (= Info "1") (alert "第二次提示!")) ) )