请教高手：对话框确定、取消、帮助（ ok_cancel_help)按钮的操作问题

jsygsl · 发表于 2020-6-2 16:05:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

   (setq dcl_id (load_dialog "qx4.dcl"))
   (if (not (new_dialog "qx4" dcl_id)) (exit))

      (action_tile "filein" "(getf)")
      (action_tile "fileout" "(outf)")
      (action_tile "help" "(hlp)")
      (action_tile "accept" "(ok)")
; (if (=  1 (start_dialog))
;       (ok)
;       )
   (start_dialog)
   (done_dialog)
   (unload_dialog dcl_id)

请教高手：带分号的3行，如果去分号的话，程序运行后点”确定“和”取消“按钮都会出错，提示：错误: 参数类型错误: stringp nil。
如果注释掉这三行，点"确定“按钮正常运行，点”取消“按钮出错。不明白为啥，不知哪位高手能帮忙解释一下，谢谢！

newer · 发表于 2020-6-2 16:40:23

done_dialog后，AUTOCAD才接管，才能继续执行LISP

原地踏步 · 发表于 2020-6-3 09:06:24

比较标准的写法为：
  ...
  (action_tile "accept" "(ok)")
  (action_tile "cancel" "(done_dialog)")
  (setq dcl_ok (start_dialog))
  (if (= dcl_ok 1) (dofunc))

jsygsl · 发表于 2020-6-4 05:17:58

本帖最后由 jsygsl 于 2020-6-4 05:27 编辑

感谢 newer 和原地踏步两位高手的指教，谢谢！还麻烦再帮忙看看：
把程序按照如下内容改好运行后，点击“确定”运行正常，但点击“取消”，依旧提示  “错误: 参数类型错误: stringp nil”  ，还不是正常退出的状态。这个问题咋能解决好？谢谢！
      (action_tile "accept" "(ok)")
      (action_tile "cancel" "(done_dialog)")
      (setq dcl_ok (start_dialog))
      (if (= dcl_ok 1) (ok))
      (unload_dialog dcl_id)

jsygsl · 发表于 2020-6-5 10:11:16

各位高手，为啥点“取消”按钮出错？还请帮忙解释一下，虽然不影响程序的运行，但感觉不完善

原地踏步 · 发表于 2020-6-5 15:30:24

没遇到过这种情况。done_dialog什么都不做，直接退出程序，怎么可能出错呢？倒是你重复运行两次ok，很有可能出错。

jsygsl · 发表于 2020-6-8 22:29:45

多谢帮忙，我把这个语句单独拿出来，不会出错。可能还是程序的一些变量有关系。谢谢

账号		自动登录	找回密码
密码			立即注册

[求助] 请教高手：对话框确定、取消、帮助（ ok_cancel_help)按钮的操作问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。