[求助]：最简单的程序调试出错，百思不得其解。

zhouri · 发表于 2005-5-24 15:02:41

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

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

×

[php]
(defun c:test()
(setq dcl1 (load_dialog "test.dcl"))

(if (not (new_dialog "test" dcl1))
(exit)
)
(start_dialog)
(unload_dialog dcl1)
(action_tile "ok" "(done_dialog)")

(princ)
)

test :dialog{
   label="第一个";
   :edit_box{
   label="长度";
   edit_width=30;
   key="changdu";
   }
ok_cancel;
}

[/php]

cy956 · 发表于 2005-5-24 23:17:42

你问的是对话框程序的基本骨架，建议你找本书抄抄。

aeo · 发表于 2005-5-25 00:19:34

(action_tile "ok" "(done_dialog)")
(start_dialog)
(unload_dialog dcl1)

zhouri · 发表于 2005-5-25 10:47:26

最初由 aeo 发布
[B](action_tile "ok" "(done_dialog)")
(start_dialog)
(unload_dialog dcl1) [/B]

的确是这个错误，我看书不仔细。谢谢了。

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

[求助] [求助]：最简单的程序调试出错，百思不得其解。

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

相关帖子