在程序加载的时候出现以下提示，是什么意思？

shichenxi

程序加载的时候出现这样的问题，阿是我下面的这个程序哪边错误啦？麻烦各位达人来看一下？
(defun showsub1 (/ jd sdt1)
  (princ "good")
  (if (> (setq jd (load_dialog "dlg_ch")) 0)
   (progn
     (if (new_dialog "dlg_ch" jd))
      (progn
        (action_tile "pl" "(setq pop 1) (sub_pop $value)")
        (action_tile "pw" "(setq pop 2) (sub_pop $value)")
        (action_tile "pt" "(setq pop 3) (sub_pop $value)")
        (action_tile "ml" "(setq pop 4) (sub_pop $value)")
        (action_tile "mw" "(setq pop 5) (sub_pop $value)")
        (action_tile "mt" "(setq pop 6) (sub_pop $value)")
        (action_tile "dl" "(setq pop 7) (sub_pop $value)")
        (action_tile "dw" "(setq pop 8) (sub_pop $value)")   
        (action_tile "dt" "(setq pop 9) (sub_pop $value)")
        (action_tile "bl" "(setq pop 10) (sub_pop $value)")
        (action_tile "bw" "(setq pop 11) (sub_pop $value)")
        (action_tile "bt" "(setq pop 12) (sub_pop $value)")
        (action_tile "wl" "(setq pop 12) (sub_pop $value)")
        (action_tile "ww" "(setq pop 13) (sub_pop $value)")
        (action_tile "wt" "(setq pop 14) (sub_pop $value)")
        (action_tile "gl" "(setq pop 15) (sub_pop $value)")
        (action_tile "gw" "(setq pop 16) (sub_pop $value)")
        (action_tile "gt" "(setq pop 17) (sub_pop $value)")
        (action_tile "cl" "(setq pop 18) (sub_pop $value)")
        (action_tile "cw" "(setq pop 19) (sub_pop $value)")
        (action_tile "ct" "(setq pop 20) (sub_pop $value)")
        (action_tile "ll" "(setq pop 21) (sub_pop $value)")
        (action_tile "lw" "(setq pop 22) (sub_pop $value)")
        (action_tile "lt" "(setq pop 22) (sub_pop $value)")
        (setq sdt1 (start_dialog))
        (if (= sdt1 1)
         (progn
          (load "cabinet.lsp")
         )
        )
       (unload_dialog sdt1)
      )
     )
    )
  )
  (princ)
)

ZZXXQQ

1、(if (new_dialog "dlg_ch" jd))多了右括弧
2、(unload_dialog std1)中变量std1应改为jd

1. (defun showsub1 (/ jd sdt1)
   
2.   (princ "good")
   
3.   (if (> (setq jd (load_dialog "dlg_ch")) 0)
   
4.    (progn
   
5.      (if (new_dialog "dlg_ch" jd)
   
6.       (progn
   
7.         (action_tile "pl" "(setq pop 1) (sub_pop $value)")
   
8.         (action_tile "pw" "(setq pop 2) (sub_pop $value)")
   
9.         (action_tile "pt" "(setq pop 3) (sub_pop $value)")
   
10.         (action_tile "ml" "(setq pop 4) (sub_pop $value)")
    
11.         (action_tile "mw" "(setq pop 5) (sub_pop $value)")
    
12.         (action_tile "mt" "(setq pop 6) (sub_pop $value)")
    
13.         (action_tile "dl" "(setq pop 7) (sub_pop $value)")
    
14.         (action_tile "dw" "(setq pop 8) (sub_pop $value)")   
    
15.         (action_tile "dt" "(setq pop 9) (sub_pop $value)")
    
16.         (action_tile "bl" "(setq pop 10) (sub_pop $value)")
    
17.         (action_tile "bw" "(setq pop 11) (sub_pop $value)")
    
18.         (action_tile "bt" "(setq pop 12) (sub_pop $value)")
    
19.         (action_tile "wl" "(setq pop 12) (sub_pop $value)")
    
20.         (action_tile "ww" "(setq pop 13) (sub_pop $value)")
    
21.         (action_tile "wt" "(setq pop 14) (sub_pop $value)")
    
22.         (action_tile "gl" "(setq pop 15) (sub_pop $value)")
    
23.         (action_tile "gw" "(setq pop 16) (sub_pop $value)")
    
24.         (action_tile "gt" "(setq pop 17) (sub_pop $value)")
    
25.         (action_tile "cl" "(setq pop 18) (sub_pop $value)")
    
26.         (action_tile "cw" "(setq pop 19) (sub_pop $value)")
    
27.         (action_tile "ct" "(setq pop 20) (sub_pop $value)")
    
28.         (action_tile "ll" "(setq pop 21) (sub_pop $value)")
    
29.         (action_tile "lw" "(setq pop 22) (sub_pop $value)")
    
30.         (action_tile "lt" "(setq pop 22) (sub_pop $value)")
    
31.         (action_tile "cancel" "(done_dialog 0)")
    
32.         (action_tile "accept" "(done_dialog 1)")
    
33.         (setq sdt1 (start_dialog))
    
34.       )
    
35.       (alert "无法显示对话框！")
    
36.      )
    
37.      (unload_dialog jd)
    
38.    )
    
39.     (alert "无法加载对话框！")  
    
40.   )
    
41.   (if (= sdt1 1)
    
42.     (progn
    
43.       (load "cabinet.lsp")
    
44.     )
    
45.   )
    
46.   (princ)
    
47. )
    

(defun showsub1 (/ jd sdt1)<br />   (princ "good")<br />   (if (> (setq jd (load_dialog "dlg_ch")) 0)<br />    (progn<br />      (if (new_dialog "dlg_ch" jd)<br />       (progn<br />         (action_tile "pl" "(setq pop 1) (sub_pop $value)")<br />         (action_tile "pw" "(setq pop 2) (sub_pop $value)")<br />         (action_tile "pt" "(setq pop 3) (sub_pop $value)")<br />         (action_tile "ml" "(setq pop 4) (sub_pop $value)")<br />         (action_tile "mw" "(setq pop 5) (sub_pop $value)")<br />         (action_tile "mt" "(setq pop 6) (sub_pop $value)")<br />         (action_tile "dl" "(setq pop 7) (sub_pop $value)")<br />         (action_tile "dw" "(setq pop 8) (sub_pop $value)")   <br />         (action_tile "dt" "(setq pop 9) (sub_pop $value)")<br />         (action_tile "bl" "(setq pop 10) (sub_pop $value)")<br />         (action_tile "bw" "(setq pop 11) (sub_pop $value)")<br />         (action_tile "bt" "(setq pop 12) (sub_pop $value)")<br />         (action_tile "wl" "(setq pop 12) (sub_pop $value)")<br />         (action_tile "ww" "(setq pop 13) (sub_pop $value)")<br />         (action_tile "wt" "(setq pop 14) (sub_pop $value)")<br />         (action_tile "gl" "(setq pop 15) (sub_pop $value)")<br />         (action_tile "gw" "(setq pop 16) (sub_pop $value)")<br />         (action_tile "gt" "(setq pop 17) (sub_pop $value)")<br />         (action_tile "cl" "(setq pop 18) (sub_pop $value)")<br />         (action_tile "cw" "(setq pop 19) (sub_pop $value)")<br />         (action_tile "ct" "(setq pop 20) (sub_pop $value)")<br />         (action_tile "ll" "(setq pop 21) (sub_pop $value)")<br />         (action_tile "lw" "(setq pop 22) (sub_pop $value)")<br />         (action_tile "lt" "(setq pop 22) (sub_pop $value)")<br />         (action_tile "cancel" "(done_dialog 0)")<br />         (action_tile "accept" "(done_dialog 1)")<br />         (setq sdt1 (start_dialog))<br />       )<br />       (alert "无法显示对话框！")<br />      )<br />      (unload_dialog jd)<br />    )<br />     (alert "无法加载对话框！")  <br />   )<br />   (if (= sdt1 1)<br />     (progn<br />       (load "cabinet.lsp")<br />     )<br />   )<br />   (princ)<br /> )<br />

shichenxi

回复 ZZXXQQ 的帖子

谢谢，是这两个地方错误，现在可以运行啦！谢谢！