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

shichenxi 发表于 2011-4-28 19:13:48

本帖最后由 shichenxi 于 2011-4-28 19:18 编辑

程序加载的时候出现这样的问题，阿是我下面的这个程序哪边错误啦？麻烦各位达人来看一下？
(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 发表于 2011-4-28 22:10:59

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

(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)")
   (action_tile "cancel" "(done_dialog 0)")
   (action_tile "accept" "(done_dialog 1)")
   (setq sdt1 (start_dialog))
   )
   (alert "无法显示对话框！")
)
(unload_dialog jd)
)
(alert "无法加载对话框！")
)
(if (= sdt1 1)
(progn
   (load "cabinet.lsp")
)
)
(princ)
)

shichenxi 发表于 2011-4-29 13:08:34

回复 ZZXXQQ 的帖子

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

页: [1]

明经CAD社区's Archiver

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