[求助]：如何静默退出？

wyhdream · 发表于 2004-11-7 13:48:30

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

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

×

(setq dcl_id (load_dialog "piletaxis.dcl"))
  (if (not (new_dialog "test" dcl_id)) (exit))
  (action_tile "accept" "(nice) (done_dialog 1)")
  (action_tile "cancel" "(done_dialog 1) (exit) (*error* 1)")

  (start_dialog)
  (unload_dialog dcl_id)

当按取消时acad提示行会出现错误信息如何能按cancle时静默退出？请高手指教万分感激!

xyp1964 · 发表于 2004-11-7 13:56:51

[php]
试试（修改），不用exit函数：
((setq dcl_id (load_dialog "piletaxis.dcl"))
(if (not (new_dialog "test" dcl_id)) (exit))
(action_tile "accept" "(nice) (done_dialog 1)")
(action_tile "cancel" "(done_dialog 2)")
(setq dd (start_dialog))
(if (= dd 1)
  (progn
(
   ……
   )
)
  )
(if (= dd 2)(princ))
……
[/php]

wyhdream · 发表于 2004-11-7 14:03:26

还是出现啊！
错误: quit / exit abort
(EXIT)
(IF (= DD 2) (EXIT))
(C:PILETAXIS)
*取消*

xyp1964 · 发表于 2004-11-7 14:14:41

那就别用exit函数！
exit 函数将强制目前的应用程序结束。如果 exit 函数被调用, 那么它将返回错误信息：quit/exit abort, 然后回到AutoCAD 的“Command：”提示号下。
见2楼。

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

[求助] [求助]：如何静默退出？

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

相关帖子