工具面板关闭 *_OnClose 函数中（princ）不管用怎么解决。

ludaweb · 发表于 2014-11-30 13:56:30

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

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

×

下面是程序代码，点击关闭后命令行是这样的

感觉最后一个（princ）没起到作用
我想要这样的效果

怎么办呢。

(defun c:test_Form1_OnClose (UpperLeftX UpperLeftY /)
  (dcl_form_close test_Form1)
  (dcl_Project_Unload "test")
  (princ "Form1已关闭。")
  (princ)
)
(defun c:form1load (/ )
(command "_opendcl")
  (setq odcl '("YWt6A9UCAABvp1MABuIL78U0fT9q+IGrWvAmdr+8LK68WOy1+BoTXcj8Hml2ZEnz6TZs3KaGfIjA"
"9uk0blWTAn5hvjnODIMYtsyQ/k2y543htQGw4icwAGwPqESkKCl5ZFWodqerV6TH+OQMxKR/8wvc"
"d5Z8Qg8G3FOcuCaeVtrIPqy5/MpG+fwdXao+udTMJXSrLjtLOxYrym4l2kQkZadarKQcil3ceCZl"
"tkDFWKkSHGcdwgtjDBzcXQzkOkrua7kVlSvOyfZ3GaLIGGVCnsqPORp6JMzayB32bdO0eswTxfvV"
"xrX9OURdpcLX4gQYXxgh+6oaR7LzxaKE/LEi1erEE2NNs5/rQC0x2agtKNTZQxihH8g9iV2YJzuD"
"J1iPBiFDAUeVnXuzAgSP6WDgcYyRBrSMY6H9+WFDApGfJfGBsL0pYFB7B8KAkVnCmUJM5SebkaeD"
"dRNXAUU=")
)
(dcl_project_import odcl nil nil)
(dcl_form_show test_Form1)
(princ)
)
(c:form1load)
(princ)

newer · 发表于 2014-11-30 14:15:08

在非模式框的回调函数里面别执行额外的东西，如果要执行，用 dcl-sendstring

ludaweb · 发表于 2014-11-30 14:52:21

:)多谢指点，我试了半天都不行，原来这么回事。

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

[求助] 工具面板关闭 *_OnClose 函数中（princ）不管用怎么解决。

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